Sternhaufen — Georg Nees, 1969

Ungefähre Darstellung · vollständige Rekonstruktion des Originals war nicht möglich

Dissertation 1969 · S. 148 / 150 / 160

ALGOL 60

'PROCEDURE' STAR(A,B,FAKTOR),
'VALUE' A, B, FAKTOR.,
'REAL' A, B, FAKTOR.,
REC(A-FAKTOR,A+FAKTOR,
    B-FAKTOR,B+FAKTOR,S),

'PROCEDURE' SCHWARM(D,E,F,G,U,V,N,P),
'VALUE' D, E, F, G, U, V, N.,
'INTEGER' N., 'REAL' D, E, F, G, U, V.,
'PROCEDURE' P.,
'BEGIN' 'INTEGER' I.,
JA1.=U., JE1.=V.,
JA2.=D., JE2.=E., JA3.=F., JE3.=G.,
'FOR' I.=1 'STEP' 1 'UNTIL' N 'DO'
P(J2,J3,J1)
'END' SCHWARM.,

SCHWARM(-120.0,120.0,-80.0,60.0,
         1.0,5.0,100,STAR)

Diese Seite · Zeichenkern

JavaScript

function STAR(A, B, FAKTOR) {
  fillRect(A - FAKTOR, A + FAKTOR,
           B - FAKTOR, B + FAKTOR);
}
for (let I = 1; I <= 100; I++) {
  STAR(J2(-120, 120), J3(-80, 60), J1(1, 5));
}
// J1 Größe, J2 Abszisse, J3 Ordinate.
// REC im Buch füllt mit Strich S; hier die Fläche.
// SCHWARM-Rumpf: „mögliche Fassung“ S. 160.

Ungefähre Darstellung. Eine vollständige Rekonstruktion des gedruckten Bildes 15 war nicht möglich: SCHWARM setzt die Saaten nicht, der Rumpf steht erst S. 160 als mögliche Fassung. STAR und der Aufruf SCHWARM(−120,120,−80,60,1,5,100,STAR) stehen bei der Tafel; JS1…JS3 sind die üblichen Werte von S. 122, nicht die des Blattes. Abschnitt 3.1 macht aus REC den Baustein STAR (Quadrat der Seitenlänge 2·FAKTOR um (A,B)); SCHWARM ruft hundertmal P(J2,J3,J1) auf. Blatt 90° im Uhrzeigersinn wie der Scan.