Rechteckfläche — Georg Nees, 1969

Dissertation 1969 · S. 142

ALGOL 60

1 'BEGIN'
2 'COMMENT' DEMONSTRATION RECHTECKFLÄCHE.,
3 'REAL' P, P1.,
4 OPEN(0,0), JI1.=JS1., JI2.=JS2.,
5 JA1.=0., JE1.=6., JA2.=-80., JE2.=80.,
6 P.=-130.,
7 ANFANG..
8 'IF' P 'GREATER' 130.0 'THEN' 'GOTO' FIN.,
9 P1.=P+J1., REC(P,P1,0.0,J2,0.4), P.=P1.,
10 'GOTO' ANFANG.,
11 FIN.. CLOSE
12 'END' DEMONSTRATION RECHTECKFLÄCHE.,

Diese Seite · Zeichenkern

JavaScript

let P = -130;
while (P <= 130) {
  const P1 = P + J1(0, 6);
  REC(P, P1, 0, J2(-80, 80), 0.4);
  P = P1;
}
// REC füllt mit parallelen Strecken,
// Abstand A = S − 0.1. Querformat
// waagrecht, Hochformat senkrecht.
// Boolean B wechselt die Richtung
// wie ein Weberschiffchen.

Abschnitt 2.3.2 führt REC(D,E,F,G,S) ein: eine Rechteckfläche aus eng benachbarten Strecken, Strichstärke S. Ein Zehntel Längeneinheit Überdeckung (A = S−.1) schließt die Lücken. Ob waagrecht oder senkrecht gefüllt wird, entscheidet das Format — die längere Seite gibt die Füllrichtung, damit der Plotter weniger umschaltet. Bild 14: von P = −130 nach rechts, Breite J1 in 0…6, Höhe J2 in ±80, fast alles Querformat. Das Blatt steht wie der Scan hochkant (90° im Uhrzeigersinn).