Sternhaufen — Georg Nees, 1969

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

This page · drawing kernel

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 size, J2 abscissa, J3 ordinate.
// Book REC fills with stroke S; here the solid square.
// SCHWARM body: “possible version”, p. 160.

Approximate rendering. A full reconstruction of printed figure 15 was not possible: SCHWARM does not load the seeds, and the body appears only on p. 160 as a possible version. STAR and the call SCHWARM(−120,120,−80,60,1,5,100,STAR) sit with the plate; JS1…JS3 are the usual values from p. 122, not those of the sheet. Section 3.1 turns REC into STAR (square of side 2·FAKTOR about (A,B)); SCHWARM calls P(J2,J3,J1) a hundred times. Sheet 90° clockwise like the scan.