; DevPac 2.14 !! SetVBI = -30 InitVBOBs = -36 OpenVScreen = -42 CloseVScreen = -48 UseJoy = -54 DoAnim = -60 RotateX = -66 RotateY = -72 RotateZ = -78 FreeVBOBs = -84 AutoScaleOn = -90 AutoScaleOff = -96 FreeJoy = -102 SetColors = -108 move.l 4.w,a6 lea vecname(pc),a1 jsr -408(a6) ; vector.library öffnen move.l d0,vecbase beq.s end lea NewVScreen(pc),a1 move.l vecbase(pc),a6 jsr OpenVScreen(a6) ; VScreen öffnen move.l d0,viewstruc move.l viewstruc(pc),a0 lea coltab(pc),a1 jsr SetColors(a6) ; Farben setzen move.w NewVScreen+12(pc),d0 jsr AutoScaleOn(a6) ; Entzerrung für evtl. höhere Auflösungen an moveq #0,d0 sub.l a1,a1 jsr UseJoy(a6) ; Joystick anmelden lea World(pc),a1 jsr DoAnim(a6) ; Animation laufen lassen jsr FreeJoy(a6) ; Joystick freigeben jsr CloseVScreen(a6) ; VScreen schließen move.l 4.w,a6 move.l vecbase(pc),a1 jsr -414(a6) ; vector.library schließen end: rts vecbase dc.l 0 viewstruc dc.l 0 NewVScreen: dc.w 0,0 dc.w 320,256 dc.w 3 dc.b 0,0 dc.w $00 dc.l 0 dc.l title dc.w 0 dc.w 0,0 dc.w 320,256 dc.w 3 title: dc.b "vector.library ©1991 by A. Lippert" even World: dc.w 0,1 dc.l object1 object1: dc.l plnpd dc.l plnad dc.l plnmv dc.w 0 dc.w 0,0,-14500 dc.w 0,0,0 plnpd: ; Eckpunkt-Tabelle dc.w 48 dc.w -200,0,-14,0 dc.w -190,0,-20,0 dc.w -128,0,-28,0 dc.w -94,0,-29,0 dc.w 4,0,-30,0 dc.w 86,0,-16,0 dc.w 180,0,16,0 dc.w -118,30,-17,0 dc.w -118,-30,-17,0 dc.w -40,38,-15,0 dc.w -40,-38,-15,0 dc.w 36,38,-6,0 dc.w 36,-38,-6,0 dc.w 114,24,8,0 dc.w 114,-24,8,0 dc.w 180,0,24,0 dc.w -160,0,6,0 dc.w -124,0,15,0 dc.w -130,14,5,0 dc.w -130,-14,5,0 dc.w -112,10,12,0 dc.w -112,-10,12,0 dc.w -88,22,13,0 dc.w -88,-22,13,0 dc.w -14,28,16,0 dc.w -14,-28,16,0 dc.w 50,26,22,0 dc.w 50,-26,22,0 dc.w 96,14,26,0 dc.w 96,-14,26,0 dc.w -62,0,26,0 dc.w 24,0,34,0 dc.w 68,0,33,0 dc.w 124,4,28,0 dc.w -40,38,-5,0 dc.w -40,-38,-5,0 dc.w 66,-150,3,0 dc.w 104,-150,6,0 dc.w 66,150,3,0 dc.w 104,150,6,0 dc.w 124,-4,28,0 dc.w 120,0,40,0 dc.w 134,2,38,0 dc.w 134,-2,38,0 dc.w 184,0,40,0 dc.w 134,0,44,0 dc.w 200,70,40,0 dc.w 200,-70,40,0 plnad: ; Flächen-Tabelle dc.w 92 dc.w 3,2,0*4,1*4,7*4,0*4,0,0,0,0,0 dc.w 3,3,0*4,8*4,1*4,0*4,0,0,0,0,0 dc.w 3,3,1*4,2*4,7*4,1*4,0,0,0,0,0 dc.w 3,4,1*4,8*4,2*4,1*4,0,0,0,0,0 dc.w 3,2,0*4,18*4,16*4,0*4,0,0,0,0,0 dc.w 3,3,0*4,16*4,19*4,0*4,0,0,0,0,0 ;5 dc.w 3,3,0*4,7*4,18*4,0*4,0,0,0,0,0 dc.w 3,4,0*4,19*4,8*4,0*4,0,0,0,0,0 dc.w 3,2,7*4,22*4,18*4,7*4,0,0,0,0,0 dc.w 3,5,8*4,19*4,23*4,8*4,0,0,0,0,0 dc.w 3,4,2*4,3*4,7*4,2*4,0,0,0,0,0 ;10 dc.w 3,5,2*4,8*4,3*4,2*4,0,0,0,0,0 dc.w 3,1,7*4,34*4,22*4,7*4,0,0,0,0,0 dc.w 3,6,8*4,23*4,35*4,8*4,0,0,0,0,0 dc.w 3,5,3*4,9*4,7*4,3*4,0,0,0,0,0 dc.w 3,6,3*4,8*4,10*4,3*4,0,0,0,0,0 ;15 dc.w 3,2,22*4,34*4,24*4,22*4,0,0,0,0,0 dc.w 3,5,23*4,25*4,35*4,23*4,0,0,0,0,0 dc.w 3,3,22*4,24*4,30*4,22*4,0,0,0,0,0 dc.w 3,4,23*4,30*4,25*4,23*4,0,0,0,0,0 dc.w 3,2,20*4,22*4,30*4,20*4,0,0,0,0,0 ;20 dc.w 3,3,21*4,30*4,23*4,21*4,0,0,0,0,0 dc.w 3,1,17*4,20*4,30*4,17*4,0,0,0,0,0 dc.w 3,2,17*4,30*4,21*4,17*4,0,0,0,0,0 dc.w 3,6,3*4,4*4,9*4,3*4,0,0,0,0,0 dc.w 3,7,3*4,10*4,4*4,3*4,0,0,0,0,0 ;25 dc.w 3,5,4*4,11*4,9*4,4*4,0,0,0,0,0 dc.w 3,6,4*4,10*4,12*4,4*4,0,0,0,0,0 dc.w 3,3,11*4,24*4,34*4,11*4,0,0,0,0,0 dc.w 3,4,12*4,35*4,25*4,12*4,0,0,0,0,0 dc.w 3,4,24*4,31*4,30*4,24*4,0,0,0,0,0 ;30 dc.w 3,5,25*4,30*4,31*4,25*4,0,0,0,0,0 dc.w 3,2,11*4,26*4,24*4,11*4,0,0,0,0,0 dc.w 3,3,12*4,25*4,27*4,12*4,0,0,0,0,0 dc.w 3,3,24*4,26*4,31*4,24*4,0,0,0,0,0 dc.w 3,4,25*4,31*4,27*4,25*4,0,0,0,0,0 ;35 dc.w 3,5,4*4,5*4,11*4,4*4,0,0,0,0,0 dc.w 3,6,4*4,12*4,5*4,4*4,0,0,0,0,0 dc.w 3,2,26*4,32*4,31*4,26*4,0,0,0,0,0 dc.w 3,3,27*4,31*4,32*4,27*4,0,0,0,0,0 dc.w 3,3,11*4,13*4,26*4,11*4,0,0,0,0,0 ;40 dc.w 3,4,12*4,27*4,14*4,12*4,0,0,0,0,0 dc.w 3,4,5*4,13*4,11*4,5*4,0,0,0,0,0 dc.w 3,5,5*4,12*4,14*4,5*4,0,0,0,0,0 dc.w 3,3,26*4,28*4,32*4,26*4,0,0,0,0,0 dc.w 3,4,27*4,32*4,29*4,27*4,0,0,0,0,0 ;45 dc.w 3,4,13*4,28*4,26*4,13*4,0,0,0,0,0 dc.w 3,5,14*4,27*4,29*4,14*4,0,0,0,0,0 dc.w 3,5,5*4,6*4,13*4,5*4,0,0,0,0,0 dc.w 3,6,5*4,14*4,6*4,5*4,0,0,0,0,0 dc.w 3,5,15*4,33*4,28*4,15*4,0,0,0,0,0 ;50 dc.w 3,6,15*4,29*4,40*4,15*4,0,0,0,0,0 dc.w 3,4,13*4,15*4,28*4,13*4,0,0,0,0,0 dc.w 3,5,14*4,29*4,15*4,14*4,0,0,0,0,0 dc.w 3,5,6*4,15*4,13*4,6*4,0,0,0,0,0 dc.w 3,6,6*4,14*4,15*4,6*4,0,0,0,0,0 ;55 dc.w 3,4,28*4,33*4,32*4,28*4,0,0,0,0,0 dc.w 3,5,29*4,32*4,40*4,29*4,0,0,0,0,0 dc.w 3,2,8*4,35*4,36*4,8*4,0,0,0,0,0 dc.w 3,3,35*4,37*4,36*4,35*4,0,0,0,0,0 dc.w 3,4,35*4,12*4,37*4,35*4,0,0,0,0,0 ;60 dc.w 3,5,8*4,36*4,10*4,8*4,0,0,0,0,0 dc.w 3,6,10*4,36*4,37*4,10*4,0,0,0,0,0 dc.w 3,7,10*4,37*4,12*4,10*4,0,0,0,0,0 dc.w 3,1,7*4,38*4,34*4,7*4,0,0,0,0,0 dc.w 3,2,34*4,38*4,39*4,34*4,0,0,0,0,0 ;70 dc.w 3,3,11*4,34*4,39*4,11*4,0,0,0,0,0 dc.w 3,4,7*4,9*4,38*4,7*4,0,0,0,0,0 dc.w 3,5,9*4,39*4,38*4,9*4,0,0,0,0,0 dc.w 3,6,9*4,11*4,39*4,9*4,0,0,0,0,0 dc.w 3,3,32*4,33*4,41*4,32*4,0,0,0,0,0 ;75 dc.w 3,2,33*4,42*4,41*4,33*4,0,0,0,0,0 dc.w 3,3,33*4,44*4,42*4,33*4,0,0,0,0,0 dc.w 3,4,15*4,44*4,33*4,15*4,0,0,0,0,0 dc.w 3,4,32*4,41*4,40*4,32*4,0,0,0,0,0 dc.w 3,5,40*4,41*4,43*4,40*4,0,0,0,0,0 ;80 dc.w 3,6,40*4,43*4,44*4,40*4,0,0,0,0,0 dc.w 3,7,15*4,40*4,44*4,15*4,0,0,0,0,0 dc.w 3,4,41*4,42*4,46*4,41*4,0,0,0,0,0 dc.w 3,5,42*4,44*4,46*4,42*4,0,0,0,0,0 dc.w 3,5,41*4,47*4,43*4,41*4,0,0,0,0,0 ;85 dc.w 3,6,43*4,47*4,44*4,43*4,0,0,0,0,0 dc.w 3,2,41*4,46*4,45*4,41*4,0,0,0,0,0 dc.w 3,3,44*4,45*4,46*4,44*4,0,0,0,0,0 dc.w 3,3,41*4,45*4,47*4,41*4,0,0,0,0,0 dc.w 3,4,44*4,47*4,45*4,44*4,0,0,0,0,0 ;90 dc.w 3,4,18*4,22*4,20*4,18*4,0,0,0,0,0 dc.w 3,5,16*4,18*4,20*4,16*4,0,0,0,0,0 dc.w 3,5,16*4,20*4,17*4,16*4,0,0,0,0,0 dc.w 3,6,16*4,17*4,21*4,16*4,0,0,0,0,0 dc.w 3,6,16*4,21*4,19*4,16*4,0,0,0,0,0 dc.w 3,7,19*4,21*4,23*4,19*4,0,0,0,0,0 coltab: ; Farb-Tabelle dc.w 0,0,0,0 dc.w 1,15,15,15 dc.w 2,14,14,14 dc.w 3,13,13,13 dc.w 4,12,12,12 dc.w 5,11,11,11 dc.w 6,10,10,10 dc.w 7,9,9,9 dc.w -1 plnmv: ; Bewegungs-Tabelle dc.w 1500, 0,0,0, 0,0,0 ; 1500 Ticks Zeit für's Joystick dc.w -1 vecname dc.b "vector.library",0 gfxname dc.b "graphics.library",0