home *** CD-ROM | disk | FTP | other *** search
/ Fujiology Archive / fujiology_archive_v1_0.iso / !FALCON / LINEOUT / DELTA.ZIP / DELTASRC.ZIP / DELTA.SRC / CONCH.SO < prev    next >
Text File  |  2002-12-21  |  33KB  |  1,664 lines
  1. ; A nautilus seashell disturbs the society of clambs.
  2. ; A screen for the delta demo using ufly.
  3.  
  4. ;======= OBJECT EQUATES ====================================================
  5.  
  6. Conch.BACKCOL:    =    $01EF01EF            ; $00$3C$78
  7.  
  8. ; clamb
  9. Conch.CL_RINGS:    =    4 5                ; #points in spiral
  10. Conch.CL_SPIRS:    =    6 8                ; #spirals
  11. Conch.CL_RADIUS:=    700                ; final length of spiral
  12. Conch.CL_ANGLE:    =    sintbllen/2            ; final angle of spiral
  13.  
  14. ; conch
  15. Conch.CO_RINGS:    =    24 24
  16. Conch.CO_SPIRS:    =    8 10
  17. Conch.CO_RADIUS:=    400                ; final length of spiral
  18. Conch.CO_ANGLE:    =    sintbllen*2            ; final angle of spiral
  19.  
  20. ; horn
  21. Conch.RINGS:    =    12                ; #points in spiral
  22. Conch.SPIRALS:    =    12                ; #spirals
  23. Conch.POINTS:    =    Conch.RINGS*Conch.SPIRALS
  24. Conch.POLYS:    =    (Conch.RINGS-1)*Conch.SPIRALS
  25. Conch.RADIUS:    =    400                ; final length of spiral
  26. Conch.ANGLE:    =    sintbllen*2            ; final angle of spiral
  27. Conch.ALPHA:    =    $2000                ; variance in spiral amp
  28.  
  29.             RSRESET
  30. Conch.conch:        RS.W    10000
  31. Conch.clamb:        RS.W    10000
  32. Conch.BLOCK_SIZE:    RS.B    0
  33.  
  34. ;======= OBJECT TABLE ======================================================
  35.  
  36. ; Must be first in object!!
  37. Conch.table:
  38.     DC.L    Conch.mainLoop
  39.     DC.L    Conch.init
  40.     DC.L    rts
  41.     DC.L    Conch.stopClambs
  42.     DC.L    Conch.startClambs
  43.     DC.L    Conch.setCloseUp
  44.     DC.L    Conch.endCloseUp
  45.     DC.L    Conch.setFadeIn
  46.     DC.L    0
  47.  
  48.     IFND    DEMO_SYSTEM
  49.     INCLUDE    SFLY_DSP.S                ; Include the CPU-DSP engine.
  50.     TEXT
  51.     ENDC
  52.  
  53. ;======= INIT SUBROUTINE ===================================================
  54.  
  55. ; OUTPUT:
  56. ; d0.l: 0   = All clear, neg = Error! Not initialized!
  57. Conch.init:
  58.     move.l    #Conch.BLOCK_SIZE,d0
  59.     bsr.l    Mem.register
  60.  
  61.     lea    sine_tbl,a1
  62.     bsr.l    Matrix.init
  63.  
  64. .success:
  65.     moveq    #0,d0
  66.     rts
  67. .error:    moveq    #-1,d0
  68.     rts
  69.  
  70. ;======= REALTIME INIT SUBROUTINE ==========================================
  71.  
  72. Conch.realtimeInit:
  73.     move.l    #rts,vbl_gfx
  74.  
  75.     bsr.l    Mem.getBlock
  76.  
  77.     move.l    d0,d1
  78.     addi.l    #Conch.conch,d1
  79.     move.l    d1,Conch.conchAdr
  80.     move.l    d0,d1
  81.     addi.l    #Conch.clamb,d1
  82.     move.l    d1,Conch.clambAdr
  83.  
  84.     bsr.l    HumanFly.init
  85.  
  86.     lea    Viewport.settingsTable,a0
  87.     move.w    #320,Viewport.XSCREEN(a0)
  88.     move.w    #200,Viewport.YSCREEN(a0)
  89.     move.w    #0,Viewport.XSTART(a0)
  90.     move.w    #0,Viewport.YSTART(a0)
  91.     move.w    #320,Viewport.XEND(a0)
  92.     move.w    #200,Viewport.YEND(a0)
  93.     move.w    #160,Viewport.XCENTER(a0)
  94.     move.w    #100,Viewport.YCENTER(a0)
  95.     move.w    #256+32,Viewport.ASPECT(a0)
  96.     move.w    #$100,Viewport.FOCAL(a0)
  97.     bsr.l    Viewport.update
  98.  
  99.     lea    Conch.textureTable,a0
  100.     lea    Conch.colorTable,a1
  101.     bsr.l    Polygon.init
  102.  
  103.     bsr.l    ObjectRegistry.clear
  104.  
  105.     move.w    #Conch.CL_RADIUS,d0
  106.     move.w    #Conch.CL_ANGLE,d1
  107.     move.w    #Conch.CL_SPIRS,d2
  108.     move.w    #Conch.CL_RINGS,d3
  109.     moveq    #1,d4
  110.     movea.l    Conch.clambAdr,a0
  111.     bsr.w    Conch.initTriClambObject
  112. ; d0.l=size of generated object
  113.     movea.l    Conch.clambAdr,a0
  114.     bsr.l    ObjectRegistry.set
  115.  
  116.     move.w    #Conch.CO_RADIUS,d0
  117.     move.w    #Conch.CO_ANGLE,d1
  118.     move.w    #Conch.CO_SPIRS,d2
  119.     move.w    #Conch.CO_RINGS,d3
  120.     moveq    #0,d4
  121.     movea.l    Conch.conchAdr,a0
  122.     bsr.w    Conch.initClambObject
  123. ; d0.l=size of generated object
  124.     movea.l    Conch.conchAdr,a0
  125.     bsr.l    ObjectRegistry.set
  126.  
  127.     lea    Conch.gradTable,a1
  128.     lea    Conch.backPal,a0
  129.     bsr.l    Pal.makeGradientHc
  130.  
  131.     bsr    Conch.setFadeIn
  132.  
  133.     move.w    monitormode,d0
  134.     cmpi.w    #vga60,d0
  135.     beq.s    .vga60
  136.     cmpi.w    #vga100,d0
  137.     beq.s    .vga100
  138.     cmpi.w    #rgb50,d0
  139.     beq.s    .rgb50
  140. ; Unknown monitormode..
  141.     rts
  142. .vga60:    move.l    #vga60_16bit_320_200,Conch.resRout
  143.     rts
  144. .vga100:move.l    #vga100_16bit_320_200,Conch.resRout
  145.     rts
  146. .rgb50:    move.l    #rgb50_16bit_320_200,Conch.resRout
  147.     rts
  148.  
  149. ;======= SCREENINIT SUBROUTINE =============================================
  150.  
  151. Conch.initScreen:
  152.     rts
  153.  
  154. ;======= MAINLOOP SUBROUTINE ===============================================
  155.  
  156. Conch.mainLoop:
  157.     movea.l    scr,a0
  158.     bsr.l    Primitive.setScreenbuffer
  159.  
  160.     move.l    frmcnt,d0
  161.     sub.l    lastframecount,d0
  162.     bne.s    .end_realtime_init
  163.     move.l    d0,-(sp)
  164.     bsr    Conch.realtimeInit
  165.     move.l    (sp)+,d0
  166. .end_realtime_init:
  167.     cmpi.l    #3,d0
  168.     bhs.s    .end_screeninit
  169.     bsr    Conch.initScreen
  170. .end_screeninit:
  171.  
  172.     move.w    $04BC.w,d0
  173.     sub.w    Conch.clambsStartTime,d0
  174.     move.w    d0,Conch.time
  175.     tst.w    Conch.clambsMoving
  176.     bne.s    .end_time_shit
  177.     clr.w    Conch.time
  178. .end_time_shit:
  179.  
  180.     movea.l    Conch.paintRout,a0
  181.     jsr    (a0)
  182.  
  183.     lea    scr,a0
  184.     move.l    (a0)+,d0
  185.     move.l    (a0)+,d1
  186.     move.l    (a0),-4(a0)
  187.     move.l    d0,(a0)
  188.     move.l    d1,-8(a0)
  189.  
  190.     movea.l    Conch.resRout,a0
  191.     suba.l    a1,a1
  192.     movea.l    d0,a2
  193. .again    bsr.l    Screen.requestUpdate
  194.     tst.l    d0
  195.     bmi.s    .again
  196.     clr.l    Conch.resRout
  197.     rts
  198.  
  199. ;======= OBJECT SUBROUTINES ================================================
  200.  
  201. Conch.stopClambs:
  202.     move.l    #Conch.paintScene,Conch.paintRout
  203.     move.w    $04BC.w,Conch.stillStartTime
  204.     clr.w    Conch.clambsMoving
  205.     rts
  206.  
  207. Conch.startClambs:
  208.     move.l    #Conch.paintScene,Conch.paintRout
  209.     move.w    #1,Conch.clambsMoving
  210.     move.w    $04BC.w,Conch.clambsStartTime
  211.     rts
  212.  
  213. Conch.setCloseUp:
  214.     move.l    #Conch.paint,Conch.paintRout
  215.     move.w    $04BC.w,Conch.closeStartTime
  216.     clr.w    Conch.closeMode
  217.     rts
  218.  
  219. Conch.endCloseUp:
  220.     move.l    #Conch.paint,Conch.paintRout
  221.     move.w    $04BC.w,Conch.closeStartTime
  222.     st    Conch.closeMode
  223.     rts
  224.  
  225. Conch.setFadeIn:
  226.     move.w    $04BC.w,Conch.startTime
  227.     move.l    #Conch.paintFade,Conch.paintRout
  228.     rts
  229.  
  230. Conch.paintScene:
  231.     tst.w    Conch.clambsMoving
  232.     bne.s    .swim_little_dolpin
  233.     bsr    Conch.paintStillClamb
  234.     bra.s    .end_paint
  235. .swim_little_dolpin:
  236.     bsr    Conch.paintSwimmingClamb
  237. .end_paint:
  238.     rts
  239.  
  240. ; Generates conch-like shell. This uses spirals with various slopes and
  241. ; heights. This one looks more like a horn sadly..
  242. ;
  243. ; parametrisation:
  244. ;
  245. ; parameters: 0<=t<angle, 0<=tau<2pi
  246. ; tau controls 'rings', t controls 'spirals'
  247. ;
  248. ; x=r*sin(t), y=r*cos(t), z=R*alpha*cos(tau)*t
  249. ; r=R[1+alpha*sin(tau)]*t
  250. ; R=final radius of spiral, alpha=variance in spiral (makes the cone)
  251. ;
  252. ; OUTPUT:
  253. ; d0.l=size of object
  254. Conch.init3dHornObject:
  255.     movea.l    Conch.conchAdr,a0
  256.     lea    sine_tbl,a1
  257.     move.w    #Conch.POINTS,(a0)+        ; Store #points+#normals.
  258.     clr.w    (a0)+
  259.     clr.w    d7
  260.  
  261. .spiral_loop:
  262.     moveq    #Conch.SPIRALS-1,d6
  263.  
  264. .ring_loop:
  265.     move.w    d6,d0
  266.     move.w    d7,d2
  267.  
  268. ; Calc sin(t), cos(t).
  269.     mulu.w    #Conch.ANGLE/Conch.RINGS,d2    ; d2.w=t
  270.     Do_SinModulo    d2
  271.     Get_SinCos    a1,d2,d2,d3
  272.  
  273. ; Calc sin(tau), cos(tau).
  274.     mulu.w    #sintbllen/Conch.SPIRALS,d0    ; d0.w=tau
  275.     Get_SinCos    a1,d0,d0,d1
  276.  
  277. ; Calc r.
  278.     muls.w    #Conch.ALPHA,d0
  279.     add.l    d0,d0
  280.     swap    d0                ; d0.w=alpha*sin(tau)
  281.     muls.w    #Conch.RADIUS,d0
  282.     add.l    d0,d0
  283.     swap    d0                ; d0.w=R*alpha*sin(tau)
  284.     addi.w    #Conch.RADIUS,d0        ; d0.w=R[1+alpha*sin(tau)]
  285.     mulu.w    d7,d0
  286.     divu.w    #Conch.RINGS,d0            ; d0.w=R[1+alpha*sin(tau)]*t
  287.  
  288. ; Calc (x,y) and store.
  289.     muls.w    d0,d2
  290.     muls.w    d0,d3
  291.     add.l    d2,d2
  292.     add.l    d3,d3
  293.     swap    d2
  294.     swap    d3
  295.     move.w    d2,(a0)+
  296.     move.w    d3,(a0)+
  297.  
  298. ; Calc z and store.
  299.     muls.w    d7,d1
  300.     divs.w    #Conch.RINGS,d1
  301.     muls.w    #Conch.ALPHA,d1
  302.     add.l    d1,d1
  303.     swap    d1
  304.     muls.w    #Conch.RADIUS,d1
  305.     add.l    d1,d1
  306.     swap    d1
  307.     move.w    d1,(a0)+
  308.  
  309.     dbf    d6,.ring_loop
  310.  
  311.     addq.w    #1,d7
  312.     cmpi.w    #Conch.RINGS,d7
  313.     blt.s    .spiral_loop
  314.  
  315. ; 2d
  316.     clr.w    (a0)+
  317.  
  318. ; polys
  319.     move.w    #Conch.POLYS,(a0)+
  320.     moveq    #Conch.RINGS-2,d7
  321.     
  322. ; Make a spiral..
  323. .poly_spiral_loop:
  324.     moveq    #Conch.SPIRALS-1,d6
  325.  
  326. ; Make a ring..
  327. .poly_ring_loop:
  328. ; Output polyhead.
  329.     move.w    #Polygon.QUAD|Polygon.FLATSHADED,d1
  330.     move.w    d7,d0
  331.     eor.w    d6,d0
  332.     andi.w    #1,d0
  333.     or.w    d0,d1
  334.     move.w    d1,(a0)+
  335.  
  336.     move.w    d7,d0
  337.     mulu.w    #Conch.SPIRALS,d0
  338. ; row*n + i
  339.     move.w    d0,d1
  340.     add.w    d6,d1
  341.     move.w    d1,(a0)+
  342. ; row*n + [(i+1) mod n]
  343.     clr.l    d1
  344.     move.w    d6,d1
  345.     addq.w    #1,d1
  346.     divu.w    #Conch.SPIRALS,d1
  347.     swap    d1
  348.     add.w    d0,d1
  349.     move.w    d1,(a0)+
  350. ; row*(n+1) + [(i+1) mod n]
  351.     addi.w    #Conch.SPIRALS,d1
  352.     move.w    d1,(a0)+
  353. ; row*(n+1) + i
  354.     move.w    d0,d1
  355.     add.w    d6,d1
  356.     addi.w    #Conch.SPIRALS,d1
  357.     move.w    d1,(a0)+
  358.  
  359.     dbf    d6,.poly_ring_loop
  360.  
  361.     dbf    d7,.poly_spiral_loop
  362.  
  363. ; Calc size..
  364.     suba.l    Conch.conchAdr,a0
  365.     move.l    a0,d0
  366.     rts
  367.  
  368. ; Generates conch-like shell. This is a gapless one.
  369. ; Can be used to make both conch and clambs depending on angle.
  370. ;
  371. ; parametrisation:
  372. ;
  373. ; parameters: 0<=t<angle, 0<=tau<2pi
  374. ; tau controls position in 'ring', t controls position in 'spiral'
  375. ;
  376. ; if t<2pi:
  377. ;
  378. ; r(t,tau) = r1(t,tau)
  379. ;
  380. ; else
  381. ;
  382. ; r(t,tau) = r2(t,tau)
  383. ; 
  384. ; x = r(t,tau)*sin(t), n.x=sin(tau)*sin(t)
  385. ; y = r(t,tau)*cos(t), n.y=sin(tau)*cos(t)
  386. ; z = R*cos(tau)/2,    n.z=cos(tau)
  387. ;
  388. ;              1+sin(tau)     R*t
  389. ; r1(t,tau) = ------------ * -----
  390. ;                  2          2pi
  391. ;
  392. ; r2(t,tau)=R[t/2pi-1+(1+sin(tau))/2]
  393. ;
  394. ; R=radius of spiral when t=2pi
  395. ;
  396. ; INPUT:
  397. ; d0.w=radius
  398. ; d1.w=angle
  399. ; d2.w=spirals
  400. ; d3.w=rings
  401. ; d4.w=inside generation (=0:no, >0:yes)
  402. ; a0: dst u-fly obj
  403. ; OUTPUT:
  404. ; d0.l=size of object
  405. Conch.initClambObject:
  406.     movea.l    a0,a6
  407.     move.w    d0,.radius
  408.     move.w    d1,.angle
  409.     move.w    d2,.spirals
  410.     move.w    d3,.rings
  411.     move.w    d4,.inside
  412.  
  413.     lea    sine_tbl,a1
  414.     move.w    .rings(pc),d0
  415.     mulu.w    .spirals(pc),d0
  416.     move.w    d0,.points
  417.     move.w    d0,(a0)
  418.     add.w    d0,(a0)+            ; Store #points+#normals.
  419.     move.w    d0,(a0)+            ; Store #normals
  420.     mulu.w    #Vertex.SIZE,d0
  421.     lea    (a0,d0.l),a2            ; a2: normals
  422.     clr.w    d7
  423.  
  424. .spiral_loop:
  425.     move.w    .spirals(pc),d6
  426.     subq.w    #1,d6
  427.  
  428. .ring_loop:
  429.     move.w    d6,d0
  430.     move.w    d7,d2
  431.  
  432. ; Calc sin(t), cos(t).
  433.     mulu.w    .angle(pc),d2
  434.     move.w    .rings(pc),d3
  435.     subq.w    #1,d3
  436.     divu.w    d3,d2                ; d2.w=t
  437.     move.w    d2,d4                ; d4.w=t
  438.     Do_SinModulo    d2            ; d2.w=t mod 2pi
  439.     Get_SinCos    a1,d2,d2,d3
  440. ; d2.w=sin(t), d3.w=cos(t)
  441.  
  442. ; Calc sin(tau), cos(tau).
  443.     mulu.w    #sintbllen,d0
  444.     divu.w    .spirals(pc),d0            ; d0.w=tau
  445.     Get_SinCos    a1,d0,d0,d1
  446. ; d0.w=sin(tau), d1.w=cos(tau)
  447.  
  448. ; Store normal.
  449.     move.w    d2,d5
  450.     muls.w    d0,d5
  451.     add.l    d5,d5
  452.     swap    d5
  453.     ext.l    d5
  454.     divs.w    #257,d5
  455.     move.w    d5,(a2)+            ; Store n.x.
  456.     move.w    d3,d5
  457.     muls.w    d0,d5
  458.     add.l    d5,d5
  459.     swap    d5
  460.     ext.l    d5
  461.     divs.w    #257,d5
  462.     move.w    d5,(a2)+            ; Store n.y.
  463.     move.w    d1,d5
  464.     ext.l    d5
  465.     divs.w    #257,d5
  466.     move.w    d5,(a2)+            ; Store n.z.
  467.  
  468. ; Calculate r(t,tau) function.. all shit is positive!
  469.     addi.l    #$8000,d0            ; d0.w=[sin(tau)+1]/2 (frac)
  470. ; t<2pi ??
  471.     cmpi.w    #sintbllen,d4
  472.     bhs.s    .t_is_high
  473.     mulu.w    d4,d0                ; d0.l=t*[sin(tau)+1]/2 (16:16)
  474.     divu.w    #sintbllen,d0            ; d0.w=t*[sin(tau)+1]/2*2pi (frac)
  475.     mulu.w    .radius(pc),d0            ; d0.l=R*t*[sin(tau)+1]/2*2pi (16:16)
  476.     swap    d0                ; d0.w=r1(t,tau) (int)
  477.     bra.s    .end_calc_r
  478. ; t is hi. calc r2..
  479. .t_is_high:
  480.     move.w    d4,d5
  481.     subi.w    #sintbllen,d5
  482.     mulu.w    #$10000/sintbllen,d5        ; d5.l=t/2pi-1 (16:16)
  483.     add.l    d5,d0                ; d0.l=t/2pi-1+[sin(tau)+1]/2 (16:16)
  484.     lsr.l    #8,d0
  485.     mulu.w    .radius(pc),d0
  486.     lsr.l    #8,d0                ; d0.w=r2(t,tau) (int)
  487.  
  488. ; Make sure spiral joins. No gaps!
  489.     mulu.w    #$00E8,d0
  490.     lsr.l    #8,d0
  491.  
  492. .end_calc_r:
  493. ; d0.w=r(t,tau) (int)
  494.  
  495. ; Calc (x,y) and store.
  496.     muls.w    d0,d2
  497.     muls.w    d0,d3
  498.     add.l    d2,d2
  499.     add.l    d3,d3
  500.     swap    d2                ; d2.w=r(t,tau)*sin(t)
  501.     swap    d3                ; d3.w=r(t,tau)*cos(t)
  502.     move.w    d2,(a0)+
  503.     move.w    d3,(a0)+
  504.  
  505. ; Calc z and store.
  506.     muls.w    d4,d1
  507.     divs.w    .angle(pc),d1
  508.     muls.w    .radius(pc),d1            ; d1.l=R*cos(tau)/2 (16:16)
  509.     swap    d1                ; d1.w=R*cos(tau)/2 (int)
  510.     move.w    d1,(a0)+
  511.  
  512.     dbf    d6,.ring_loop
  513.  
  514.     addq.w    #1,d7
  515.     cmp.w    .rings(pc),d7
  516.     blt    .spiral_loop
  517.  
  518.     movea.l    a2,a0                ; a0: texels
  519.  
  520. ; texels
  521.     clr.w    (a0)+
  522.  
  523. ; polys
  524.     move.w    .rings(pc),d0
  525.     subq.w    #1,d0
  526.     mulu.w    .spirals(pc),d0
  527.     tst.w    .inside(pc)
  528.     beq.s    .no_inside
  529.     add.w    d0,d0                ; d0.w=#frontpolys+#backpolys
  530. .no_inside:
  531.     move.w    d0,(a0)+            ; Store #polys.
  532.     move.w    .rings(pc),d7
  533.     subq.w    #2,d7
  534.     
  535. ; Make a spiral..
  536. .poly_spiral_loop:
  537.     move.w    .spirals(pc),d6
  538.     subq.w    #1,d6
  539.  
  540. ; Make a ring..
  541. .poly_ring_loop:
  542. ; Output polyhead.
  543.     move.w    #Polygon.QUAD|Polygon.GOURAUDSHADED|3,(a0)+
  544.  
  545. ; Vertex refs.
  546.     move.w    d7,d0
  547.     mulu.w    .spirals(pc),d0
  548. ; row*n + i
  549.     move.w    d0,d1
  550.     add.w    d6,d1
  551.     move.w    d1,(a0)+
  552. ; row*n + [(i+1) mod n]
  553.     clr.l    d1
  554.     move.w    d6,d1
  555.     addq.w    #1,d1
  556.     divu.w    .spirals(pc),d1
  557.     swap    d1
  558.     add.w    d0,d1
  559.     move.w    d1,(a0)+
  560. ; row*(n+1) + [(i+1) mod n]
  561.     add.w    .spirals(pc),d1
  562.     move.w    d1,(a0)+
  563. ; row*(n+1) + i
  564.     move.w    d0,d1
  565.     add.w    d6,d1
  566.     add.w    .spirals(pc),d1
  567.     move.w    d1,(a0)+
  568.  
  569. ; Gouraud indices.
  570.     move.l    #$00100010,(a0)+
  571.     move.l    #$00300030,(a0)+
  572.  
  573.     dbf    d6,.poly_ring_loop
  574.  
  575.     dbf    d7,.poly_spiral_loop
  576.  
  577.     tst.w    .inside(pc)
  578.     beq    .end
  579.  
  580. ; Output backface polys (parelmoer).
  581.     move.w    .rings(pc),d7
  582.     subq.w    #2,d7
  583.     
  584. ; Make a spiral..
  585. .bpoly_spiral_loop:
  586.     move.w    .spirals(pc),d6
  587.     subq.w    #1,d6
  588.  
  589. ; Make a ring..
  590. .bpoly_ring_loop:
  591. ; Output polyhead.
  592.     move.w    #Polygon.QUAD|Polygon.ENVMAPPED|0,(a0)+
  593.  
  594. ; Vertex refs.
  595.     move.w    d7,d0
  596.     mulu.w    .spirals(pc),d0            ; d0.w=row*n
  597. ; row*n + [(i+1) mod n]
  598.     clr.l    d1
  599.     move.w    d6,d1
  600.     addq.w    #1,d1
  601.     divu.w    .spirals(pc),d1
  602.     swap    d1
  603.     move.w    d1,d2                ; d2.w=(i+1) mod n
  604.     add.w    d0,d1
  605.     move.w    d1,(a0)+
  606. ; row*n + i
  607.     move.w    d6,d1
  608.     add.w    d0,d1
  609.     move.w    d1,(a0)+
  610. ; row*(n+1) + i
  611.     add.w    .spirals(pc),d1
  612.     move.w    d1,(a0)+
  613. ; row*(n+1) + [(i+1) mod n]
  614.     move.w    d0,d1
  615.     add.w    .spirals(pc),d1
  616.     add.w    d2,d1
  617.     move.w    d1,(a0)+
  618.  
  619. ; Store normal refs.
  620.     REPT    4
  621.     move.w    -8(a0),d0
  622.     add.w    .points(pc),d0
  623.     move.w    d0,(a0)+
  624.     ENDR
  625.  
  626.     dbf    d6,.bpoly_ring_loop
  627.  
  628.     dbf    d7,.bpoly_spiral_loop
  629.  
  630. ; Calc size..
  631. .end:    suba.l    a6,a0
  632.     move.l    a0,d0
  633.     rts
  634.  
  635. .radius:DC.W    0
  636. .angle:    DC.W    0
  637. .spirals:
  638.     DC.W    0
  639. .rings:    DC.W    0
  640. .inside:DC.W    0
  641. .points:DC.W    0
  642.  
  643. ; Generates conch-like shell. This is a gapless one.
  644. ; Can be used to make both conch and clambs depending on angle.
  645. ;
  646. ; parametrisation:
  647. ;
  648. ; parameters: 0<=t<angle, 0<=tau<2pi
  649. ; tau controls position in 'ring', t controls position in 'spiral'
  650. ;
  651. ; if t<2pi:
  652. ;
  653. ; r(t,tau) = r1(t,tau)
  654. ;
  655. ; else
  656. ;
  657. ; r(t,tau) = r2(t,tau)
  658. ; 
  659. ; x = r(t,tau)*sin(t), n.x=sin(tau)*sin(t)
  660. ; y = r(t,tau)*cos(t), n.y=sin(tau)*cos(t)
  661. ; z = R*cos(tau)/2,    n.z=cos(tau)
  662. ;
  663. ;              1+sin(tau)     R*t
  664. ; r1(t,tau) = ------------ * -----
  665. ;                  2          2pi
  666. ;
  667. ; r2(t,tau)=R[t/2pi-1+(1+sin(tau))/2]
  668. ;
  669. ; R=radius of spiral when t=2pi
  670. ;
  671. ; INPUT:
  672. ; d0.w=radius
  673. ; d1.w=angle
  674. ; d2.w=spirals
  675. ; d3.w=rings
  676. ; d4.w=inside generation (=0:no, >0:yes)
  677. ; a0: dst u-fly obj
  678. ; OUTPUT:
  679. ; d0.l=size of object
  680. Conch.initTriClambObject:
  681.     movea.l    a0,a6
  682.     move.w    d0,.radius
  683.     move.w    d1,.angle
  684.     move.w    d2,.spirals
  685.     move.w    d3,.rings
  686.     move.w    d4,.inside
  687.  
  688.     lea    sine_tbl,a1
  689.     move.w    .rings(pc),d0
  690.     mulu.w    .spirals(pc),d0
  691.     move.w    d0,.points
  692.     move.w    d0,(a0)
  693.     add.w    d0,(a0)+            ; Store #points+#normals.
  694.     move.w    d0,(a0)+            ; Store #normals
  695.     mulu.w    #Vertex.SIZE,d0
  696.     lea    (a0,d0.l),a2            ; a2: normals
  697.     clr.w    d7
  698.  
  699. .spiral_loop:
  700.     move.w    .spirals(pc),d6
  701.     subq.w    #1,d6
  702.  
  703. .ring_loop:
  704.     move.w    d6,d0
  705.     move.w    d7,d2
  706.  
  707. ; Calc sin(t), cos(t).
  708.     mulu.w    .angle(pc),d2
  709.     move.w    .rings(pc),d3
  710.     subq.w    #1,d3
  711.     divu.w    d3,d2                ; d2.w=t
  712.     move.w    d2,d4                ; d4.w=t
  713.     Do_SinModulo    d2            ; d2.w=t mod 2pi
  714.     Get_SinCos    a1,d2,d2,d3
  715. ; d2.w=sin(t), d3.w=cos(t)
  716.  
  717. ; Calc sin(tau), cos(tau).
  718.     mulu.w    #sintbllen,d0
  719.     divu.w    .spirals(pc),d0            ; d0.w=tau
  720.     Get_SinCos    a1,d0,d0,d1
  721. ; d0.w=sin(tau), d1.w=cos(tau)
  722.  
  723. ; Store normal.
  724.     move.w    d2,d5
  725.     muls.w    d0,d5
  726.     add.l    d5,d5
  727.     swap    d5
  728.     ext.l    d5
  729.     divs.w    #257,d5
  730.     move.w    d5,(a2)+            ; Store n.x.
  731.     move.w    d3,d5
  732.     muls.w    d0,d5
  733.     add.l    d5,d5
  734.     swap    d5
  735.     ext.l    d5
  736.     divs.w    #257,d5
  737.     move.w    d5,(a2)+            ; Store n.y.
  738.     move.w    d1,d5
  739.     ext.l    d5
  740.     divs.w    #257,d5
  741.     move.w    d5,(a2)+            ; Store n.z.
  742.  
  743. ; Calculate r(t,tau) function.. all shit is positive!
  744.     addi.l    #$8000,d0            ; d0.w=[sin(tau)+1]/2 (frac)
  745. ; t<2pi ??
  746.     cmpi.w    #sintbllen,d4
  747.     bhs.s    .t_is_high
  748.     mulu.w    d4,d0                ; d0.l=t*[sin(tau)+1]/2 (16:16)
  749.     divu.w    #sintbllen,d0            ; d0.w=t*[sin(tau)+1]/2*2pi (frac)
  750.     mulu.w    .radius(pc),d0            ; d0.l=R*t*[sin(tau)+1]/2*2pi (16:16)
  751.     swap    d0                ; d0.w=r1(t,tau) (int)
  752.     bra.s    .end_calc_r
  753. ; t is hi. calc r2..
  754. .t_is_high:
  755.     move.w    d4,d5
  756.     subi.w    #sintbllen,d5
  757.     mulu.w    #$10000/sintbllen,d5        ; d5.l=t/2pi-1 (16:16)
  758.     add.l    d5,d0                ; d0.l=t/2pi-1+[sin(tau)+1]/2 (16:16)
  759.     lsr.l    #8,d0
  760.     mulu.w    .radius(pc),d0
  761.     lsr.l    #8,d0                ; d0.w=r2(t,tau) (int)
  762.  
  763. ; Make sure spiral joins. No gaps!
  764.     mulu.w    #$00E8,d0
  765.     lsr.l    #8,d0
  766.  
  767. .end_calc_r:
  768. ; d0.w=r(t,tau) (int)
  769.  
  770. ; Calc (x,y) and store.
  771.     muls.w    d0,d2
  772.     muls.w    d0,d3
  773.     add.l    d2,d2
  774.     add.l    d3,d3
  775.     swap    d2                ; d2.w=r(t,tau)*sin(t)
  776.     swap    d3                ; d3.w=r(t,tau)*cos(t)
  777.     move.w    d2,(a0)+
  778.     move.w    d3,(a0)+
  779.  
  780. ; Calc z and store.
  781.     muls.w    d4,d1
  782.     divs.w    .angle(pc),d1
  783.     muls.w    .radius(pc),d1            ; d1.l=R*cos(tau)/2 (16:16)
  784.     swap    d1                ; d1.w=R*cos(tau)/2 (int)
  785.     move.w    d1,(a0)+
  786.  
  787.     dbf    d6,.ring_loop
  788.  
  789.     addq.w    #1,d7
  790.     cmp.w    .rings(pc),d7
  791.     blt    .spiral_loop
  792.  
  793.     movea.l    a2,a0                ; a0: texels
  794.  
  795. ; texels
  796.     clr.w    (a0)+
  797.  
  798. ; polys
  799.     move.w    .rings(pc),d0
  800.     subq.w    #1,d0
  801.     mulu.w    .spirals(pc),d0
  802.     tst.w    .inside(pc)
  803.     beq.s    .no_inside
  804.     add.w    d0,d0                ; d0.w=#frontpolys+#backpolys
  805. .no_inside:
  806.     add.w    d0,d0                ; d0.w=#tris=#quads*2
  807.     move.w    d0,(a0)+            ; Store #polys.
  808.     move.w    .rings(pc),d7
  809.     subq.w    #2,d7
  810.     movea.l    a0,a2                ; a2: polys
  811.     
  812. ; Make a spiral..
  813. .poly_spiral_loop:
  814.     move.w    .spirals(pc),d6
  815.     subq.w    #1,d6
  816.  
  817. ; Make a ring..
  818. .poly_ring_loop:
  819. ; Output polyhead.
  820.     move.w    #Polygon.TRI|Polygon.GOURAUDSHADED|3,(a0)+
  821. ; Vertex refs.
  822.     move.w    d7,d0
  823.     mulu.w    .spirals(pc),d0
  824. ; row*n + i, 0
  825.     move.w    d0,d1
  826.     add.w    d6,d1
  827.     move.w    d1,(a0)+
  828.     move.w    d1,d2
  829. ; row*n + [(i+1) mod n], 1
  830.     clr.l    d1
  831.     move.w    d6,d1
  832.     addq.w    #1,d1
  833.     divu.w    .spirals(pc),d1
  834.     swap    d1
  835.     add.w    d0,d1
  836.     move.w    d1,(a0)+
  837.     move.w    d1,d3
  838. ; row*(n+1) + [(i+1) mod n], 2
  839.     add.w    .spirals(pc),d1
  840.     move.w    d1,(a0)+
  841.     move.w    d1,d4
  842.  
  843. ; Gouraud indices. 0,1,2
  844.     move.l    #$00100010,(a0)+
  845.     move.w    #$0030,(a0)+
  846.  
  847. ; 0,2,3
  848.     move.w    #Polygon.TRI|Polygon.GOURAUDSHADED|3,(a0)+
  849.     move.w    d2,(a0)+            ; 0
  850.     move.w    d4,(a0)+            ; 2
  851. ; row*(n+1) + i, 3
  852.     move.w    d0,d1
  853.     add.w    d6,d1
  854.     add.w    .spirals(pc),d1
  855.     move.w    d1,(a0)+
  856.  
  857. ; Gouraud indices. 0,2,3
  858.     move.w    #$0010,(a0)+
  859.     move.l    #$00300030,(a0)+
  860.  
  861.     dbf    d6,.poly_ring_loop
  862.  
  863.     dbf    d7,.poly_spiral_loop
  864.  
  865.     tst.w    .inside(pc)
  866.     beq    .end
  867.  
  868. ; Output backface polys (parelmoer).
  869.     move.w    .rings(pc),d7
  870.     subq.w    #1,d7
  871.     mulu.w    .spirals(pc),d7
  872.     add.l    d7,d7
  873.     
  874. .bpoly_loop:
  875.  
  876. ; Output polyhead.
  877.     move.w    #Polygon.TRI|Polygon.ENVMAPPED|0,(a0)+
  878.     addq    #2,a2
  879.  
  880. ; Vertex refs.
  881.     move.w    0(a2),(a0)+
  882.     move.w    4(a2),(a0)+
  883.     move.w    2(a2),(a0)+
  884.  
  885. ; Normal indices.
  886.     REPT    3
  887.     move.w    -6(a0),d1
  888.     add.w    .points(pc),d1
  889.     move.w    d1,(a0)+
  890.     ENDR
  891.  
  892.     adda.w    #Vertex.SIZE*2,a2
  893.     dbf    d7,.bpoly_loop
  894.  
  895. ; Calc size..
  896. .end:    suba.l    a6,a0
  897.     move.l    a0,d0
  898.     rts
  899.  
  900. .radius:DC.W    0
  901. .angle:    DC.W    0
  902. .spirals:
  903.     DC.W    0
  904. .rings:    DC.W    0
  905. .inside:DC.W    0
  906. .points:DC.W    0
  907.  
  908. ; Just fades a backgroundcolor.
  909. Conch.paintFade:
  910.     lea    Viewport.settingsTable,a0
  911.     movem.w    Viewport.XSTART(a0),d0/d6
  912.     movem.w    Viewport.YSTART(a0),d1/d7
  913.     move.w    $04BC.w,d4
  914.     sub.w    Conch.startTime,d4
  915.     lsr.w    #2,d4
  916.     cmpi.w    #63,d4
  917.     blt.s    .ok
  918.     moveq    #63,d4
  919. .ok:    move.w    (Conch.backPal,d4.w*2),d4
  920.     move.w    d4,d2
  921.     swap    d4
  922.     move.w    d2,d4
  923.     bsr.l    Viewport.paintRectangle
  924.     rts
  925.  
  926. ; Paint seashell.
  927. Conch.paint:
  928.     bsr.l    PrimitiveMesh.new
  929.  
  930. ; world rot
  931.     move.w    $04BC.w,d0
  932.     move.w    d0,d1
  933.     move.w    d0,d2
  934.     mulu.w    #3,d0
  935.     lsr.l    d0
  936.     mulu.w    #13,d1
  937.     lsr.l    #3,d1
  938.     mulu.w    #7,d2
  939.     lsr.l    #2,d2
  940.     bsr.l    Matrix.generate
  941.     clr.w    d0
  942.  
  943.     move.w    $04BC.w,d1
  944.     sub.w    Conch.closeStartTime,d1
  945.     tst.w    Conch.closeMode
  946.     bne.s    .second_mode
  947.     subi.w    #300,d1
  948.     bmi.s    .y_ok
  949.     clr.w    d1
  950. .y_ok:    muls.w    d1,d1
  951.     lsr.l    #6,d1
  952.     bra.s    .y_calced
  953. .second_mode:
  954.     muls.w    d1,d1
  955.     lsr.l    #6,d1
  956.     neg.w    d1
  957. .y_calced:
  958.  
  959.     move.w    #2000,d2
  960.     bsr.l    Matrix.translate
  961.     bsr.l    Matrix.push
  962.  
  963. ; top clamb
  964.     clr.w    d0
  965.     clr.w    d1
  966.     move.w    #sintbllen/10,d2
  967.     bsr.l    Matrix.generate
  968.     bsr.l    Matrix.push
  969.     moveq    #TransformObject.BACKFACE_CULLING|TransformObject.PERSPECTIVATE,d0
  970.     moveq    #0,d1
  971.     bsr.l    TransformObject.transform
  972.     bsr.l    Matrix.pop
  973.  
  974. ; bottom clamb
  975.     clr.w    d0
  976.     move.w    #sintbllen/2,d1
  977.     move.w    #sintbllen/10,d2
  978.     bsr.l    Matrix.generate
  979.     bsr.l    Matrix.push
  980.     moveq    #TransformObject.BACKFACE_CULLING|TransformObject.PERSPECTIVATE,d0
  981.     moveq    #0,d1
  982.     bsr.l    TransformObject.transform
  983.     bsr.l    Matrix.pop
  984.  
  985.     bsr.l    Matrix.pop            ; pop world rot
  986.  
  987.     bsr.l    PrimitiveMesh.sortZ
  988.  
  989.     bsr.l    PrimitiveMesh.complete
  990.  
  991.     IFNE    0
  992.     lea    Viewport.settingsTable,a0
  993.     movem.w    Viewport.XSTART(a0),d0/d6
  994.     movem.w    Viewport.YSTART(a0),d1/d7
  995.     move.l    #Conch.BACKCOL,d4
  996.     bsr.l    Viewport.paintRectangle
  997.     ELSE
  998.     movea.l    Conch.rectAddressTable,a0
  999.     move.w    (a0)+,d7
  1000.     beq.s    .end_restore
  1001.     subq.w    #1,d7
  1002. .restore_loop:
  1003.     move.w    d7,-(sp)
  1004.     movem.w    (a0)+,d1/d7
  1005.     movem.w    (a0)+,d0/d6
  1006.     move.l    a0,-(sp)
  1007.     move.l    #Conch.BACKCOL,d4
  1008.     bsr.l    Viewport.paintRectangle
  1009.     movea.l    (sp)+,a0
  1010.     move.w    (sp)+,d7
  1011.     dbra    d7,.restore_loop
  1012. .end_restore:
  1013.     ENDC
  1014.  
  1015.     movea.l    Conch.rectAddressTable,a0
  1016.     bsr.l    PrimitiveMesh.paint
  1017.  
  1018.     lea    Conch.rectAddressTable,a0
  1019.      move.l    (a0)+,d0
  1020.     move.l    (a0)+,d1
  1021.     move.l    (a0),-(a0)
  1022.     move.l    d0,4(a0)
  1023.     move.l    d1,-(a0)
  1024. .end:    rts
  1025.  
  1026. ; Clambs just chilling out.
  1027. Conch.paintStillClamb:
  1028.     move.w    $04BC.w,d0
  1029.     sub.w    Conch.stillStartTime,d0
  1030.     subi.w    #700,d0
  1031.     bmi.s    .time_ok
  1032.     clr.w    d0
  1033. .time_ok:
  1034.     muls.w    d0,d0
  1035.     lsr.l    #7,d0
  1036.     neg.w    d0
  1037.     addi.w    #800,d0
  1038.     move.w    d0,.ypos
  1039.  
  1040.     bsr.l    PrimitiveMesh.new
  1041.  
  1042. ; clamb #1
  1043.     move.w    $04BC.w,d1
  1044.     Do_SinModulo    d1
  1045.     Get_Sin    sine_tbl,d1,d1
  1046.     asr.w    #8,d1
  1047.     clr.w    d0
  1048.     addi.w    #sintbllen/10,d1
  1049.     move.w    #sintbllen/4,d2
  1050.     bsr.l    Matrix.generate
  1051.     move.w    #-1400,d0
  1052.     move.w    .ypos(pc),d1
  1053.     move.w    #5000,d2
  1054.     bsr.l    Matrix.translate
  1055.     bsr.l    Matrix.push
  1056.  
  1057. ; Calc clamb pos and rot...
  1058.     lea    sine_tbl,a1
  1059.     move.w    #0,d2
  1060.     move.w    d2,d3
  1061.     Do_SinModulo    d3
  1062.     Get_SinCos    a1,d3,d3,d4
  1063.     exg    d3,d4
  1064.     asr.l    #6,d3
  1065.     asr.l    #5,d4
  1066.     neg.l    d4
  1067.     add.l    d2,d4
  1068.     add.l    d2,d4
  1069.     lsr.l    #1,d4
  1070.     move.w    d4,.clamb1_pos
  1071.     add.w    d3,d2
  1072.     Do_SinModulo    d2
  1073.     Get_Cos    a1,d2,d2
  1074.     addi.w    #$8000,d2
  1075.     lsr.w    #8,d2
  1076.     move.w    d2,.zrot
  1077.  
  1078. ; clamb top
  1079.     clr.w    d0
  1080.     clr.w    d1
  1081.     move.w    .zrot(pc),d2
  1082.     bsr.l    Matrix.generate
  1083.     clr.w    d0
  1084.     move.w    .clamb1_pos(pc),d1
  1085.     clr.w    d2
  1086.     bsr.l    Matrix.translate
  1087.     bsr.l    Matrix.push
  1088.     moveq    #TransformObject.BACKFACE_CULLING|TransformObject.PERSPECTIVATE,d0
  1089.     moveq    #0,d1
  1090.     bsr.l    TransformObject.transform
  1091.     bsr.l    Matrix.pop
  1092.  
  1093. ; clamb bottom
  1094.     clr.w    d0
  1095.     move.w    #sintbllen/2,d1
  1096.     move.w    .zrot(pc),d2
  1097.     bsr.l    Matrix.generate
  1098.     clr.w    d0
  1099.     move.w    .clamb1_pos(pc),d1
  1100.     clr.w    d2
  1101.     bsr.l    Matrix.translate
  1102.     bsr.l    Matrix.push
  1103.     moveq    #TransformObject.BACKFACE_CULLING|TransformObject.PERSPECTIVATE,d0
  1104.     moveq    #0,d1
  1105.     bsr.l    TransformObject.transform
  1106.     bsr.l    Matrix.pop
  1107.  
  1108.     bsr.l    Matrix.pop
  1109.  
  1110. ; clamb #2
  1111.     move.w    $04BC.w,d1
  1112.     mulu.w    #3,d1
  1113.     lsr.l    d1
  1114.     Do_SinModulo    d1
  1115.     Get_Sin    sine_tbl,d1,d1
  1116.     asr.w    #8,d1
  1117.     clr.w    d0
  1118.     addi.w    #sintbllen*3/8,d1
  1119.     move.w    #sintbllen/4,d2
  1120.     bsr.l    Matrix.generate
  1121.     move.w    #1200,d0
  1122.     move.w    .ypos(pc),d1
  1123.     move.w    #5000,d2
  1124.     bsr.l    Matrix.translate
  1125.     bsr.l    Matrix.push
  1126.  
  1127. ; Calc clamb pos and rot...
  1128.     lea    sine_tbl,a1
  1129.     move.w    #0,d2
  1130.     move.w    d2,d3
  1131.     Do_SinModulo    d3
  1132.     Get_SinCos    a1,d3,d3,d4
  1133.     exg    d3,d4
  1134.     asr.l    #6,d3
  1135.     asr.l    #5,d4
  1136.     neg.l    d4
  1137.     add.l    d2,d4
  1138.     add.l    d2,d4
  1139.     lsr.l    #1,d4
  1140.     move.w    d4,.clamb1_pos
  1141.     add.w    d3,d2
  1142.     Do_SinModulo    d2
  1143.     Get_Cos    a1,d2,d2
  1144.     addi.w    #$8000,d2
  1145.     lsr.w    #8,d2
  1146.     move.w    d2,.zrot
  1147.  
  1148. ; clamb top
  1149.     clr.w    d0
  1150.     clr.w    d1
  1151.     move.w    .zrot(pc),d2
  1152.     bsr.l    Matrix.generate
  1153.     clr.w    d0
  1154.     move.w    .clamb1_pos(pc),d1
  1155.     clr.w    d2
  1156.     bsr.l    Matrix.translate
  1157.     bsr.l    Matrix.push
  1158.     moveq    #TransformObject.BACKFACE_CULLING|TransformObject.PERSPECTIVATE,d0
  1159.     moveq    #0,d1
  1160.     bsr.l    TransformObject.transform
  1161.     bsr.l    Matrix.pop
  1162.  
  1163. ; clamb bottom
  1164.     clr.w    d0
  1165.     move.w    #sintbllen/2,d1
  1166.     move.w    .zrot(pc),d2
  1167.     bsr.l    Matrix.generate
  1168.     clr.w    d0
  1169.     move.w    .clamb1_pos(pc),d1
  1170.     clr.w    d2
  1171.     bsr.l    Matrix.translate
  1172.     bsr.l    Matrix.push
  1173.     moveq    #TransformObject.BACKFACE_CULLING|TransformObject.PERSPECTIVATE,d0
  1174.     moveq    #0,d1
  1175.     bsr.l    TransformObject.transform
  1176.     bsr.l    Matrix.pop
  1177.  
  1178.     bsr.l    Matrix.pop
  1179.  
  1180. ; clamb #3
  1181.     move.w    $04BC.w,d1
  1182.     mulu.w    #5,d1
  1183.     lsr.l    #2,d1
  1184.     Do_SinModulo    d1
  1185.     Get_Sin    sine_tbl,d1,d1
  1186.     asr.w    #8,d1
  1187.     move.w    #-sintbllen/10,d0
  1188.     addi.w    #-sintbllen/4+sintbllen/24,d1
  1189.     move.w    #sintbllen/4,d2
  1190.     bsr.l    Matrix.generate
  1191.     move.w    #+100,d0
  1192.     move.w    .ypos(pc),d1
  1193.     move.w    #5500,d2
  1194.     bsr.l    Matrix.translate
  1195.     bsr.l    Matrix.push
  1196.  
  1197. ; Calc clamb pos and rot...
  1198.     lea    sine_tbl,a1
  1199.     move.w    #0,d2
  1200.     move.w    d2,d3
  1201.     Do_SinModulo    d3
  1202.     Get_SinCos    a1,d3,d3,d4
  1203.     exg    d3,d4
  1204.     asr.l    #6,d3
  1205.     asr.l    #5,d4
  1206.     neg.l    d4
  1207.     add.l    d2,d4
  1208.     add.l    d2,d4
  1209.     lsr.l    #2,d4
  1210.     move.w    d4,.clamb1_pos
  1211.     add.w    d3,d2
  1212.     Do_SinModulo    d2
  1213.     Get_Cos    a1,d2,d2
  1214.     addi.w    #$8000,d2
  1215.     lsr.w    #8,d2
  1216.     move.w    d2,.zrot
  1217.  
  1218. ; clamb top
  1219.     clr.w    d0
  1220.     clr.w    d1
  1221.     move.w    .zrot(pc),d2
  1222.     bsr.l    Matrix.generate
  1223.     clr.w    d0
  1224.     move.w    .clamb1_pos(pc),d1
  1225.     clr.w    d2
  1226.     bsr.l    Matrix.translate
  1227.     bsr.l    Matrix.push
  1228.     moveq    #TransformObject.BACKFACE_CULLING|TransformObject.PERSPECTIVATE,d0
  1229.     moveq    #0,d1
  1230.     bsr.l    TransformObject.transform
  1231.     bsr.l    Matrix.pop
  1232.  
  1233. ; clamb bottom
  1234.     clr.w    d0
  1235.     move.w    #sintbllen/2,d1
  1236.     move.w    .zrot(pc),d2
  1237.     bsr.l    Matrix.generate
  1238.     clr.w    d0
  1239.     move.w    .clamb1_pos(pc),d1
  1240.     clr.w    d2
  1241.     bsr.l    Matrix.translate
  1242.     bsr.l    Matrix.push
  1243.     moveq    #TransformObject.BACKFACE_CULLING|TransformObject.PERSPECTIVATE,d0
  1244.     moveq    #0,d1
  1245.     bsr.l    TransformObject.transform
  1246.     bsr.l    Matrix.pop
  1247.  
  1248.     bsr.l    Matrix.pop
  1249. .end_add_clambs:
  1250.  
  1251.     bsr.l    PrimitiveMesh.sortZ
  1252.  
  1253.     bsr.l    PrimitiveMesh.complete
  1254.  
  1255.     IFNE    0
  1256.     lea    Viewport.settingsTable,a0
  1257.     movem.w    Viewport.XSTART(a0),d0/d6
  1258.     movem.w    Viewport.YSTART(a0),d1/d7
  1259.     move.l    #Conch.BACKCOL,d4
  1260.     bsr.l    Viewport.paintRectangle
  1261.     ELSE
  1262.     movea.l    Conch.rectAddressTable,a0
  1263.     move.w    (a0)+,d7
  1264.     beq.s    .end_restore
  1265.     subq.w    #1,d7
  1266. .restore_loop:
  1267.     move.w    d7,-(sp)
  1268.     movem.w    (a0)+,d1/d7
  1269.     movem.w    (a0)+,d0/d6
  1270.     move.l    a0,-(sp)
  1271.     move.l    #Conch.BACKCOL,d4
  1272.     bsr.l    Viewport.paintRectangle
  1273.     movea.l    (sp)+,a0
  1274.     move.w    (sp)+,d7
  1275.     dbra    d7,.restore_loop
  1276. .end_restore:
  1277.     ENDC
  1278.  
  1279.     movea.l    Conch.rectAddressTable,a0
  1280.     bsr.l    PrimitiveMesh.paint
  1281.  
  1282.     lea    Conch.rectAddressTable,a0
  1283.      move.l    (a0)+,d0
  1284.     move.l    (a0)+,d1
  1285.     move.l    (a0),-(a0)
  1286.     move.l    d0,4(a0)
  1287.     move.l    d1,-(a0)
  1288. .end:    rts
  1289.  
  1290. .zrot:    DC.W    0
  1291. .clamb1_pos:
  1292.     DC.W    0
  1293. .ypos:    DC.W    0
  1294.  
  1295. ; Try to paint some clambing clambs.
  1296. ; Open-shut movement of clambs seems hard, still not too realistic.
  1297. Conch.paintSwimmingClamb:
  1298.     bsr.l    PrimitiveMesh.new
  1299.  
  1300.     move.w    Conch.time,d0
  1301.     subi.w    #$0080,d0
  1302.     blt.s    .add_clambs
  1303.  
  1304.     lsl.l    #2,d0
  1305.     subi.l    #2700,d0
  1306.     move.w    d0,-(sp)
  1307.  
  1308.     move.w    Conch.time,d0
  1309.     move.w    d0,d1
  1310.     move.w    d0,d2
  1311.     mulu.w    #7,d0
  1312.     lsr.l    #3,d0
  1313.     mulu.w    #3,d1
  1314.     lsr.l    #1,d1
  1315.     mulu.w    #5,d2
  1316.     lsr.l    #2,d2
  1317.     bsr.l    Matrix.generate
  1318.     move.w    (sp)+,d0
  1319.     clr.w    d1
  1320.     move.w    #3000,d2
  1321.     bsr.l    Matrix.translate
  1322.     bsr.l    Matrix.push
  1323.     moveq    #TransformObject.BACKFACE_CULLING|TransformObject.PERSPECTIVATE,d0
  1324.     moveq    #1,d1
  1325.     bsr.l    TransformObject.transform
  1326.     bsr.l    Matrix.pop
  1327.  
  1328. .add_clambs:
  1329.     cmpi.w    #$0280,Conch.time
  1330.     bhs    .end_add_clambs
  1331.  
  1332. ; clamb #1
  1333.     clr.w    d0
  1334.     move.w    #sintbllen/10,d1
  1335.     move.w    #sintbllen/4,d2
  1336.     bsr.l    Matrix.generate
  1337.     move.w    #-1400,d0
  1338.     move.w    #800,d1
  1339.     move.w    #5000,d2
  1340.     bsr.l    Matrix.translate
  1341.     bsr.l    Matrix.push
  1342.  
  1343. ; Calc clamb pos and rot...
  1344.     lea    sine_tbl,a1
  1345.     move.w    Conch.time,d2
  1346.     mulu.w    #20,d2
  1347.     move.w    d2,d3
  1348.     Do_SinModulo    d3
  1349.     Get_SinCos    a1,d3,d3,d4
  1350.     exg    d3,d4
  1351.     asr.l    #6,d3
  1352.     asr.l    #5,d4
  1353.     neg.l    d4
  1354.     add.l    d2,d4
  1355.     add.l    d2,d4
  1356.     lsr.l    #1,d4
  1357.     move.w    d4,.clamb1_pos
  1358.     add.w    d3,d2
  1359.     Do_SinModulo    d2
  1360.     Get_Cos    a1,d2,d2
  1361.     addi.w    #$8000,d2
  1362.     lsr.w    #8,d2
  1363.     move.w    d2,.zrot
  1364.  
  1365. ; clamb top
  1366.     clr.w    d0
  1367.     clr.w    d1
  1368.     move.w    .zrot(pc),d2
  1369.     bsr.l    Matrix.generate
  1370.     clr.w    d0
  1371.     move.w    .clamb1_pos(pc),d1
  1372.     clr.w    d2
  1373.     bsr.l    Matrix.translate
  1374.     bsr.l    Matrix.push
  1375.     moveq    #TransformObject.BACKFACE_CULLING|TransformObject.PERSPECTIVATE,d0
  1376.     moveq    #0,d1
  1377.     bsr.l    TransformObject.transform
  1378.     bsr.l    Matrix.pop
  1379.  
  1380. ; clamb bottom
  1381.     clr.w    d0
  1382.     move.w    #sintbllen/2,d1
  1383.     move.w    .zrot(pc),d2
  1384.     bsr.l    Matrix.generate
  1385.     clr.w    d0
  1386.     move.w    .clamb1_pos(pc),d1
  1387.     clr.w    d2
  1388.     bsr.l    Matrix.translate
  1389.     bsr.l    Matrix.push
  1390.     moveq    #TransformObject.BACKFACE_CULLING|TransformObject.PERSPECTIVATE,d0
  1391.     moveq    #0,d1
  1392.     bsr.l    TransformObject.transform
  1393.     bsr.l    Matrix.pop
  1394.  
  1395.     bsr.l    Matrix.pop
  1396.  
  1397. ; clamb #2
  1398.     clr.w    d0
  1399.     move.w    #sintbllen*3/8,d1
  1400.     move.w    #sintbllen/4,d2
  1401.     bsr.l    Matrix.generate
  1402.     move.w    #1200,d0
  1403.     move.w    #800,d1
  1404.     move.w    #5000,d2
  1405.     bsr.l    Matrix.translate
  1406.     bsr.l    Matrix.push
  1407.  
  1408. ; Calc clamb pos and rot...
  1409.     lea    sine_tbl,a1
  1410.     move.w    Conch.time,d2
  1411.     mulu.w    #19,d2
  1412.     move.w    d2,d3
  1413.     Do_SinModulo    d3
  1414.     Get_SinCos    a1,d3,d3,d4
  1415.     exg    d3,d4
  1416.     asr.l    #6,d3
  1417.     asr.l    #5,d4
  1418.     neg.l    d4
  1419.     add.l    d2,d4
  1420.     add.l    d2,d4
  1421.     lsr.l    #1,d4
  1422.     move.w    d4,.clamb1_pos
  1423.     add.w    d3,d2
  1424.     Do_SinModulo    d2
  1425.     Get_Cos    a1,d2,d2
  1426.     addi.w    #$8000,d2
  1427.     lsr.w    #8,d2
  1428.     move.w    d2,.zrot
  1429.  
  1430. ; clamb top
  1431.     clr.w    d0
  1432.     clr.w    d1
  1433.     move.w    .zrot(pc),d2
  1434.     bsr.l    Matrix.generate
  1435.     clr.w    d0
  1436.     move.w    .clamb1_pos(pc),d1
  1437.     clr.w    d2
  1438.     bsr.l    Matrix.translate
  1439.     bsr.l    Matrix.push
  1440.     moveq    #TransformObject.BACKFACE_CULLING|TransformObject.PERSPECTIVATE,d0
  1441.     moveq    #0,d1
  1442.     bsr.l    TransformObject.transform
  1443.     bsr.l    Matrix.pop
  1444.  
  1445. ; clamb bottom
  1446.     clr.w    d0
  1447.     move.w    #sintbllen/2,d1
  1448.     move.w    .zrot(pc),d2
  1449.     bsr.l    Matrix.generate
  1450.     clr.w    d0
  1451.     move.w    .clamb1_pos(pc),d1
  1452.     clr.w    d2
  1453.     bsr.l    Matrix.translate
  1454.     bsr.l    Matrix.push
  1455.     moveq    #TransformObject.BACKFACE_CULLING|TransformObject.PERSPECTIVATE,d0
  1456.     moveq    #0,d1
  1457.     bsr.l    TransformObject.transform
  1458.     bsr.l    Matrix.pop
  1459.  
  1460.     bsr.l    Matrix.pop
  1461.  
  1462. ; clamb #3
  1463.     move.w    #-sintbllen/10,d0
  1464.     move.w    #-sintbllen/4+sintbllen/24,d1
  1465.     move.w    #sintbllen/4,d2
  1466.     bsr.l    Matrix.generate
  1467.     move.w    #+100,d0
  1468.     move.w    #800,d1
  1469.     move.w    #5500,d2
  1470.     bsr.l    Matrix.translate
  1471.     bsr.l    Matrix.push
  1472.  
  1473. ; Calc clamb pos and rot...
  1474.     lea    sine_tbl,a1
  1475.     move.w    Conch.time,d2
  1476.     mulu.w    #17,d2
  1477.     move.w    d2,d3
  1478.     Do_SinModulo    d3
  1479.     Get_SinCos    a1,d3,d3,d4
  1480.     exg    d3,d4
  1481.     asr.l    #6,d3
  1482.     asr.l    #5,d4
  1483.     neg.l    d4
  1484.     add.l    d2,d4
  1485.     add.l    d2,d4
  1486.     lsr.l    #2,d4
  1487.     move.w    d4,.clamb1_pos
  1488.     add.w    d3,d2
  1489.     Do_SinModulo    d2
  1490.     Get_Cos    a1,d2,d2
  1491.     addi.w    #$8000,d2
  1492.     lsr.w    #8,d2
  1493.     move.w    d2,.zrot
  1494.  
  1495. ; clamb top
  1496.     clr.w    d0
  1497.     clr.w    d1
  1498.     move.w    .zrot(pc),d2
  1499.     bsr.l    Matrix.generate
  1500.     clr.w    d0
  1501.     move.w    .clamb1_pos(pc),d1
  1502.     clr.w    d2
  1503.     bsr.l    Matrix.translate
  1504.     bsr.l    Matrix.push
  1505.     moveq    #TransformObject.BACKFACE_CULLING|TransformObject.PERSPECTIVATE,d0
  1506.     moveq    #0,d1
  1507.     bsr.l    TransformObject.transform
  1508.     bsr.l    Matrix.pop
  1509.  
  1510. ; clamb bottom
  1511.     clr.w    d0
  1512.     move.w    #sintbllen/2,d1
  1513.     move.w    .zrot(pc),d2
  1514.     bsr.l    Matrix.generate
  1515.     clr.w    d0
  1516.     move.w    .clamb1_pos(pc),d1
  1517.     clr.w    d2
  1518.     bsr.l    Matrix.translate
  1519.     bsr.l    Matrix.push
  1520.     moveq    #TransformObject.BACKFACE_CULLING|TransformObject.PERSPECTIVATE,d0
  1521.     moveq    #0,d1
  1522.     bsr.l    TransformObject.transform
  1523.     bsr.l    Matrix.pop
  1524.  
  1525.     bsr.l    Matrix.pop
  1526. .end_add_clambs:
  1527.  
  1528.     bsr.l    PrimitiveMesh.sortZ
  1529.  
  1530.     bsr.l    PrimitiveMesh.complete
  1531.  
  1532.     IFNE    0
  1533.     lea    Viewport.settingsTable,a0
  1534.     movem.w    Viewport.XSTART(a0),d0/d6
  1535.     movem.w    Viewport.YSTART(a0),d1/d7
  1536.     move.l    #Conch.BACKCOL,d4
  1537.     bsr.l    Viewport.paintRectangle
  1538.     ELSE
  1539.     movea.l    Conch.rectAddressTable,a0
  1540.     move.w    (a0)+,d7
  1541.     beq.s    .end_restore
  1542.     subq.w    #1,d7
  1543. .restore_loop:
  1544.     move.w    d7,-(sp)
  1545.     movem.w    (a0)+,d1/d7
  1546.     movem.w    (a0)+,d0/d6
  1547.     move.l    a0,-(sp)
  1548.     move.l    #Conch.BACKCOL,d4
  1549.     bsr.l    Viewport.paintRectangle
  1550.     movea.l    (sp)+,a0
  1551.     move.w    (sp)+,d7
  1552.     dbra    d7,.restore_loop
  1553. .end_restore:
  1554.     ENDC
  1555.  
  1556.     movea.l    Conch.rectAddressTable,a0
  1557.     bsr.l    PrimitiveMesh.paint
  1558.  
  1559.     lea    Conch.rectAddressTable,a0
  1560.      move.l    (a0)+,d0
  1561.     move.l    (a0)+,d1
  1562.     move.l    (a0),-(a0)
  1563.     move.l    d0,4(a0)
  1564.     move.l    d1,-(a0)
  1565. .end:    rts
  1566.  
  1567. .zrot:    DC.W    0
  1568. .clamb1_pos:
  1569.     DC.W    0
  1570.  
  1571. ;======= OBJECT DATA =======================================================
  1572.  
  1573.     DATA
  1574.  
  1575. Conch.textureTable:
  1576.     DC.L    FlareGen.parelMoerBuffer
  1577.     DC.L    0
  1578.  
  1579. Conch.rectAddressTable:
  1580.     DC.L    Conch.rectangleTable
  1581.     DC.L    Conch.rectangleTable2
  1582.     DC.L    Conch.rectangleTable3
  1583.  
  1584. Conch.colorTable:
  1585.     REPT    128
  1586.     DC.W    $FFFF
  1587.     ENDR
  1588.     REPT    128
  1589.     DC.W    %1111100000000000
  1590.     ENDR
  1591.     REPT    16
  1592.     DC.W    %1111111111111111
  1593.     DC.W    %1111110111101111
  1594.     DC.W    %1111101111100111
  1595.     DC.W    %1111100111100011
  1596.     DC.W    %1111100111100011
  1597.     DC.W    %1111101111100111
  1598.     DC.W    %1111110111101111
  1599.     DC.W    %1111111111111111
  1600.     ENDR
  1601.     REPT    8
  1602.     DC.W    %1111111111111111
  1603.     DC.W    %1111111111111111
  1604.     DC.W    %1111111011110111
  1605.     DC.W    %1111110111101111
  1606.     DC.W    %1111110100001100
  1607.     DC.W    %1111101111100111
  1608.     DC.W    %1111101100000101
  1609.     DC.W    %1111100111100011
  1610.     DC.W    %1111100111100011
  1611.     DC.W    %1111101100000101
  1612.     DC.W    %1111101111100111
  1613.     DC.W    %1111110100001100
  1614.     DC.W    %1111110111101111
  1615.     DC.W    %1111111011110111
  1616.     DC.W    %1111111111111111
  1617.     DC.W    %1111111111111111
  1618.     ENDR
  1619.  
  1620. Conch.gradTable:
  1621.     DC.W    1
  1622.     DC.W    6
  1623.     DC.L    $FFFF00FF
  1624.     DC.L    $003C0078
  1625.  
  1626. ;======= OBJECT RESERVES ===================================================
  1627.  
  1628.     BSS
  1629.  
  1630. Conch.backPal:
  1631.     DS.W    64
  1632.  
  1633. Conch.conchAdr:
  1634.     DS.L    1
  1635. Conch.clambAdr:
  1636.     DS.L    1
  1637.  
  1638. Conch.rectangleTable:
  1639.     DS.W    4*10
  1640. Conch.rectangleTable2:
  1641.     DS.W    4*10
  1642. Conch.rectangleTable3:
  1643.     DS.W    4*10
  1644.  
  1645. Conch.startTime:
  1646.     DS.W    1
  1647. Conch.time:
  1648.     DS.W    1
  1649. Conch.clambsMoving:
  1650.     DS.W    1
  1651. Conch.clambsStartTime:
  1652.     DS.W    1
  1653. Conch.closeStartTime:
  1654.     DS.W    1
  1655. Conch.stillStartTime:
  1656.     DS.W    1
  1657. Conch.closeMode:
  1658.     DS.W    1
  1659.  
  1660. Conch.paintRout:
  1661.     DS.L    1
  1662. Conch.resRout:
  1663.     DS.L    1
  1664.