Weave II — 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(10.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();
  }
GEWEBE(10.0);
// S = 10: five times the jitter of figure 44.

Approximate rendering. The same procedure as figure 44, call GEWEBE(10.0). Each crossing may leave the ideal site by up to 10 units — with cell edge 7 the meshes overlap, chance becomes a scatterer, the figure a texture. The listing has no seed; JS1 and JS2 from p. 122. Sheet at 90° like figure 44; the 180° button flips it for comparison.