Übergang zur Textur — Georg Nees, 1969

Dissertation 1969 · S. 219–220

ALGOL 60

'BEGIN' 'COMMENT'
UEBERGANG VARIATION ZU TEXTUR.,
'REAL' V.,
'PROCEDURE' ELIRRW.,
'BEGIN' ELIRR.,
JLI.=JLI-V., JRE.=JRE+V.,
JUN.=JUN-V., JOB.=JOB+V.,
'END' ELIRRW.,
JI1.=JS1., JI2.=JS2.,
N.=10., T.=0., V.=.2.,
JLI.=5., JRE.=15.,
JUN.=5., JOB.=15.,
SERIE(20.0,20.0,10,5,ELIRRW)
'END' UEBERGANG VARIATION ZU TEXTUR.,

Diese Seite · Zeichenkern

JavaScript

function ELIRRW() {
  ELIRR();
  JLI -= V; JRE += V;
  JUN -= V; JOB += V;
}
N = 10; T = 0; V = 0.2;
SERIE(20, 20, 10, 5, ELIRRW);
// Unten Variation, oben Textur.

Ungefähre Darstellung. S. 219: ELIRRW ruft ELIRR auf und weitet danach den Rahmen um V = 0.2. Die fünf Figuren einer Reihe teilen sich denselben Rahmen (wie auf dem Blatt); von Reihe zu Reihe wächst er um YMAL·V. Unten die Variation, oben die Textur. JS1 und JS2 sind die Buchsaaten von S. 122, nicht nachweislich die des Blattes.