Weave — Georg Nees, 1969

Dissertation 1969 · pp. 258–260

ALGOL 60

'REAL' 'ARRAY' A,B(/-12..12,-8..8/).,

'PROCEDURE' GEWEBE(S).,
'VALUE' S., 'REAL' S.,
'BEGIN' 'INTEGER' P, Q.,
JA1.=JA2.=-S., JE1.=JE2.=S.,
'FOR' P.=-12 'STEP' 1 'UNTIL' 12 'DO'
'BEGIN'
  'FOR' Q.=-8 'STEP' 1 'UNTIL' 8 'DO'
  'BEGIN'
    A(/P,Q/).=7*P+J1.,
    B(/P,Q/).=7*Q+J2
  'END'
'END'.,
'FOR' P.=-12 'STEP' 1 'UNTIL' 12 'DO'
'BEGIN'
  LEER(A(/P,-8/),B(/P,-8/)).,
  'FOR' Q.=-7 'STEP' 1 'UNTIL' 8 'DO'
    LINE(A(/P,Q/),B(/P,Q/))
'END'.,
'FOR' Q.=-8 'STEP' 1 'UNTIL' 8 'DO'
'BEGIN'
  LEER(A(/12,Q/),B(/12,Q/)).,
  'FOR' P.=11 'STEP' -1 'UNTIL' -12 'DO'
    LINE(A(/P,Q/),B(/P,Q/))
'END'
'END' GEWEBE.,

GEWEBE(2.0).,

This page · drawing kernel

JavaScript

JA1 = JA2 = -S; JE1 = JE2 = S;
for (P = -12; P <= 12; P++)
  for (Q = -8; Q <= 8; Q++) {
    A[P][Q] = 7*P + J1();
    B[P][Q] = 7*Q + J2();
  }
// warp first (P fixed), then weft
// (Q fixed, P from 12 down to −12).
GEWEBE(2.0);

Section 3.2.9: the generator stores 425 crossing points in matrices A and B, then traces warp and weft through those same corners. S is the maximum jitter around the ideal sites 7·P, 7·Q. Figure 44 is GEWEBE(2.0); GEWEBE(10.0) will be figure 46. JS1 and JS2 from p. 122. Sheet rotated 90° as in the scan.