home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 1 / amigaformatcd01.iso / demos / secal / projects / examples / balldemo.scl < prev    next >
Encoding:
Text File  |  1996-04-30  |  8.2 KB  |  358 lines
  1. /******************************************************************************\
  2. **  Ball demo for Secal                                                       **
  3. **  Requires Kickstart 3                                                      **
  4. **  Try to change "BALLNUM"                                                   **
  5. \******************************************************************************/
  6.  
  7.  
  8. go main;
  9.  
  10.  
  11. #-------------------------------------------------------------------------------
  12.  
  13.  
  14. def BALLNUM=49;                            # NUMBER OF BALLS
  15. def CHANGETIME=300;                    # TIME FOR EACH PATTERN
  16.  
  17.  
  18. #-------------------------------------------------------------------------------
  19.  
  20.  
  21. include "inc/libcalls/exec.inc";
  22. include "inc/libcalls/intuition.inc";
  23. include "inc/libcalls/graphics.inc";
  24. include "inc/lvos/graphics.inc";
  25.  
  26. include "inc/hardware/custom.inc";
  27. include "inc/utility/tagitem.inc";
  28. include "inc/intuition/screens.inc";
  29. include "inc/graphics/rastport.inc";
  30. include "inc/graphics/gfx.inc";
  31.  
  32.  
  33. def SysBase=[4.w].ul;
  34.  
  35.  
  36. /******************************************************************************\
  37. ************                      M A I N                           ************
  38. \******************************************************************************/
  39.  
  40.  
  41. obj GfxBase,IntuitionBase:ulong;
  42.  
  43. obj myscr:ulong;
  44. obj scrbuf0,scrbuf1:ulong;
  45. obj scrwidth,xcenter,ycenter:word;
  46.  
  47.  
  48. #-------------------------------------------------------------------------------
  49.  
  50.  
  51. main:
  52. push a5;
  53.  
  54. a5:=$dff000;                                # GLOBAL CUSTOM BASE REGISTER
  55.  
  56. call sysinit;
  57. if d0 then
  58.     call ballsinit;
  59.  
  60.     repeat
  61.         call ballsframe;                # PROCESS EACH FRAME
  62.     until [$dff016] and $400=0;        # DIRTY CHECK FOR RIGHT MOUSE BUTTON
  63.  
  64.     call sysdone;
  65. ;
  66.  
  67. d0.l:=0;
  68.  
  69. pop a5;
  70. rts;                                                            # MAIN
  71.  
  72.  
  73. #-------------------------------------------------------------------------------
  74.  
  75.  
  76. #                                                                    D0=SUCCESS
  77.  
  78. sysinit:
  79. OpenLibrary("graphics.library",39); GfxBase:=d0;
  80. if GfxBase then
  81.     OpenLibrary("intuition.library",37); IntuitionBase:=d0;
  82.     if IntuitionBase then
  83.                                                         # LIBRARIES
  84.  
  85.         OpenScreenTagList(0,@scrtags); myscr:=d0;
  86.         if myscr then
  87.             AllocScreenBuffer(myscr,0,SB_SCREEN_BITMAP); scrbuf0:=d0;
  88.             if scrbuf0 then
  89.                 AllocScreenBuffer(myscr,0,SB_COPY_BITMAP); scrbuf1:=d0;
  90.                 if scrbuf1 then
  91.                                                         # OS DOUBLE BUFFERING
  92.  
  93.                     a0:=myscr;
  94.                     xcenter:=Screen(a0).Width/2;
  95.                     d0:=Screen(a0).Height-(Screen(a0).BarHeight+1);
  96.                     ycenter:=d0/2+(Screen(a0).BarHeight+1);        # 0,0 OFFSET
  97.                     a0:=Screen(a0).RastPort.BitMap;
  98.                     scrwidth:=BitMap(a0).BytesPerRow;            # SCREEN WIDTH
  99.  
  100.                     d0:=-1; go end_sysinit;    # INIT SUCCESSFULL
  101.                 ;
  102.  
  103.                                                         # OTHERWISE FAILED
  104.                 FreeScreenBuffer(myscr,scrbuf0);
  105.             ;
  106.             CloseScreen(myscr);
  107.         ;
  108.         CloseLibrary(IntuitionBase);
  109.     ;
  110.     CloseLibrary(GfxBase);
  111. ;
  112.  
  113. d0:=0;
  114.  
  115. end_sysinit:
  116. rts;                                                            # SYSINIT
  117.  
  118.  
  119.  
  120. scrtags:
  121. dc.l SA_Depth,4;
  122. dc.l SA_Interleaved,-1;
  123. dc.l SA_Title,"Secal Ball demo";
  124. dc.l SA_Colors,@scrcolors;
  125. dc.l SA_Pens,@scrpens;
  126. dc.l TAG_DONE;                            # TAGS FOR OUR SCREEN
  127.  
  128. scrcolors:
  129. dc 0,$0,$0,$0,  1,$e,$f,$e,  2,$3,$7,$e,  3,$2,$6,$c;
  130. dc 4,$1,$5,$a,  5,$0,$4,$8,  6,$0,$3,$6,  7,$0,$2,$4;
  131. dc 8,$0,$1,$2,  9,$e,$7,$3,  10,$c,$6,$2, 11,$a,$5,$1;
  132. dc 12,$8,$4,$0, 13,$6,$3,$0, 14,$4,$2,$0, 15,$2,$1,$0;
  133. dc -1;                                            # COLORS OF THE SCREEN
  134.  
  135. scrpens:
  136. dc -1;                                            # TO MAKE IT "NEW LOOK"
  137.  
  138.  
  139.  
  140.  
  141.  
  142. sysdone:
  143. FreeScreenBuffer(myscr,scrbuf1);
  144. FreeScreenBuffer(myscr,scrbuf0);            # FREE BUFFERS
  145.  
  146. CloseScreen(myscr);                            # CLOSE SCREEN
  147.  
  148. CloseLibrary(GfxBase);
  149. CloseLibrary(IntuitionBase);                # CLOSE LIBS
  150. rts;                                                            # SYSDONE
  151.  
  152.  
  153. /******************************************************************************\
  154. ************                     B A L L S                          ************
  155. \******************************************************************************/
  156.  
  157.  
  158. obj bufcount:word;
  159. obj workbufptr:ulong;
  160. obj screenbitplanes:ulong;
  161.  
  162.  
  163. obj patchng:word;
  164. obj patptr:ulong;
  165.  
  166. obj x0,x1,y0,y1:word;
  167.  
  168. obj vx0,vx1,vy0,vy1:word;
  169. obj dx0,dx1,dy0,dy1:word;
  170.  
  171.  
  172. #*******************************************************************************
  173.  
  174.  
  175. ballsinit:
  176. [@workbuf0].l:=0; [@workbuf1].l:=0;
  177. workbufptr:=@workbuf0;            # BUFFER INIT
  178.  
  179. patchng:=0; patptr:=@patsource;        # PATTERN INIT
  180. rts;                                                            # BALLSINIT
  181.  
  182.  
  183. #-------------------------------------------------------------------------------
  184.  
  185.  
  186. ballsframe:
  187. call changescreen;                        # SWAP SCREEN BUFFERS
  188.  
  189. if patchng=0 then
  190.     a0:=patptr;
  191.     vx0:=[a0+]; vx1:=[a0+]; vy0:=[a0+]; vy1:=[a0+];
  192.     dx0:=[a0+]; dx1:=[a0+]; dy0:=[a0+]; dy1:=[a0+];
  193.     if a0=@end_patsource then a0:=@patsource;;
  194.     patptr:=a0;
  195.  
  196.     x0:=0; x1:=0; y0:=0; y1:=0;
  197.     patchng:=CHANGETIME;                # GET NEXT PATTERN
  198. else
  199.     patchng:=patchng-1;
  200. ;                                                            # DECREMENT COUNTER
  201.  
  202. OwnBlitter;
  203. call clearballs;
  204. call drawcalcballs;
  205. WaitBlit;
  206. DisownBlitter;                                # DO BALLS
  207.  
  208. x0:=x0+vx0; x1:=x1+vx1;
  209. y0:=y0+vy0; y1:=y1+vy1;
  210. rts;                                                            # BALLSFRAME
  211.  
  212.  
  213.  
  214. patsource:
  215. dc 11,8,36,20,80,32,200,128;
  216. dc $fff0,$10,$fff8,$ffec,$fe10,$208,$410,$414;
  217. dc $8,$10,$8,0,$3e0,$3e8,$3e8,$3e0;
  218. dc $10,$8,$8,$10,$208,$fc10,$fc10,$208;
  219. dc $8,$10,$8,$10,$d0,$d0,$c8,$c8;
  220. dc $4,$10,$c,$18,$1fc,$214,$fffc,$414;
  221. dc $8,$10,$8,$10,$ff34,$8,0,$d4;
  222. dc $8,$8,$8,$8,$238,$fc38,$38,$fe38;
  223. dc $fff1,$10,$f,$fff4,$fe08,$20a,$3ff,$408;
  224. dc $8,$8,$8,$8,$3e0,$fc00,$3e0,0;
  225. dc $8,$10,$8,$10,$d0,$c8,$c8,$d0;
  226. dc $8,$8,$fff8,$8,$3f0,$10,$3f0,$fff0;
  227. end_patsource:                                # LISSAJOUS PATTERNS
  228.  
  229.  
  230. #-------------------------------------------------------------------------------
  231.  
  232.  
  233. changescreen:
  234. WaitBlit;
  235.  
  236. if bufcount=0 then
  237.     ChangeScreenBuffer(myscr,scrbuf0);
  238. else
  239.     ChangeScreenBuffer(myscr,scrbuf1);
  240. ;                                                            # CHANGE SCR BUFS
  241.  
  242. WaitTOF;                                            # WAIT NEXT FRAME
  243.  
  244. bufcount:=bufcount xor 1;            # FLIP PAGE ID
  245.  
  246. if bufcount=0 then
  247.     workbufptr:=@workbuf0;
  248.  
  249.     a0:=scrbuf0; a0:=ScreenBuffer(a0).sb_BitMap;
  250.     a0:=@BitMap(a0).Planes; screenbitplanes:=[a0];
  251. else
  252.     workbufptr:=@workbuf1;
  253.  
  254.     a0:=scrbuf1; a0:=ScreenBuffer(a0).sb_BitMap;
  255.     a0:=@BitMap(a0).Planes; screenbitplanes:=[a0];
  256. ;                                                            # GET WORK BUF
  257. rts;                                                            # CHANGESCREEN
  258.  
  259.  
  260. #-------------------------------------------------------------------------------
  261.  
  262.  
  263. clearballs:
  264. push d2\a2\a6;
  265.  
  266. a2:=workbufptr; a6:=GfxBase;            # PRELOAD REGS
  267.  
  268. if [a2].l then
  269.     WaitBlit;
  270.     Custom(a5).bltcon0:=$100; Custom(a5).bltcon1:=0;
  271.     Custom(a5).bltdmod:=scrwidth lsr 2-4;        # PRELOAD BLT REGS
  272.  
  273.     for d2:=BALLNUM-1 downto 0 do
  274.         call a6+LVOWaitBlit;        # DIRECT CALL WITH LVO!
  275.         Custom(a5).bltdpt:=[a2+];            # POINTER FROM BUF
  276.         Custom(a5).bltsize:=(16*4) lsl 6 or 2;
  277.     ;                                                        # CLEAR EVERY BALL
  278. ;
  279.  
  280. pop d2\a2\a6;
  281. rts;                                                            # CLEARBALLS
  282.  
  283.  
  284.  
  285.  
  286.  
  287. obj dcb_counter:word;
  288.  
  289.  
  290.  
  291. drawcalcballs:
  292. push d2\d3\d4\d5\a2\a3\a4\a6;
  293.  
  294. a2:=workbufptr;
  295. d2:=x0; d3:=x1; d4:=y0; d5:=y1;
  296. a3:=@sincostable; a4:=a3+$800; a6:=GfxBase;    # PRELOAD REGS
  297.  
  298. WaitBlit;
  299. Custom(a5).bltafwm:=-1; Custom(a5).bltalwm:=0;
  300. Custom(a5).bltamod:=-2; Custom(a5).bltbmod:=-2;
  301. Custom(a5).bltcmod:=scrwidth lsr 2-4;
  302. Custom(a5).bltdmod:=scrwidth lsr 2-4;        # PRELOAD BLT REGS
  303.  
  304. for dcb_counter:=BALLNUM-1 downto 0 do
  305.     d0:=(d4 and $fff) << 1; d1:=[a4+d0.w];
  306.     d0:=(d5 and $fff) << 1; d1:=d1+[a4+d0.w];
  307.     d1:=d1 asr 3+ycenter;
  308.     a0:=d1.w*scrwidth;                    # LISSAJOUS CALCS
  309.  
  310.     d0:=(d2 and $fff) << 1; d1:=[a3+d0.w];
  311.     d0:=(d3 and $fff) << 1; d1:=d1+[a3+d0.w];
  312.     d1:=d1 asr 2+xcenter;
  313.     a0:=a0+(d1.w lsr 3) and -2;            # LISSAJOUS CALCS
  314.  
  315.     d1:=d1 lsl 12;
  316.     a0:=screenbitplanes+a0; [a2+].l:=a0;        # STORE PLANEPTR FOR CLEAR
  317.  
  318.     call a6+LVOWaitBlit;            # DOCUMENTED TO PRESERVE ALL REGS!
  319.  
  320.     Custom(a5).bltcon1:=d1;
  321.     d1:=d1 or $fca; Custom(a5).bltcon0:=d1;
  322.     Custom(a5).bltcpt:=a0; Custom(a5).bltdpt:=a0;
  323.     Custom(a5).bltapt:=@ballmaskdata;
  324.  
  325.     if dcb_counter and 1 then Custom(a5).bltbpt:=@balldata0;
  326.     else Custom(a5).bltbpt:=@balldata1;;
  327.     Custom(a5).bltsize:=(16*4) lsl 6 or 2;    # START BLIT
  328.  
  329.     d2:=d2+dx0; d3:=d3+dx1;
  330.     d4:=d4+dy0; d5:=d5+dy1;
  331. ;                                                            # PROCESS EVERY BALL
  332.  
  333. pop d2\d3\d4\d5\a2\a3\a4\a6;
  334. rts;                                                            # DRAWCALCBALLS
  335.  
  336.  
  337. #*******************************************************************************
  338.  
  339.  
  340. sincostable:                        incbin "data/sincos.dat";
  341.                                                 # 1.25 SINE WAVE, 4096+1024 WORDS, 4096=1 WAVE (2*PI)
  342.  
  343. data_c;
  344.  
  345. ballmaskdata:                        incbin "data/ball_a_mask";
  346. balldata0:                            incbin "data/ball_a_0";
  347. balldata1:                            incbin "data/ball_a_1";
  348.  
  349.  
  350. bss;
  351.  
  352. workbuf0:                                ds.l BALLNUM;
  353. workbuf1:                                ds.l BALLNUM;        # BUFFER FOR POINTERS
  354.  
  355.  
  356. #*******************************************************************************
  357.  
  358.