; ; ____ ___ ___ ___ ___ ___ ___ ____ ___ ___ ___ ; / /__//_ /__ / //_ //__ / //_ / / / //_ //__//_  ; / / //__ ___//__//__/___//__// / /_/_// // \/__  ; ;----------------------------------------------------------------------------- ; - 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 Vector-balls ;----------------------------------------------------------------------- ; Vector-balls animé (Jongleur) ;----------------------------------------------------------------------- ;(Format Seka) ; ;Génération de l'objet: ; ;a (return) ;wi (return) ;nom de l'objet (return) ;start (return) ;end (return) ;------------------------------------------------------------------------ start: dc.l "BALL" ; Type objet (Vector-balls) ballsObj1: dc.l ballPoints-ballsObj1,ballArt-ballsObj1 ; offsets dc.w 500 ; zoom = 500 dc.w 0,$500,$710,$930,$a50,$d90,$fd0 dc.w $000,$5,$6,$118,$33a,$55b,$88c,$ccd dc.w $fff ; Couleurs dc.l juggleInit-ballsObj1 ; Initialisation de ; l'animation dc.l juggle-ballsObj1 ; Routine d'animation jpointers:dc.l 0,0,0,0 ; pointeur ;------------------------------------------------------------------------ ; Initialisation pour la routine ... ;------------------------------------------------------------------------ juggleInit: lea jpointers(pc),a0 lea jongx(pc),a1 lea jongy(pc),a2 lea armjong(pc),a3 lea jongxend(pc),a4 move.l a1,(a0) move.l a2,4(a0) move.l a3,8(a0) move.l a4,12(a0) rts ;----------------------------------------------------------------------- ; Animation... ;----------------------------------------------------------------------- juggle: lea jpointers(pc),a0 move.l (a0),a3 move.l 4(a0),a1 move.l 8(a0),a4 lea jon(pc),a2 lea jon2(pc),a5 lea jon3(pc),a6 jongl: move.w (a3),(a2) move.w 32(a3),6(a2) move.w 62(a3),12(a2) move.w 94(a3),18(a2) move.w (a1),2(a2) move.w 32(a1),6+2(a2) move.w 62(a1),12+2(a2) move.w 94(a1),18+2(a2) add.w #10,2(A2) add.w #10,6+2(a2) add.w #10,12+2(a2) add.w #10,18+2(A2) neg 2(a2) neg 6+2(a2) neg 12+2(a2) neg 18+2(a2) move.w (a4),2(a5) move.w (a4)+,2(a6) move.w (a4),6+2(a5) move.w (a4)+,6+2(a6) addq.l #2,a3 addq.l #2,a1 move.l a3,(a0) move.l a1,4(a0) move.l a4,8(a0) cmpi.l 12(a0),a3 beq juggleInit rts ;------------------------------------------------------------------------- ; Table des sinus pour le jongleur ... ;------------------------------------------------------------------------- jongx: dc.w 2 , 5 , 8 , 10 , 13 , 15 , 18 dc.w 20 , 21 , 23 , 24 , 26 , 26 , 27 , 27 dc.w 27 , 27 , 27 , 26 , 25 , 24 , 22 , 20 dc.w 18 , 16 , 14 , 11 , 9 , 6 , 3 , 1 dc.w-1 ,-4 ,-7 ,-9 ,-12 ,-14 ,-17 ,-19 dc.w-21 ,-22 ,-24 ,-25 ,-26 ,-27 ,-27 ,-27 dc.w-27 ,-27 ,-26 ,-25 ,-24 ,-23 ,-21 ,-19 dc.w-17 ,-15 ,-13 ,-10 ,-7 ,-5 ,-2 jongxend: dc.w 2 , 5 , 8 , 10 , 13 , 15 , 18 dc.w 20 , 21 , 23 , 24 , 26 , 26 , 27 , 27 dc.w 27 , 27 , 27 , 26 , 25 , 24 , 22 , 20 dc.w 18 , 16 , 14 , 11 , 9 , 6 , 3 , 1 dc.w-1 ,-4 ,-7 ,-9 ,-12 ,-14 ,-17 ,-19 dc.w-21 ,-22 ,-24 ,-25 ,-26 ,-27 ,-27 ,-27 dc.w-27 ,-27 ,-26 ,-25 ,-24 ,-23 ,-21 ,-19 dc.w-17 ,-15 ,-13 ,-10 ,-7 ,-5 ,-2 jongy: dc.w 59 dc.w 59 , 59 , 58 , 57 , 56 , 54 , 52 , 49 dc.w 47 , 43 , 40 , 37 , 33 , 29 , 25 dc.w 32 , 40 , 48 , 56 , 63 , 70 , 76 dc.w 82 , 87 , 92 , 96 , 99 , 102 , 103 , 104 dc.w 104 , 104 , 102 , 100 , 97 , 94 , 89 , 84 dc.w 79 , 72 , 66 , 59 , 51 , 44 , 36 , 28 dc.w 20 , 23 , 27 , 31 , 35 , 39 , 42 , 45 dc.w 48 , 51 , 53 , 55 , 57 , 58 , 59 jongyend: dc.w 59 dc.w 59 , 59 , 58 , 57 , 56 , 54 , 52 , 49 dc.w 47 , 43 , 40 , 37 , 33 , 29 , 25 dc.w 32 , 40 , 48 , 56 , 63 , 70 , 76 dc.w 82 , 87 , 92 , 96 , 99 , 102 , 103 , 104 dc.w 104 , 104 , 102 , 100 , 97 , 94 , 89 , 84 dc.w 79 , 72 , 66 , 59 , 51 , 44 , 36 , 28 dc.w 20 , 23 , 27 , 31 , 35 , 39 , 42 , 45 dc.w 48 , 51 , 53 , 55 , 57 , 58 , 59 armjong: dc.w -20,-20,-22,-24,-24,-28,-28,-32,-24,-28,-22,-24 dc.w -20,-20,-20,-20,-20,-20,-20,-20,-20,-20 dc.w -20,-20,-20,-20,-20,-20,-20,-20 dc.w -20,-20,-22,-24,-24,-28,-28,-32,-24,-28,-22,-24 dc.w -20,-20,-20,-20,-20,-20,-20,-20,-20,-20 dc.w -20,-20,-20,-20,-20,-20,-20,-20 dc.w -20,-20,-22,-24,-24,-28,-28,-32,-24,-28,-22,-24 dc.w -20,-20,-20,-20,-20,-20,-20,-20,-20,-20 dc.w -20,-20,-20,-20,-20,-20,-20,-20 dc.w -20,-20,-22,-24,-24,-28,-28,-32,-24,-28,-22,-24 dc.w -20,-20,-20,-20,-20,-20,-20,-20,-20,-20 dc.w -20,-20,-20,-20,-20,-20,-20,-20 dc.w -20,-20,-22,-24,-24,-28,-28,-32,-24,-28,-22,-24 dc.w -20,-20,-20,-20,-20,-20,-20,-20,-20,-20 dc.w -20,-20,-20,-20,-20,-20,-20,-20 dc.w -20,-20,-22,-24,-24,-28,-28,-32,-24,-28,-22,-24 dc.w -20,-20,-20,-20,-20,-20,-20,-20,-20,-20 ballPoints: ; Structure de points ... dc.w 36 dc.w 0,-100,0 dc.w -9,-103,17 dc.w 5,-103,17 dc.w 0,-80,0 dc.w 0,-55,0 dc.w 0,-20,0 dc.w 28,-60,0 dc.w 28,-45,4 dc.w 28,-30,8 dc.w 28,-20,12 jon2: dc.w 28,-20,22 dc.w 28,-20,32 dc.w -28,-60,0 dc.w -28,-45,4 dc.w -28,-30,8 dc.w -28,-20,12 jon3: dc.w -28,-20,22 dc.w -28,-20,32 dc.w 20,-10,0 dc.w 21,5,4 dc.w 22,20,8 dc.w 23,35,10 dc.w 24,48,8 dc.w 25,60,6 dc.w 26,74,4 dc.w -20,-10,0 dc.w -21,5,4 dc.w -22,20,8 dc.w -23,35,10 dc.w -24,48,8 dc.w -25,60,6 dc.w -26,74,4 jon: dc.w -28,-60,28 dc.w -28,-50,28 dc.w -28,-30,28 dc.w -28,-20,28 ballArt: dc.w 44,1,1,2,40,41,25,24,24,23,22,21,25,24,24,23,22,21 dc.w 25,24,24,23,23,23,24,25,24,24,23,23,23,24 dc.w 7,7,7,7 end: