;
;        ____     ___        ___     ___ ___ ___ ___ ____      ___ ___ ___
;         /  /__//_         /__ /  //_ //__ /  //_    /  / / //_ //__//_  
;        /  /  //__        ___//__//__/___//__//     /  /_/_//  //  \/__  
;
;-----------------------------------------------------------------------------
;   - 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 avec lignes (Normal)
;-----------------------------------------------------------------------
;(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 !!!

PleinObj1:
dc.l Polyliste-PleinObj1        ; offset pour la structure de points
dc.l Connexion-PleinObj1        ; offset de structure
dc.w 400                        ; zoom = 400
dc.w 0,$fff,0,0,0,0,0,0         ; 8 couleurs       (2.couleurs pour l'objet)
dc.b 0                          ; pas de sync
dc.b 2                          ; 2-objet-ligne
dc.w 0                          ; pas de routine
dc.l 0                          ; pas d'initialisation
dc.l equa-PleinObj1             ; routine

;routine de l'équaliseur...

equa:   move.l 16(a0),d0        ; Test,  Musique dans démo ...
        tst d0
        bne musicda
        rts
musicda:move.l d0,a0            ; Equaliseur dans a0
        lea equ1(pc),a1
        moveq #3-1,d1           ; 4 voix
loop2:  cmp #20,(a1)
        ble not2
        sub #5,(a1)
        sub #5,24(a1)
        sub #5,6(a1)
        sub #5,30(a1)
not2:   tst (a0)                ; lecture
        beq not1                ; pas d'instruments
        move.w #100,(a1)
        move.w #90,24(a1)
        move.w #100,6(a1)
        move.w #90,30(a1)
not1:   addq.l #6,a0
        lea [6*8](a1),a1
        dbf d1,loop2
        rts

Polyliste:
dc.w 8+8+8+8
dc.w -60,0,10
dc.w -80,0,10
dc.w -80

equ1:
dc.w 100,10
dc.w -60,100,10
dc.w -60,0,-10
dc.w -80,0,-10
dc.w -80,90,-10
dc.w -60,90,-10

dc.w -15,0,10
dc.w -35,0,10
dc.w -35,100,10
dc.w -15,100,10
dc.w -15,0,-10
dc.w -35,0,-10
dc.w -35,90,-10
dc.w -15,90,-10

dc.w 15,0,10
dc.w 35,0,10
dc.w 35,100,10
dc.w 15,100,10
dc.w 15,0,-10
dc.w 35,0,-10
dc.w 35,90,-10
dc.w 15,90,-10

dc.w 60,0,10
dc.w 80,0,10
dc.w 80,100,10
dc.w 60,100,10
dc.w 60,0,-10
dc.w 80,0,-10
dc.w 80,90,-10
dc.w 60,90,-10

Connexion:
dc.w 48
dc.w 0,1,1,2,2,3,3,0,4,5,5,6,6,7,7,4,0,4,3,7,1,5,2,6

dc.w 8,9,9,10,10,11,11,8,12,13,13,14,14,15,15,12,8,12
dc.w 11,15,9,13,10,14

dc.w 16,17,17,18,18,19,19,16,20,21,21,22
dc.w 22,23,23,20,16,20,19,23,17,21,18,22

dc.w 24,25,25,26,26,27,27,24,28,29,29,30
dc.w 30,31,31,28,24,28,25,29,26,30,27,31

end: