Schotter — Georg Nees, 1969

Dissertation 1969 · S. 240

ALGOL 60

'BEGIN' 'COMMENT' SCHOTTER.,
'REAL' R, PIHALB, PI4T.,
'INTEGER' I.,
'PROCEDURE' QUAD.,
'BEGIN'
'REAL' P1, Q1, PSI., 'INTEGER' S.,
JE1.=5*I/264., JA1.=-JE1.,
JE2.=PI4T*(1+I/264),
JA2.=PI4T*(1-I/264),
P1.=P+5+J1., Q1.=Q+5+J1.,
PSI.=J2.,
LEER(P1+R*COS(PSI),
     Q1+R*SIN(PSI)),
'FOR' S.=1 'STEP' 1 'UNTIL' 4 'DO'
'BEGIN' PSI.=PSI+PIHALB.,
LINE(P1+R*COS(PSI),
     Q1+R*SIN(PSI))
'END',
I.=I+1
'END' QUAD.,
R.=5*1.4142.,
PIHALB.=3.14159*.5.,
PI4T.=PIHALB*.5.,
I.=0.,
SERIE(10.0,10.0,22,12,QUAD)
'END' SCHOTTER.,

Diese Seite · Zeichenkern

JavaScript

JI1 = JS5; JI2 = JS3;
I = 0;
SERIE(10, 10, 22, 12, QUAD);

function QUAD() {
  JE1 = 5 * I / 264; JA1 = -JE1;
  JE2 = PI4T * (1 + I / 264);
  JA2 = PI4T * (1 - I / 264);
  P1 = P + 5 + J1();
  Q1 = Q + 5 + J1();
  PSI = J2();
  LEER(P1 + R*cos(PSI), Q1 + R*sin(PSI));
  for (S = 1; S <= 4; S++) {
    PSI += PIHALB;
    LINE(P1 + R*cos(PSI), Q1 + R*sin(PSI));
  }
  I += 1;
}

S. 240: SCHOTTER (Gerölle) zerlegt ein regelmäßiges Quadratraster. SERIE(10,10,22,12,QUAD) — 12 Felder quer, 22 hoch, Blatt 90° wie der Scan. QUAD zeichnet ein Quadrat der Seite 10 um (P+5,Q+5); Lage J1, Winkel J2. Der Zähler I weitet die Streuung von Zeile zu Zeile: unten Ordnung, oben Schotter. Listing ohne Saat; Bild 38 trifft mit JS5 (Lage) und JS3 (Winkel). Die Saaten hat Zellyn Hunter 2024 rekonstruiert (zellyn.com), ebenso die des Graphomat-Drucks von 1968. Knopf Graphomat 1968: Ausstellungsblatt mit Saaten 1922110153 / 1769133315, Geröll nach unten. Ob das Geröll oben oder unten hängt, war Zufall.