Series — Georg Nees, 1969

Dissertation 1969 · pp. 185 / 188

ALGOL 60

'PROCEDURE' SERIE
 (QUER,HOCH,XMAL,YMAL,FIGUR).,
'VALUE' QUER, HOCH, XMAL, YMAL.,
'REAL' QUER, HOCH.,
'INTEGER' XMAL, YMAL.,
'PROCEDURE' FIGUR.,
'BEGIN'
  P.= -QUER*XMAL*.5.,
  Q.=YANF.= -HOCH*YMAL*.5.,
  'FOR' COUNTX.=1 'STEP' 1 'UNTIL' XMAL 'DO'
  'BEGIN' Q.=YANF.,
    'FOR' COUNTY.=1 'STEP' 1 'UNTIL' YMAL 'DO'
    'BEGIN' FIGUR., Q.=Q+HOCH
    'END'., P.=P+QUER
  'END'
'END' SERIE.,

'PROCEDURE' S., 'BEGIN'
  'INTEGER' D.,
  LEER(P+1,Q+1)., LINE(P+HOR-1,Q+1).,
  LINE(P+HOR-1,Q+VER-1).,
  LINE(P+1,Q+VER-1)., LINE(P+1,Q+1).,
  'FOR' D.=1 'STEP' 1 'UNTIL' M 'DO'
  'BEGIN' LEER(P+1+D,Q+1).,
          LINE(P+1+D,Q+VER-1)
  'END'.,
  M.=M+1
'END' S.,

M.=1., HOR.=65., VER.=20.,
SERIE(HOR,VER,4,7,S).,

This page · drawing kernel

JavaScript

P = -HOR * XMAL * 0.5;
Q = YANF = -VER * YMAL * 0.5;
for (let COUNTX = 1; COUNTX <= XMAL; COUNTX++) {
  Q = YANF;
  for (let COUNTY = 1; COUNTY <= YMAL; COUNTY++) {
    S();          // outline, then M vertical strokes
    Q += VER;
  }
  P += HOR;
}
// S increments M after every cell.
// SERIE(65, 20, 4, 7, S) → 28 cells.

Section 3.2.1: SERIE tiles an axis-aligned rectangle into XMAL by YMAL congruent cells around the origin, first cell in the third quadrant, inner loop along Y. Figure S draws the outline inset by 1 and as many vertical strokes as the counter M holds — that is how one reads the order of the 28 cells. Figure 21 is wholly deterministic. The sheet stands portrait, as in the scan.