Gewebe II — Georg Nees, 1969

Dissertation 1969 · S. 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).,

Diese Seite · Zeichenkern

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: fünffache Störung gegenüber Bild 44.

Ungefähre Darstellung. Dieselbe Prozedur wie Bild 44, Aufruf GEWEBE(10.0). Jeder Kreuzungspunkt darf um bis zu 10 Einheiten von der Ideallage weg — bei Zellenkante 7 überlappen die Maschen, der Zufall wird zum Durcheinanderwerfer, die Figur zur Textur. Listing ohne Saat; JS1 und JS2 von S. 122. Blatt 90° wie Bild 44; der Knopf 180° kippt zum Vergleich.