Tetraeder — Georg Nees, 1969

Dissertation 1969 · S. 156 / 158 / 171

ALGOL 60

'COMMENT' TETRA nicht ausgeschrieben.,
'TETRA zeichnet ein Tetraeder
 bestimmter Größe'.,

SCHWARM(-120.0,120.0,-80.0,60.0,
         1.0,5.0,100,TETRA)

'FOR' I.=1 'STEP' 1 'UNTIL' K 'DO'
'  '  SCHWARM(...,TETRA)
'K.=2 : erster Durchlauf = Bild 16,
 zweiter = Bild 18.

Diese Seite · Zeichenkern

JavaScript

function TETRA(A, B, FAKTOR) {
  // regelmäßiges Tetraeder, Kanten
  // Größe FAKTOR, Drehung J4,J5,J6
  rotate(unitTetra * FAKTOR);
  for (const [i, j] of EDGES) {
    LEER(A + v[i][0], B + v[i][1]);
    LINE(A + v[j][0], B + v[j][1]);
  }
}
TETRA(J2(-120, 120), J3(-80, 60), J1(1, 5));
// Rekonstruktion: Rumpf steht nicht im Buch.

Ungefähre Darstellung. Bild 16 ist derselbe SCHWARM-Aufruf wie Bild 15, nur mit TETRA statt STAR: die Quadrate werden durch Tetraeder ersetzt, Ort und Größe bleiben die Parameter D…N und U, V. Den Rumpf von TETRA schreibt das Buch nicht; gezeichnet wird ein regelmäßiges Drahtgitter, Orientierung über JS4…JS6, damit J1…J3 wie beim Sternhaufen Ort und Größe liefern. S. 171: der erste von zwei Durchläufen ohne Neu-Initiierung ist Bild 16, der zweite Bild 18. Blatt 90° im Uhrzeigersinn wie der Scan.