home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 594b.lha / VectorLibrary / Assembler / vd_plane.s < prev    next >
Text File  |  1991-11-09  |  6KB  |  278 lines
  1.  ;  DevPac 2.14 !!
  2.  
  3. SetVBI       = -30
  4. InitVBOBs    = -36
  5. OpenVScreen  = -42
  6. CloseVScreen = -48
  7. UseJoy       = -54
  8. DoAnim       = -60
  9. RotateX      = -66
  10. RotateY      = -72
  11. RotateZ      = -78
  12. FreeVBOBs    = -84
  13. AutoScaleOn  = -90
  14. AutoScaleOff = -96
  15. FreeJoy      = -102
  16. SetColors    = -108
  17.  
  18.  move.l 4.w,a6
  19.  lea    vecname(pc),a1
  20.  jsr    -408(a6)            ; vector.library öffnen
  21.  move.l d0,vecbase
  22.  beq.s  end
  23.  
  24.  lea    NewVScreen(pc),a1
  25.  move.l vecbase(pc),a6
  26.  jsr    OpenVScreen(a6)     ; VScreen öffnen
  27.  move.l d0,viewstruc
  28.  
  29.  move.l viewstruc(pc),a0
  30.  lea    coltab(pc),a1
  31.  jsr    SetColors(a6)       ; Farben setzen
  32.  
  33.  move.w NewVScreen+12(pc),d0
  34.  jsr    AutoScaleOn(a6)     ; Entzerrung für evtl. höhere Auflösungen an
  35.  
  36.  moveq  #0,d0
  37.  sub.l  a1,a1
  38.  jsr    UseJoy(a6)          ; Joystick anmelden
  39.  
  40.  lea    World(pc),a1
  41.  jsr    DoAnim(a6)          ; Animation laufen lassen
  42.  
  43.  jsr    FreeJoy(a6)         ; Joystick freigeben
  44.  
  45.  jsr    CloseVScreen(a6)    ; VScreen schließen
  46.  
  47.  move.l 4.w,a6
  48.  move.l vecbase(pc),a1
  49.  jsr    -414(a6)            ; vector.library schließen
  50.  
  51. end:
  52.  rts
  53.  
  54. vecbase   dc.l 0
  55. viewstruc dc.l 0
  56.  
  57. NewVScreen:
  58.  dc.w 0,0
  59.  dc.w 320,256
  60.  dc.w 3
  61.  dc.b 0,0
  62.  dc.w $00
  63.  dc.l 0
  64.  dc.l title
  65.  
  66.  dc.w 0
  67.  dc.w 0,0
  68.  dc.w 320,256
  69.  dc.w 3
  70.   
  71. title: dc.b "vector.library   ©1991 by A. Lippert"
  72.  even
  73.  
  74. World:
  75.  dc.w 0,1
  76.  dc.l object1
  77.  
  78. object1:
  79.  dc.l plnpd
  80.  dc.l plnad
  81.  dc.l plnmv
  82.  dc.w 0
  83.  dc.w 0,0,-14500
  84.  dc.w 0,0,0
  85.  
  86. plnpd:          ; Eckpunkt-Tabelle
  87.      
  88.     dc.w    48
  89.      dc.w    -200,0,-14,0
  90.     dc.w    -190,0,-20,0
  91.     dc.w    -128,0,-28,0
  92.     dc.w    -94,0,-29,0
  93.     dc.w    4,0,-30,0
  94.  
  95.     dc.w    86,0,-16,0
  96.     dc.w    180,0,16,0
  97.     dc.w    -118,30,-17,0
  98.     dc.w    -118,-30,-17,0
  99.     dc.w    -40,38,-15,0
  100.  
  101.     dc.w    -40,-38,-15,0
  102.     dc.w    36,38,-6,0
  103.     dc.w    36,-38,-6,0
  104.     dc.w    114,24,8,0
  105.     dc.w    114,-24,8,0
  106.  
  107.     dc.w    180,0,24,0
  108.     dc.w    -160,0,6,0
  109.     dc.w    -124,0,15,0
  110.     dc.w    -130,14,5,0
  111.     dc.w    -130,-14,5,0
  112.     
  113.     dc.w    -112,10,12,0
  114.     dc.w    -112,-10,12,0
  115.     dc.w    -88,22,13,0
  116.     dc.w    -88,-22,13,0
  117.     dc.w    -14,28,16,0
  118.  
  119.     dc.w    -14,-28,16,0
  120.     dc.w    50,26,22,0
  121.     dc.w    50,-26,22,0
  122.     dc.w    96,14,26,0
  123.     dc.w    96,-14,26,0
  124.  
  125.     dc.w    -62,0,26,0
  126.     dc.w    24,0,34,0
  127.     dc.w    68,0,33,0
  128.     dc.w    124,4,28,0
  129.     dc.w    -40,38,-5,0
  130.  
  131.     dc.w    -40,-38,-5,0
  132.     dc.w    66,-150,3,0
  133.     dc.w    104,-150,6,0
  134.     dc.w    66,150,3,0
  135.     dc.w    104,150,6,0
  136.     
  137.     dc.w    124,-4,28,0
  138.     dc.w    120,0,40,0
  139.     dc.w    134,2,38,0
  140.     dc.w    134,-2,38,0
  141.     dc.w    184,0,40,0
  142.  
  143.     dc.w    134,0,44,0
  144.     dc.w    200,70,40,0
  145.     dc.w    200,-70,40,0
  146.     
  147.     
  148. plnad:   ; Flächen-Tabelle
  149.     dc.w    92
  150.     dc.w    3,2,0*4,1*4,7*4,0*4,0,0,0,0,0
  151.     dc.w    3,3,0*4,8*4,1*4,0*4,0,0,0,0,0
  152.     dc.w    3,3,1*4,2*4,7*4,1*4,0,0,0,0,0
  153.     dc.w    3,4,1*4,8*4,2*4,1*4,0,0,0,0,0
  154.     dc.w    3,2,0*4,18*4,16*4,0*4,0,0,0,0,0            
  155.     
  156.     dc.w    3,3,0*4,16*4,19*4,0*4,0,0,0,0,0            ;5
  157.     dc.w    3,3,0*4,7*4,18*4,0*4,0,0,0,0,0
  158.     dc.w    3,4,0*4,19*4,8*4,0*4,0,0,0,0,0
  159.     dc.w    3,2,7*4,22*4,18*4,7*4,0,0,0,0,0
  160.     dc.w    3,5,8*4,19*4,23*4,8*4,0,0,0,0,0
  161.     
  162.     dc.w    3,4,2*4,3*4,7*4,2*4,0,0,0,0,0            ;10
  163.     dc.w    3,5,2*4,8*4,3*4,2*4,0,0,0,0,0
  164.     dc.w    3,1,7*4,34*4,22*4,7*4,0,0,0,0,0
  165.     dc.w    3,6,8*4,23*4,35*4,8*4,0,0,0,0,0
  166.     dc.w    3,5,3*4,9*4,7*4,3*4,0,0,0,0,0
  167.  
  168.     dc.w    3,6,3*4,8*4,10*4,3*4,0,0,0,0,0            ;15
  169.     dc.w    3,2,22*4,34*4,24*4,22*4,0,0,0,0,0
  170.     dc.w    3,5,23*4,25*4,35*4,23*4,0,0,0,0,0
  171.     dc.w    3,3,22*4,24*4,30*4,22*4,0,0,0,0,0
  172.     dc.w    3,4,23*4,30*4,25*4,23*4,0,0,0,0,0
  173.  
  174.     dc.w    3,2,20*4,22*4,30*4,20*4,0,0,0,0,0        ;20
  175.     dc.w    3,3,21*4,30*4,23*4,21*4,0,0,0,0,0
  176.     dc.w    3,1,17*4,20*4,30*4,17*4,0,0,0,0,0
  177.     dc.w    3,2,17*4,30*4,21*4,17*4,0,0,0,0,0
  178.     dc.w    3,6,3*4,4*4,9*4,3*4,0,0,0,0,0
  179.  
  180.     dc.w    3,7,3*4,10*4,4*4,3*4,0,0,0,0,0            ;25
  181.     dc.w    3,5,4*4,11*4,9*4,4*4,0,0,0,0,0
  182.     dc.w    3,6,4*4,10*4,12*4,4*4,0,0,0,0,0
  183.     dc.w    3,3,11*4,24*4,34*4,11*4,0,0,0,0,0
  184.     dc.w    3,4,12*4,35*4,25*4,12*4,0,0,0,0,0
  185.  
  186.     dc.w    3,4,24*4,31*4,30*4,24*4,0,0,0,0,0        ;30
  187.     dc.w    3,5,25*4,30*4,31*4,25*4,0,0,0,0,0
  188.     dc.w    3,2,11*4,26*4,24*4,11*4,0,0,0,0,0
  189.     dc.w    3,3,12*4,25*4,27*4,12*4,0,0,0,0,0
  190.     dc.w    3,3,24*4,26*4,31*4,24*4,0,0,0,0,0
  191.     
  192.     dc.w    3,4,25*4,31*4,27*4,25*4,0,0,0,0,0        ;35
  193.     dc.w    3,5,4*4,5*4,11*4,4*4,0,0,0,0,0
  194.     dc.w    3,6,4*4,12*4,5*4,4*4,0,0,0,0,0
  195.     dc.w    3,2,26*4,32*4,31*4,26*4,0,0,0,0,0
  196.     dc.w    3,3,27*4,31*4,32*4,27*4,0,0,0,0,0
  197.  
  198.     dc.w    3,3,11*4,13*4,26*4,11*4,0,0,0,0,0        ;40
  199.     dc.w    3,4,12*4,27*4,14*4,12*4,0,0,0,0,0
  200.     dc.w    3,4,5*4,13*4,11*4,5*4,0,0,0,0,0
  201.     dc.w    3,5,5*4,12*4,14*4,5*4,0,0,0,0,0
  202.     dc.w    3,3,26*4,28*4,32*4,26*4,0,0,0,0,0
  203.  
  204.     dc.w    3,4,27*4,32*4,29*4,27*4,0,0,0,0,0        ;45
  205.     dc.w    3,4,13*4,28*4,26*4,13*4,0,0,0,0,0
  206.     dc.w    3,5,14*4,27*4,29*4,14*4,0,0,0,0,0
  207.     dc.w    3,5,5*4,6*4,13*4,5*4,0,0,0,0,0
  208.     dc.w    3,6,5*4,14*4,6*4,5*4,0,0,0,0,0
  209.     
  210.     dc.w    3,5,15*4,33*4,28*4,15*4,0,0,0,0,0        ;50
  211.     dc.w    3,6,15*4,29*4,40*4,15*4,0,0,0,0,0
  212.     dc.w    3,4,13*4,15*4,28*4,13*4,0,0,0,0,0
  213.     dc.w    3,5,14*4,29*4,15*4,14*4,0,0,0,0,0
  214.     dc.w    3,5,6*4,15*4,13*4,6*4,0,0,0,0,0
  215.  
  216.     dc.w    3,6,6*4,14*4,15*4,6*4,0,0,0,0,0            ;55
  217.     dc.w    3,4,28*4,33*4,32*4,28*4,0,0,0,0,0
  218.     dc.w    3,5,29*4,32*4,40*4,29*4,0,0,0,0,0
  219.     dc.w    3,2,8*4,35*4,36*4,8*4,0,0,0,0,0
  220.     dc.w    3,3,35*4,37*4,36*4,35*4,0,0,0,0,0
  221.  
  222.     dc.w    3,4,35*4,12*4,37*4,35*4,0,0,0,0,0        ;60
  223.     dc.w    3,5,8*4,36*4,10*4,8*4,0,0,0,0,0
  224.     dc.w    3,6,10*4,36*4,37*4,10*4,0,0,0,0,0
  225.     dc.w    3,7,10*4,37*4,12*4,10*4,0,0,0,0,0
  226.     dc.w    3,1,7*4,38*4,34*4,7*4,0,0,0,0,0
  227.  
  228.     dc.w    3,2,34*4,38*4,39*4,34*4,0,0,0,0,0        ;70
  229.     dc.w    3,3,11*4,34*4,39*4,11*4,0,0,0,0,0
  230.     dc.w    3,4,7*4,9*4,38*4,7*4,0,0,0,0,0
  231.     dc.w    3,5,9*4,39*4,38*4,9*4,0,0,0,0,0
  232.     dc.w    3,6,9*4,11*4,39*4,9*4,0,0,0,0,0
  233.     
  234.     dc.w    3,3,32*4,33*4,41*4,32*4,0,0,0,0,0        ;75
  235.     dc.w    3,2,33*4,42*4,41*4,33*4,0,0,0,0,0
  236.     dc.w    3,3,33*4,44*4,42*4,33*4,0,0,0,0,0
  237.     dc.w    3,4,15*4,44*4,33*4,15*4,0,0,0,0,0
  238.     dc.w    3,4,32*4,41*4,40*4,32*4,0,0,0,0,0
  239.  
  240.     dc.w    3,5,40*4,41*4,43*4,40*4,0,0,0,0,0        ;80
  241.     dc.w    3,6,40*4,43*4,44*4,40*4,0,0,0,0,0
  242.     dc.w    3,7,15*4,40*4,44*4,15*4,0,0,0,0,0
  243.     dc.w    3,4,41*4,42*4,46*4,41*4,0,0,0,0,0
  244.     dc.w    3,5,42*4,44*4,46*4,42*4,0,0,0,0,0
  245.  
  246.     dc.w    3,5,41*4,47*4,43*4,41*4,0,0,0,0,0        ;85
  247.     dc.w    3,6,43*4,47*4,44*4,43*4,0,0,0,0,0
  248.     dc.w    3,2,41*4,46*4,45*4,41*4,0,0,0,0,0
  249.     dc.w    3,3,44*4,45*4,46*4,44*4,0,0,0,0,0
  250.     dc.w    3,3,41*4,45*4,47*4,41*4,0,0,0,0,0
  251.  
  252.     dc.w    3,4,44*4,47*4,45*4,44*4,0,0,0,0,0        ;90
  253.     dc.w    3,4,18*4,22*4,20*4,18*4,0,0,0,0,0
  254.     dc.w    3,5,16*4,18*4,20*4,16*4,0,0,0,0,0
  255.     dc.w    3,5,16*4,20*4,17*4,16*4,0,0,0,0,0
  256.     dc.w    3,6,16*4,17*4,21*4,16*4,0,0,0,0,0
  257.  
  258.     dc.w    3,6,16*4,21*4,19*4,16*4,0,0,0,0,0
  259.     dc.w    3,7,19*4,21*4,23*4,19*4,0,0,0,0,0
  260.  
  261. coltab:   ; Farb-Tabelle
  262.  dc.w 0,0,0,0
  263.  dc.w 1,15,15,15
  264.  dc.w 2,14,14,14
  265.  dc.w 3,13,13,13
  266.  dc.w 4,12,12,12
  267.  dc.w 5,11,11,11
  268.  dc.w 6,10,10,10
  269.  dc.w 7,9,9,9
  270.  dc.w -1
  271.  
  272. plnmv:                    ; Bewegungs-Tabelle
  273.  dc.w 1500, 0,0,0, 0,0,0  ; 1500 Ticks Zeit für's Joystick
  274.  dc.w -1
  275.  
  276. vecname dc.b "vector.library",0
  277. gfxname dc.b "graphics.library",0
  278.