home *** CD-ROM | disk | FTP | other *** search
/ Vectronix 2 / VECTRONIX2.iso / FILES_01 / STAD13D.LZH / STAD_3D / STADDIVS / BEISPIEL.S < prev    next >
Text File  |  1986-02-06  |  3KB  |  58 lines
  1. ********************************************************************************
  2. **       Struktur eines 3D-Objekts                                             *
  3. **       STAD Version 1.0                                                      *
  4. **       15.12.1986                                                            *
  5. **       (c) Peter Melzer                                                      *
  6. ********************************************************************************
  7. *
  8. * Die Objektabelle kann aus bis zu 100 einzelnen Objekten bestehen. 
  9. * Der Assembler mu₧ die Adressenoffsets richtig (!) berechnen.
  10. *
  11. objtab
  12. .dc.l   obj1fin-objtab                  *,obj2fin-objtab,...
  13. .dc.l   0,0,0,0,0,0,0,0,0
  14. .dc.l   0,0,0,0,0,0,0,0,0,0
  15. .dc.l   0,0,0,0,0,0,0,0,0,0
  16. .dc.l   0,0,0,0,0,0,0,0,0,0
  17. .dc.l   0,0,0,0,0,0,0,0,0,0
  18. .dc.l   0,0,0,0,0,0,0,0,0,0
  19. .dc.l   0,0,0,0,0,0,0,0,0,0
  20. .dc.l   0,0,0,0,0,0,0,0,0,0
  21. .dc.l   0,0,0,0,0,0,0,0,0,0
  22. .dc.l   0,0,0,0,0,0,0,0,0,0
  23. .dc.l   $ffff8fb2                       * Kennung eines STAD-3D-Objekts
  24. objekt1                                 * label nicht notwendig
  25. .dc.b   "3D"                            * bei Drahtgitter , "3R" bei Rotat.
  26. .dc.w   0                               * Anzahl der Ecken bei Rotat.körper
  27. .dc.w   319,199                         * x-Mittelpunkt,y-Mittelpunkt
  28. .dc.w   100,600,80                      * Standard-Augpunkt bei Zentralpersp.
  29. .dc.w   0,0,0                           * alpha,beta,gamma
  30. .dc.w   256                             * Standard-kfaktor entspr. 1
  31. .dc.l   obj1ecken-objtab                * Eckenoffset
  32. .dc.l   obj1kanten-objtab               * Kantenoffset
  33. .dc.l   obj1flaechen-objtab             * Flächenoffset (fakultativ)
  34. .dc.b   "Beispiel"                      * Name , immer 8 Bytes !
  35. .dc.w   0                               * reserved
  36. obj1ecken
  37. .dc.w   4                               * Anzahl Ecken
  38. .dc.w   0,0,0                           * Eckenkoordinaten, x,y,z
  39. .dc.w   50,0,0
  40. .dc.w   50,50,0
  41. .dc.w   0,50,0
  42. obj1kanten
  43. .dc.w   4                               * Anzahl Kanten
  44. .dc.w   0,1                             * verbinde Ecke Nr. 0 mit Ecke Nr. 1
  45. .dc.w   1,2
  46. .dc.w   2,3
  47. .dc.w   3,0
  48. obj1flaechen
  49. .dc.w   1                               * Anzahl Flächen
  50. .dc.w   4                               * Anzahl Kanten der 1. Fläche
  51. .dc.w   0,1,2,3,0                       * Kanten 0-1,1-2,2-3,3-0
  52. * Anzahl Kanten der 2. Fläche, Kanten, etc....
  53. obj1fin
  54. * objekt_2
  55. * ....
  56. * obj2fin
  57. .dc.w   0                               * nur für Labelberechnung notwendig
  58.