Mikroinnovation — Georg Nees, 1969

Dissertation 1969 · S. 221

ALGOL 60

'BEGIN' 'COMMENT' TEST
MIKROINNOVATION.,
T.=0., JI1.=JS1., JI2.=JS5.,
JLI.=JUN.=-8., JRE.=JOB.=24.,
N.=32.,
SERIE(16.0,16.0,12,8,ELIRR).,
JLI.=JUN.=-4., JRE.=JOB.=12.,
N.=8.,
SERIE(8.0,8.0,24,16,ELIRR).,
JLI.=JUN.=-2., JRE.=JOB.=6.,
N.=2.,
SERIE(4.0,4.0,48,32,ELIRR)
'END' TEST MIKROINNOVATION.,

'COMMENT' Erster SERIE-Aufruf = Bild 31.
 Die nächsten ohne Neu-Saat
 sind Bild 32 und 33.

Diese Seite · Zeichenkern

JavaScript

T = 0;
JI1 = JS1; JI2 = JS5;
JLI = JUN = -8; JRE = JOB = 24;
N = 32;
SERIE(16, 16, 12, 8, ELIRR);
// 12×8 Zellen, Rahmen 32×32.
// Bild 32 und 33 folgen im Listing.

S. 221: derselbe Generator zeichnet Bild 31 bis 33. Nur Zellen, Rahmen und Kantenzahl halbieren sich. Bild 31 ist der erste Aufruf: SERIE(16,16,12,8,ELIRR), T = 0, Rahmen −8…24 wie Figur 6, 32 Kanten. Die Saaten JS1 und JS5 von S. 122 treffen das gedruckte Blatt.