home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 594b.lha / VectorLibrary / Assembler / vd_bob.s < prev    next >
Text File  |  1991-11-09  |  4KB  |  210 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.  lea    Joy(pc),a1
  34.  moveq  #0,d0
  35.  jsr    UseJoy(a6)          ; Joystick anmelden
  36.  
  37.  lea    bobname(pc),a0      ; AUF RICHTIGEN PFAD ACHTEN!!
  38.  lea    boblist(pc),a1
  39.  sub.l  a2,a2
  40.  moveq  #3,d0
  41.  jsr    InitVBOBs(a6)       ; VBOBs initialisieren
  42.  tst.l  d0
  43.  bne.s  end
  44.  
  45.  move.w NewVScreen+12(pc),d0
  46.  jsr    AutoScaleOn(a6)     ; Entzerrung für evtl. höhere Auflösungen an
  47.  
  48.  lea    World(pc),a1
  49.  jsr    DoAnim(a6)          ; Animation laufen lassen
  50.  
  51.  jsr    FreeJoy(a6)         ; Joystick freigeben
  52.  
  53.  jsr    FreeVBOBs(a6)       ; VBOBs deallokieren
  54.  
  55.  jsr    CloseVScreen(a6)    ; VScreen schließen
  56.  
  57.  move.l 4.w,a6
  58.  move.l vecbase(pc),a1
  59.  jsr    -414(a6)            ; vector.library schließen
  60.  
  61. end:
  62.  rts
  63.  
  64. vecbase   dc.l 0
  65. viewstruc dc.l 0
  66.  
  67. NewVScreen:
  68.  dc.w 0,0
  69.  dc.w 320,256
  70.  dc.w 3
  71.  dc.b 0,0
  72.  dc.w $00
  73.  dc.l 0
  74.  dc.l title
  75.  
  76.  dc.w 0
  77.  dc.w 0,0
  78.  dc.w 320,256
  79.  dc.w 3
  80.   
  81. title: dc.b "vector.library   ©1991 by A. Lippert"
  82.  even
  83.  
  84. Joy:
  85.  dc.w 50,-1200,-16000
  86.  dc.w 3,3,3
  87.  
  88. World:
  89.  dc.w 0,1
  90.  dc.l object1
  91.  
  92. object1:
  93.  dc.l obpd
  94.  dc.l obad
  95.  dc.l obmv
  96.  dc.w 0
  97.  dc.w 0,0,-1500
  98.  dc.w 20,30,0
  99.  
  100.  
  101. obpd:     ; Eckpunkt-Tabelle
  102.  dc.w 19
  103.  dc.w -80,-20,80,0
  104.  dc.w -80,20,80,0
  105.  dc.w 80,-20,80,0
  106.  dc.w 80,20,80,0
  107.  
  108.  dc.w -80,-20,-80,0
  109.  dc.w -80,20,-80,0
  110.  dc.w 80,-20,-80,0
  111.  dc.w 80,20,-80,0
  112.  
  113.  dc.w -50,-20,50,0
  114.  dc.w -50,20,50,0
  115.  dc.w 50,-20,50,0
  116.  dc.w 50,20,50,0
  117.  
  118.  dc.w -50,-20,-50,0
  119.  dc.w -50,20,-50,0
  120.  dc.w 50,-20,-50,0
  121.  dc.w 50,20,-50,0
  122.  
  123.  dc.w 0,60,0,3
  124.  dc.w 0,0,0,0
  125.  dc.w 0,-60,0,3
  126.  
  127.  
  128. obad:    ; Flächen-Tabelle
  129.  dc.w 19
  130.  dc.w 4,2,1*4,3*4,2*4,0*4,1*4,0,0,0,0
  131.  dc.w 4,4,5*4,4*4,6*4,7*4,5*4,0,0,0,0
  132.  dc.w 4,3,0*4,4*4,5*4,1*4,0*4,0,0,0,0
  133.  dc.w 4,3,2*4,3*4,7*4,6*4,2*4,0,0,0,0
  134.  
  135.  dc.w 4,5,9*4,8*4,10*4,11*4,9*4,0,0,0,0
  136.  dc.w 4,3,13*4,15*4,14*4,12*4,13*4,0,0,0,0
  137.  dc.w 4,4,8*4,9*4,13*4,12*4,8*4,0,0,0,0
  138.  dc.w 4,4,10*4,14*4,15*4,11*4,10*4,0,0,0,0
  139.  
  140.  dc.w 4,2,1*4,9*4,11*4,3*4,1*4,0,0,0,0
  141.  dc.w 4,2,1*4,5*4,13*4,9*4,1*4,0,0,0,0
  142.  dc.w 4,2,5*4,7*4,15*4,13*4,5*4,0,0,0,0
  143.  dc.w 4,2,11*4,15*4,7*4,3*4,11*4,0,0,0,0
  144.  
  145.  dc.w 4,6,0*4,2*4,10*4,8*4,0*4,0,0,0,0
  146.  dc.w 4,6,0*4,8*4,12*4,4*4,0*4,0,0,0,0
  147.  dc.w 4,6,4*4,12*4,14*4,6*4,4*4,0,0,0,0
  148.  dc.w 4,6,10*4,2*4,6*4,14*4,10*4,0,0,0,0
  149.  
  150.  dc.w -1,4,16*4,0,0,0,0,0,0,0,0
  151.  dc.w -1,4,17*4,0,0,0,0,0,0,0,0
  152.  dc.w -1,4,18*4,0,0,0,0,0,0,0,0
  153.  
  154.  
  155. obmv:
  156.  dc.w 1500, 0,0,0, 0,0,0   ; 1500 Ticks Zeit für's Joystick
  157.  dc.w -1
  158.  
  159.  
  160. coltab:
  161.  dc.w 0, 0,0,0
  162.  dc.w 1, 12,12,13
  163.  dc.w 2, 5,6,10
  164.  dc.w 3, 3,4,8
  165.  dc.w 4, 2,3,7
  166.  dc.w 5, 1,2,6
  167.  dc.w 6, 0,1,5
  168.  dc.w 7, 0,0,4
  169.  dc.w -1
  170.  
  171.  
  172. boblist:
  173.  dc.w 16
  174.  dc.w 2,31
  175.  dc.l 0,0
  176.  dc.w 2,29
  177.  dc.l 0,0
  178.  dc.w 2,27
  179.  dc.l 0,0
  180.  dc.w 2,25
  181.  dc.l 0,0
  182.  dc.w 2,23
  183.  dc.l 0,0
  184.  dc.w 2,21
  185.  dc.l 0,0
  186.  dc.w 2,19
  187.  dc.l 0,0
  188.  dc.w 2,17
  189.  dc.l 0,0
  190.  dc.w 1,15
  191.  dc.l 0,0
  192.  dc.w 1,13
  193.  dc.l 0,0
  194.  dc.w 1,11
  195.  dc.l 0,0
  196.  dc.w 1,9
  197.  dc.l 0,0
  198.  dc.w 1,7
  199.  dc.l 0,0
  200.  dc.w 1,5
  201.  dc.l 0,0
  202.  dc.w 1,3
  203.  dc.l 0,0
  204.  dc.w 1,1
  205.  dc.l 0,0
  206.  
  207. bobname dc.b "VBOBs:bs1lo3_??.gfx",0   ; PFAD BEACHTEN!!
  208. vecname dc.b "vector.library",0
  209. gfxname dc.b "graphics.library",0
  210.