Haufen und Gestalt — Georg Nees, 1969

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

Diese Seite · Zeichenkern

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 Abszisse, J3 Ordinate.
// Zweiter Aufruf ohne Neu-Initiierung.

Ungefähre Darstellung. Abschnitt 3.1.3: dieselbe Prozedur SCHWARM, Figur KREIS — Vollkreis per LEER und ZIRK mit negativem Radius. Zwei Aufrufe, gleiche Rahmengröße, Radius einmal 1…3, einmal 10…30. Oben (Hochformat) der Haufen getrennter Kreise, unten die überlappende Gestalt. Die Generatoren laufen durch; JS1…JS3 sind die üblichen Werte von S. 122, nicht die des Blattes. Blatt 90° im Uhrzeigersinn wie der Scan.