;
;        ____     ___        ___     ___ ___ ___ ___ ____      ___ ___ ___
;         /  /__//_         /__ /  //_ //__ /  //_    /  / / //_ //__//_  
;        /  /  //__        ___//__//__/___//__//     /  /_/_//  //  \/__  
;
;-----------------------------------------------------------------------------
;   - FOR ABO'S CONTACT US AT:   BP:28 1170 WATERMAEL-BOITSFORT 1 BELGIUM!!...
;
;-----------------------------------------------------------------------------
;                           - DON'T SEND ANY DISKS -
;
;-----------------------------------------------------------------------------
;
;
;
;                       THE LEGENDARY >> SUBSOFTWARE << IN 87/88/89/90/91!!...
;                       ------------------------------------------------------
;


;-----------------------------------------------------------------------
; Exemple de source pour un objet vectoriel
;-----------------------------------------------------------------------
; Objet vectoriel normal (Diamant)
;-----------------------------------------------------------------------
;( Format Seka)
;
; Génération de l'objet
;a (return)
;wi (return)
;nom de l'objet (return)
;start (return)
;end (return)
;------------------------------------------------------------------------

start:
dc.l    "VECT"                          ; Type de l'objet !!!

PleinObj2:
dc.l TestPoints-PleinObj2               ; offset de structure de points
dc.l TestSurface-PleinObj2              ; offset de structure de surface
dc.w 300                                ; zoom = 300
dc.w 0,$8,$a,$c,$44f,$f0f,$0f,$f00      ; 8 couleurs
dc.b 0                                  ; 0 - Objet normal
dc.b 0                                  ; 0 - pas de Synchronisation
dc.w 0                                  ; pas d'initialisation
dc.l 0                                  ; pas de routine
dc.l 0                                  ; ...

TestPoints:                             ; Structure de points
dc.w 10                                 ; 10 points
dc.w 0,0,-20                            ; Coordonnées (x/y/z)
dc.w 30,0,10
dc.w 0,0,40
dc.w 21,21,10
dc.w 0,30,10
dc.w -21,21,10
dc.w -30,0,10
dc.w -21,-21,10
dc.w 0,-30,10
dc.w 21,-21,10

TestSurface:                            ; Structure de surface
dc.w 15                                 ; 16 couleurs
dc.w 3,1,0,1,3,0                        ; 1ère couleur
dc.w 3,2,1,2,3,1                        ; 2ème couleur
dc.w 3,3,0,3,4,0                        ; ...
dc.w 3,4,3,2,4,3
dc.w 3,1,0,4,5,0
dc.w 3,2,4,2,5,4
dc.w 3,3,0,5,6,0
dc.w 3,4,5,2,6,5
dc.w 3,1,0,6,7,0
dc.w 3,2,6,2,7,6
dc.w 3,3,0,7,8,0
dc.w 3,4,7,2,8,7
dc.w 3,1,0,8,9,0
dc.w 3,2,8,2,9,8
dc.w 3,3,0,9,1,0
dc.w 3,4,9,2,1,9

end: