Heap of rectangles — Georg Nees, 1969

Dissertation 1969 · p. 206–208

ALGOL 60

'BEGIN' 'COMMENT' HAUFEN
AUS RECHTECKEN.,
'PROCEDURE' ELRECT.,
'BEGIN' 'REAL' D,E,F,G.,
JA1.=P+JLI., JE1.=P+JRE.,
JA2.=Q+JUN., JE2.=Q+JOB.,
D.=J1., E.=J1.,
F.=J2., G.=J2.,
LEER(D,F).,
LINE(E,F)., LINE(E,G).,
LINE(D,G)., LINE(D,F)
'END' ELRECT.,
JLI.=-5., JRE.=15.,
JUN.=-5., JOB.=15.,
SERIE(10.0,10.0,18,13,ELRECT)
'END' HAUFEN AUS RECHTECKEN.,

This page · drawing kernel

JavaScript

JA1 = P + JLI; JE1 = P + JRE;
JA2 = Q + JUN; JE2 = Q + JOB;
D = J1(); E = J1();
F = J2(); G = J2();
LEER(D, F);
LINE(E, F); LINE(E, G);
LINE(D, G); LINE(D, F);
SERIE(10, 10, 18, 13, ELRECT);
// 20×20 frames in 10×10 cells.

Approximate rendering. P. 206: not SCHWARM, but SERIE with procedure ELRECT. Each cell is 10 by 10; the random frame overhangs every edge by five units — the rectangles overlap and the matrix collapses into a heap. The listing does not set seeds; JS1 and JS2 are the book values of p. 122, not those of the plate.