REFSKRIPT
; überarbeitet von Carsten Lotz, 23.8.1997
>masse:
GET_XYZ Pyramidenstumpf Breite(unten) Breite(oben) Höhe
RETURN_IF_ABBRUCH 1
GET_RESULT res
COPY_WORD res 1
GET_RESULT breite_unten
COPY_WORD res 2
GET_RESULT breite_oben
COPY_WORD res 3
GET_RESULT hoehe
IF_NOT_EQUAL_GOTO hoehe 0 erzeugen
  MELDUNG Höhe Null ist nicht möglich.
  GOTO masse

; Dreiecks-Objekt erzeugen */
>erzeugen:
DREI_QUADER  Pyramidenstumpf breite_unten breite_unten hoehe
GET_RESULT pyr
DIV breite_oben 2
GET_RESULT brhalb
MUL brhalb -1
GET_RESULT brhalb_min
DIV hoehe 2
GET_RESULT h2
; 4 punkte der ober_seite verschieben
; 4.Pkt
GEO_SET_PT pyr 4 brhalb_min brhalb_min h2
; 5.Pkt
GEO_SET_PT pyr 5 brhalb brhalb_min h2
; 6.Pkt
GEO_SET_PT pyr 6 brhalb brhalb h2
; 7.Pkt
GEO_SET_PT pyr 7 brhalb_min brhalb h2
PKL_ADD pyr
ZENTRIEREN pyr
PLOT_PKL

RETURN 1