********************************************************************************
**       Struktur eines 3D-Objekts                                             *
**       STAD Version 1.0                                                      *
**       15.12.1986                                                            *
**       (c) Peter Melzer                                                      *
********************************************************************************
*
* Die Objektabelle kann aus bis zu 100 einzelnen Objekten bestehen. 
* Der Assembler mu� die Adressenoffsets richtig (!) berechnen.
*
objtab
.dc.l   obj1fin-objtab                  *,obj2fin-objtab,...
.dc.l   0,0,0,0,0,0,0,0,0
.dc.l   0,0,0,0,0,0,0,0,0,0
.dc.l   0,0,0,0,0,0,0,0,0,0
.dc.l   0,0,0,0,0,0,0,0,0,0
.dc.l   0,0,0,0,0,0,0,0,0,0
.dc.l   0,0,0,0,0,0,0,0,0,0
.dc.l   0,0,0,0,0,0,0,0,0,0
.dc.l   0,0,0,0,0,0,0,0,0,0
.dc.l   0,0,0,0,0,0,0,0,0,0
.dc.l   0,0,0,0,0,0,0,0,0,0
.dc.l   $ffff8fb2                       * Kennung eines STAD-3D-Objekts
objekt1                                 * label nicht notwendig
.dc.b   "3D"                            * bei Drahtgitter , "3R" bei Rotat.
.dc.w   0                               * Anzahl der Ecken bei Rotat.k�rper
.dc.w   319,199                         * x-Mittelpunkt,y-Mittelpunkt
.dc.w   100,600,80                      * Standard-Augpunkt bei Zentralpersp.
.dc.w   0,0,0                           * alpha,beta,gamma
.dc.w   256                             * Standard-kfaktor entspr. 1
.dc.l   obj1ecken-objtab                * Eckenoffset
.dc.l   obj1kanten-objtab               * Kantenoffset
.dc.l   obj1flaechen-objtab             * Fl�chenoffset (fakultativ)
.dc.b   "Beispiel"                      * Name , immer 8 Bytes !
.dc.w   0                               * reserved
obj1ecken
.dc.w   4                               * Anzahl Ecken
.dc.w   0,0,0                           * Eckenkoordinaten, x,y,z
.dc.w   50,0,0
.dc.w   50,50,0
.dc.w   0,50,0
obj1kanten
.dc.w   4                               * Anzahl Kanten
.dc.w   0,1                             * verbinde Ecke Nr. 0 mit Ecke Nr. 1
.dc.w   1,2
.dc.w   2,3
.dc.w   3,0
obj1flaechen
.dc.w   1                               * Anzahl Fl�chen
.dc.w   4                               * Anzahl Kanten der 1. Fl�che
.dc.w   0,1,2,3,0                       * Kanten 0-1,1-2,2-3,3-0
* Anzahl Kanten der 2. Fl�che, Kanten, etc....
obj1fin
* objekt_2
* ....
* obj2fin
.dc.w   0                               * nur f�r Labelberechnung notwendig