/ Amiga Format CD 1 / amigaformatcd01.iso / demos / blitz_basic / andrewsdemos / art5.bb

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 23 73 69 7a 65 3d 31 35 | 20 20 3b 43 48 41 4e 47 |#size=15|  ;CHANG|
|00000010| 45 20 4d 45 21 21 21 20 | 28 6c 6f 77 65 72 20 66 |E ME!!! |(lower f|
|00000020| 6f 72 20 6c 65 73 73 2d | 67 72 75 6e 74 79 20 63 |or less-|grunty c|
|00000030| 6f 6d 70 75 74 65 72 73 | 29 00 23 62 61 6c 6c 73 |omputers|).#balls|
|00000040| 3d 36 00 00 3b 79 65 74 | 20 61 6e 6f 74 68 65 72 |=6..;yet| another|
|00000050| 20 33 44 20 6c 61 6e 64 | 73 63 61 70 65 20 64 65 | 3D land|scape de|
|00000060| 6d 6f 00 00 00 23 62 73 | 69 7a 65 3d 28 23 73 69 |mo...#bs|ize=(#si|
|00000070| 7a 65 2b 31 29 2a 28 23 | 73 69 7a 65 2b 31 29 00 |ze+1)*(#|size+1).|
|00000080| 00 80 01 2e 63 6f 72 6e | 65 72 00 20 20 78 2e 71 |....corn|er.  x.q|
|00000090| 3a 79 3a 7a 3a 73 78 2e | 77 3a 73 79 3a 66 78 3a |:y:z:sx.|w:sy:fx:|
|000000a0| 66 79 00 80 02 20 80 01 | 00 00 80 04 20 68 74 68 |fy... ..|.... hth|
|000000b0| 2e 63 6f 72 6e 65 72 28 | 23 73 69 7a 65 2c 23 73 |.corner(|#size,#s|
|000000c0| 69 7a 65 29 00 3b 20 61 | 20 62 72 75 74 61 6c 20 |ize).; a| brutal |
|000000d0| 64 65 6d 6f 20 6f 66 20 | 75 73 69 6e 67 20 70 6f |demo of |using po|
|000000e0| 69 6e 74 65 72 73 20 6f | 6e 20 61 72 72 61 79 73 |inters o|n arrays|
|000000f0| 20 2d 20 4f 4e 4c 59 20 | 46 4f 52 20 54 48 45 20 | - ONLY |FOR THE |
|00000100| 48 41 52 44 43 4f 52 45 | 21 00 00 80 34 00 00 80 |HARDCORE|!...4...|
|00000110| 09 2e 71 20 68 69 74 65 | 7b 78 2c 79 7d 00 20 20 |..q hite|{x,y}.  |
|00000120| 78 2a 80 ba 3a 79 2a 80 | ba 00 20 20 66 69 72 73 |x*..:y*.|..  firs|
|00000130| 74 3d 79 2a e0 0a 28 79 | 2b 78 2a e0 05 28 78 29 |t=y*..(y|+x*..(x)|
|00000140| 29 00 20 20 73 65 63 6f | 6e 64 3d 78 2a e0 05 28 |).  seco|nd=x*..(|
|00000150| 78 2b 79 2a e0 0a 28 79 | 29 29 00 20 20 74 3d e0 |x+y*..(y|)).  t=.|
|00000160| 0c 28 66 69 72 73 74 2a | 66 69 72 73 74 2b 73 65 |.(first*|first+se|
|00000170| 63 6f 6e 64 2a 73 65 63 | 6f 6e 64 29 2f 31 30 00 |cond*sec|ond)/10.|
|00000180| 20 20 80 09 20 80 07 20 | 74 00 80 02 20 80 09 00 |  .. .. |t... ...|
|00000190| 00 d0 01 20 30 2c 36 34 | 30 2c 32 35 36 2c 31 3a |... 0,64|0,256,1:|
|000001a0| d0 01 20 31 2c 36 34 30 | 2c 32 35 36 2c 31 3a b6 |.. 1,640|,256,1:.|
|000001b0| 01 20 80 c5 00 c8 01 20 | 30 2c 34 34 2c 36 34 30 |. ..... |0,44,640|
|000001c0| 2c 32 35 36 2c 24 66 66 | 66 39 2c 31 2c 30 2c 33 |,256,$ff|f9,1,0,3|
|000001d0| 32 2c 36 34 30 2c 36 34 | 30 3a c8 04 20 30 3a ce |2,640,64|0:.. 0:.|
|000001e0| 05 20 31 2c 31 35 2c 31 | 33 2c 31 33 00 00 80 16 |. 1,15,1|3,13....|
|000001f0| 20 63 6e 74 61 3d 30 20 | 80 18 20 23 73 69 7a 65 | cnta=0 |.. #size|
|00000200| 00 20 20 80 16 20 63 6e | 74 62 3d 30 20 80 18 20 |.  .. cn|tb=0 .. |
|00000210| 23 73 69 7a 65 00 20 20 | 20 20 2a 70 2e 63 6f 72 |#size.  |  *p.cor|
|00000220| 6e 65 72 3d 68 74 68 28 | 63 6e 74 61 2c 63 6e 74 |ner=hth(|cnta,cnt|
|00000230| 62 29 00 20 20 20 20 74 | 78 3d 28 63 6e 74 61 2f |b).    t|x=(cnta/|
|00000240| 23 73 69 7a 65 29 2a 34 | 2d 32 00 20 20 20 20 74 |#size)*4|-2.    t|
|00000250| 79 3d 28 63 6e 74 62 2f | 23 73 69 7a 65 29 2a 34 |y=(cntb/|#size)*4|
|00000260| 2d 32 00 20 20 20 20 2a | 70 5c 78 3d 28 74 78 2b |-2.    *|p\x=(tx+|
|00000270| 74 79 29 20 80 45 20 31 | 00 20 20 20 20 2a 70 5c |ty) .E 1|.    *p\|
|00000280| 79 3d 28 74 78 2d 74 79 | 29 80 45 20 31 00 00 20 |y=(tx-ty|).E 1.. |
|00000290| 20 20 20 2a 70 5c 7a 3d | 68 69 74 65 7b 2a 70 5c |   *p\z=|hite{*p\|
|000002a0| 78 2c 2a 70 5c 79 7d 00 | 20 20 80 17 00 80 17 00 |x,*p\y}.|  ......|
|000002b0| 00 80 01 20 2e 68 70 74 | 00 20 20 78 2e 71 3a 79 |... .hpt|.  x.q:y|
|000002c0| 3a 7a 3a 76 78 3a 76 79 | 00 80 02 20 80 01 00 00 |:z:vx:vy|... ....|
|000002d0| 80 04 20 68 70 74 2e 68 | 70 74 28 35 30 29 00 00 |.. hpt.h|pt(50)..|
|000002e0| 80 16 20 63 6e 74 2e 77 | 3d 30 20 80 18 20 23 62 |.. cnt.w|=0 .. #b|
|000002f0| 61 6c 6c 73 00 20 20 68 | 70 74 28 63 6e 74 29 5c |alls.  h|pt(cnt)\|
|00000300| 78 3d bc 07 2a 23 73 69 | 7a 65 2c bc 07 2a 23 73 |x=..*#si|ze,..*#s|
|00000310| 69 7a 65 2c 28 bc 07 2d | 30 2e 35 29 2a 32 00 20 |ize,(..-|0.5)*2. |
|00000320| 20 68 70 74 28 63 6e 74 | 29 5c 76 78 3d 28 bc 07 | hpt(cnt|)\vx=(..|
|00000330| 2b 30 2e 32 29 20 80 45 | 20 31 2c 28 bc 07 2b 30 |+0.2) .E| 1,(..+0|
|00000340| 2e 32 29 20 80 45 20 31 | 00 80 17 00 00 00 80 bb |.2) .E 1|........|
|00000350| 00 20 20 80 37 3a c8 04 | 20 64 62 3a 64 62 3d 31 |.  .7:..| db:db=1|
|00000360| 2d 64 62 3a 80 2c 20 d0 | 01 20 64 62 3a b2 05 00 |-db:., .|. db:...|
|00000370| 3b 20 20 61 6e 67 3d 4d | 6f 75 73 65 58 2f 33 32 |;  ang=M|ouseX/32|
|00000380| 30 2a 50 69 20 20 20 20 | 20 3b 20 74 72 79 20 6d |0*Pi    | ; try m|
|00000390| 65 20 61 6e 64 20 6d 6f | 63 65 20 74 68 65 20 6d |e and mo|ce the m|
|000003a0| 6f 75 73 65 00 20 20 61 | 6e 67 20 2b 30 2e 30 35 |ouse.  a|ng +0.05|
|000003b0| 3a 80 0b 20 61 6e 67 3e | 28 32 2a 80 ba 29 20 80 |:.. ang>|(2*..) .|
|000003c0| 21 20 61 6e 67 2d 28 32 | 2a 80 ba 29 00 00 20 20 |! ang-(2|*..)..  |
|000003d0| 80 06 20 4d 6f 76 65 49 | 74 00 20 20 71 63 3d e0 |.. MoveI|t.  qc=.|
|000003e0| 05 28 61 6e 67 29 3a 71 | 73 3d e0 0a 28 61 6e 67 |.(ang):q|s=..(ang|
|000003f0| 29 00 20 20 80 06 20 44 | 72 61 77 00 80 bc 20 df |).  .. D|raw... .|
|00000400| 04 28 30 29 3c 3e 30 00 | 80 02 00 00 00 2e 4d 6f |.(0)<>0.|......Mo|
|00000410| 76 65 49 74 00 20 20 2a | 68 2e 68 70 74 3d 68 70 |veIt.  *|h.hpt=hp|
|00000420| 74 28 30 29 00 20 20 80 | 16 20 74 74 3d 30 20 80 |t(0).  .|. tt=0 .|
|00000430| 18 20 35 3b 31 30 00 20 | 20 20 20 78 3d 2a 68 5c |. 5;10. |   x=*h\|
|00000440| 78 2b 2a 68 5c 76 78 00 | 20 20 20 20 80 0b 20 78 |x+*h\vx.|    .. x|
|00000450| 3c 30 20 80 8a 20 78 3e | 23 73 69 7a 65 00 20 20 |<0 .. x>|#size.  |
|00000460| 20 20 20 20 2a 68 5c 76 | 78 3d 2d 2a 68 5c 76 78 |    *h\v|x=-*h\vx|
|00000470| 00 20 20 20 20 80 22 00 | 20 20 20 20 20 20 2a 68 |.    .".|      *h|
|00000480| 5c 78 3d 78 00 20 20 20 | 20 80 c0 00 00 20 20 20 |\x=x.   | ....   |
|00000490| 20 79 3d 2a 68 5c 79 2b | 2a 68 5c 76 79 00 20 20 | y=*h\y+|*h\vy.  |
|000004a0| 20 20 80 0b 20 78 3c 30 | 20 80 8a 20 78 3e 23 73 |  .. x<0| .. x>#s|
|000004b0| 69 7a 65 00 20 20 20 20 | 20 20 2a 68 5c 76 79 3d |ize.    |  *h\vy=|
|000004c0| 2d 2a 68 5c 76 79 00 20 | 20 20 20 80 22 00 20 20 |-*h\vy. |   .".  |
|000004d0| 20 20 20 20 2a 68 5c 79 | 3d 79 00 20 20 20 20 80 |    *h\y|=y.    .|
|000004e0| c0 00 00 00 20 20 20 20 | 2a 68 2b 80 2f 2e 68 70 |....    |*h+./.hp|
|000004f0| 74 00 20 20 80 17 00 00 | 80 07 00 00 2e 44 72 61 |t.  ....|.....Dra|
|00000500| 77 00 20 20 80 16 20 63 | 6e 74 61 3d 30 20 80 18 |w.  .. c|nta=0 ..|
|00000510| 20 23 73 69 7a 65 00 20 | 20 20 20 80 16 20 63 6e | #size. |   .. cn|
|00000520| 74 62 3d 30 20 80 18 20 | 23 73 69 7a 65 00 20 20 |tb=0 .. |#size.  |
|00000530| 20 20 20 20 2a 70 2e 63 | 6f 72 6e 65 72 3d 68 74 |    *p.c|orner=ht|
|00000540| 68 28 63 6e 74 61 2c 63 | 6e 74 62 29 00 20 20 20 |h(cnta,c|ntb).   |
|00000550| 20 20 20 74 78 3d 2a 70 | 5c 78 3b 2a 71 63 2d 2a |   tx=*p|\x;*qc-*|
|00000560| 70 5c 79 2a 71 73 00 20 | 20 20 20 20 20 74 79 3d |p\y*qs. |     ty=|
|00000570| 2a 70 5c 79 3b 78 2a 71 | 73 2b 2a 70 5c 79 2a 71 |*p\y;x*q|s+*p\y*q|
|00000580| 63 00 20 20 20 20 20 20 | 74 7a 3d 2a 70 5c 7a 00 |c.      |tz=*p\z.|
|00000590| 00 20 20 20 20 20 20 74 | 6f 74 3d 30 3a 74 7a 3d |.      t|ot=0:tz=|
|000005a0| 30 00 20 20 20 20 20 20 | 80 16 20 74 74 3d 30 20 |0.      |.. tt=0 |
|000005b0| 80 18 20 35 3b 31 30 00 | 20 20 20 20 20 20 20 20 |.. 5;10.|        |
|000005c0| 2a 68 2e 68 70 74 3d 68 | 70 74 28 74 74 29 00 20 |*h.hpt=h|pt(tt). |
|000005d0| 20 20 20 20 20 20 20 64 | 78 3d 63 6e 74 61 2d 2a |       d|x=cnta-*|
|000005e0| 68 5c 78 00 20 20 20 20 | 20 20 20 20 64 79 3d 63 |h\x.    |    dy=c|
|000005f0| 6e 74 62 2d 2a 68 5c 79 | 00 20 20 20 20 20 20 20 |ntb-*h\y|.       |
|00000600| 20 64 69 73 74 3d 64 78 | 2a 64 78 2b 64 79 2a 64 | dist=dx|*dx+dy*d|
|00000610| 79 00 00 20 20 20 20 20 | 20 20 20 66 61 63 3d 31 |y..     |   fac=1|
|00000620| 2f 28 64 69 73 74 2b 30 | 2e 31 29 00 20 20 20 20 |/(dist+0|.1).    |
|00000630| 20 20 20 20 74 6f 74 3d | 74 6f 74 2b 66 61 63 00 |    tot=|tot+fac.|
|00000640| 20 20 20 20 20 20 20 20 | 74 7a 3d 74 7a 2b 66 61 |        |tz=tz+fa|
|00000650| 63 2a 2a 68 5c 7a 00 20 | 20 20 20 20 20 80 17 00 |c**h\z. |     ...|
|00000660| 20 20 20 20 20 20 74 7a | 3d 74 7a 2f 74 6f 74 00 |      tz|=tz/tot.|
|00000670| 00 20 20 20 20 20 20 72 | 78 3d 74 78 00 20 20 20 |.      r|x=tx.   |
|00000680| 20 20 20 72 79 3d 74 79 | 2a 30 2e 38 36 36 20 2d |   ry=ty|*0.866 -|
|00000690| 30 2e 35 2a 74 7a 00 20 | 20 20 20 20 20 72 7a 3d |0.5*tz. |     rz=|
|000006a0| 74 79 2a 30 2e 35 2b 30 | 2e 38 36 36 2a 74 7a 00 |ty*0.5+0|.866*tz.|
|000006b0| 00 20 20 20 20 20 20 66 | 61 63 3d 31 2f 28 72 79 |.      f|ac=1/(ry|
|000006c0| 2b 34 29 00 20 20 20 20 | 20 20 2a 70 5c 73 78 3d |+4).    |  *p\sx=|
|000006d0| 33 32 30 2b 28 72 78 29 | 2a 66 61 63 20 80 44 20 |320+(rx)|*fac .D |
|000006e0| 31 30 2c 39 35 2d 28 72 | 7a 29 2a 66 61 63 20 80 |10,95-(r|z)*fac .|
|000006f0| 44 20 39 20 20 20 3b 73 | 65 74 75 70 20 73 63 72 |D 9   ;s|etup scr|
|00000700| 65 65 6e 20 63 6f 2d 6f | 72 64 73 2e 2e 00 20 20 |een co-o|rds...  |
|00000710| 20 20 80 17 00 20 20 80 | 17 00 00 20 20 80 16 20 |  ...  .|...  .. |
|00000720| 63 6e 74 61 3d 30 20 80 | 18 20 23 73 69 7a 65 2d |cnta=0 .|. #size-|
|00000730| 31 00 20 20 20 20 80 16 | 20 63 6e 74 62 3d 30 20 |1.    ..| cntb=0 |
|00000740| 80 18 20 23 73 69 7a 65 | 2d 31 00 20 20 20 20 20 |.. #size|-1.     |
|00000750| 20 2a 70 2e 63 6f 72 6e | 65 72 3d 68 74 68 28 63 | *p.corn|er=hth(c|
|00000760| 6e 74 61 2c 63 6e 74 62 | 29 00 20 20 20 20 20 20 |nta,cntb|).      |
|00000770| 2a 70 31 2e 63 6f 72 6e | 65 72 3d 2a 70 20 2b 80 |*p1.corn|er=*p +.|
|00000780| 2f 2e 63 6f 72 6e 65 72 | 20 20 20 20 20 20 20 20 |/.corner|        |
|00000790| 20 20 20 20 20 3b 20 74 | 68 65 20 6e 65 78 74 20 |     ; t|he next |
|000007a0| 70 6f 69 6e 74 20 61 63 | 72 6f 73 73 00 20 20 20 |point ac|ross.   |
|000007b0| 20 20 20 2a 70 32 2e 63 | 6f 72 6e 65 72 3d 2a 70 |   *p2.c|orner=*p|
|000007c0| 31 2b 80 2f 2e 63 6f 72 | 6e 65 72 2a 28 23 73 69 |1+./.cor|ner*(#si|
|000007d0| 7a 65 29 20 20 20 3b 20 | 74 68 65 20 6e 65 78 74 |ze)   ; |the next|
|000007e0| 20 70 6f 69 6e 74 20 64 | 6f 77 6e 00 20 20 20 20 | point d|own.    |
|000007f0| 20 20 bb 85 20 2a 70 5c | 73 78 2c 2a 70 5c 73 79 |  .. *p\|sx,*p\sy|
|00000800| 2c 2a 70 31 5c 73 78 2c | 2a 70 31 5c 73 79 2c 31 |,*p1\sx,|*p1\sy,1|
|00000810| 00 20 20 20 20 20 20 bb | 85 20 2a 70 5c 73 78 2c |.      .|. *p\sx,|
|00000820| 2a 70 5c 73 79 2c 2a 70 | 32 5c 73 78 2c 2a 70 32 |*p\sy,*p|2\sx,*p2|
|00000830| 5c 73 79 2c 31 20 20 20 | 3b 20 64 72 61 77 20 61 |\sy,1   |; draw a|
|00000840| 6c 6c 20 74 68 65 20 4c | 27 73 2e 2e 00 20 20 20 |ll the L|'s...   |
|00000850| 20 80 17 00 20 20 80 17 | 00 00 80 07 00          | ...  ..|.....   |
+--------+-------------------------+-------------------------+--------+--------+