Heap and gestalt — Georg Nees, 1969

Dissertation 1969 · pp. 163 / 165

ALGOL 60

'PROCEDURE' KREIS(P,Q,RADIUS),
'VALUE' P, Q, RADIUS.,
'REAL' P, Q, RADIUS.,
'BEGIN'
LEER(P+RADIUS,Q),
ZIRK(P,Q,-RADIUS,P+RADIUS,Q)
'END' KREIS.,

SCHWARM(30.0,100.0,-50.0,50.0,
         1.0,3.0,20,KREIS)
SCHWARM(-100.0,-30.0,-50.0,50.0,
         10.0,30.0,20,KREIS)

This page · drawing kernel

JavaScript

function KREIS(P, Q, RADIUS) {
  LEER(P + RADIUS, Q);
  ZIRK(P, Q, -RADIUS, P + RADIUS, Q);
}
SCHWARM(30, 100, -50, 50, 1, 3, 20, KREIS);
SCHWARM(-100, -30, -50, 50, 10, 30, 20, KREIS);
// J1 radius, J2 abscissa, J3 ordinate.
// Second call continues the generators.

Approximate rendering. Section 3.1.3: the same procedure SCHWARM, figure KREIS — a full circle via LEER and ZIRK with a negative radius. Two calls, same frame size, radii 1…3 then 10…30. At the top (portrait) the heap of separate circles, below the overlapping gestalt. The generators run on; JS1…JS3 are the usual values from p. 122, not those of the plate. Sheet 90° clockwise like the scan.