Square distribution — Georg Nees, 1969

Dissertation 1969 · p. 281

ALGOL 60

'BEGIN' 'COMMENT'
QUADRATVERTEILUNG.,
'REAL' V.,
'PROCEDURE' RANREC.,
'BEGIN' 'IF' J3 'LESS' .5
'THEN' REC(P,P+V,Q,Q+V,.4)
'END' RANREC.,
JI3.=JS3., JA3.=0., JE3.=1.,
V.=16., SERIE(16.0,16.0,12,8,RANREC).,
V.=8.,  SERIE(8.0,8.0,24,16,RANREC).,
V.=4.,  SERIE(4.0,4.0,48,32,RANREC)
'END' QUADRATVERTEILUNG.,

'COMMENT' Line 8 = fig. 51,
 line 9 = fig. 50,
 line 10 = fig. 49.

This page · drawing kernel

JavaScript

function RANREC() {
  if (J3() < 0.5)
    REC(P, P + V, Q, Q + V, 0.4);
}
JI3 = JS3; JA3 = 0; JE3 = 1;
SERIE(16, 16, 12, 8, RANREC); // 51
SERIE(8, 8, 24, 16, RANREC);  // 50
V = 4;
SERIE(4, 4, 48, 32, RANREC);  // 49
// First two without ink; J3 keeps running.

Section 3.3.1, object reflection. One program, three resolutions: line 8 figure 51, line 9 figure 50, line 10 this plate. RANREC fills the cell with REC (hatch 0.4) when J3 is below ½. JS3 only (p. 122) — the seed matches the printed plate. The first two SERIE calls are counted but not drawn. Sheet 90° like the scan (48 rows upright). Flip turns +X down.