home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Basic / OTL-BBU3.DMS / in.adf / EXAMPLES / crater.bb < prev    next >
Unknown  |  1993-10-07  |  1.9 KB
open in: MacOS 8.1     |     Win98     |     DOS

view JSON data     |     view as text

This file was not able to be converted.
This format is not currently supported by dexvert.

ConfidenceProgramDetectionMatch TypeSupport
100% file data default
100% gt2 Kopftext: '; andrews 3d library' default (weak)


hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 20 61 6e 64 72 65 77 | 73 20 33 64 20 6c 69 62 |; andrew|s 3d lib|
|00000010| 72 61 72 79 00 00 23 73 | 69 7a 65 3d 31 36 20 20 |rary..#s|ize=16  |
|00000020| 20 20 20 3b 43 48 41 4e | 47 45 20 4d 45 21 21 21 |   ;CHAN|GE ME!!!|
|00000030| 43 48 41 4e 47 45 20 4d | 45 21 21 21 43 48 41 4e |CHANGE M|E!!!CHAN|
|00000040| 47 45 20 4d 45 21 21 21 | 43 48 41 4e 47 45 20 4d |GE ME!!!|CHANGE M|
|00000050| 45 21 21 21 00 00 3b 79 | 65 74 20 61 6e 6f 74 68 |E!!!..;y|et anoth|
|00000060| 65 72 20 33 44 20 6c 61 | 6e 64 73 63 61 70 65 20 |er 3D la|ndscape |
|00000070| 64 65 6d 6f 00 00 23 62 | 73 69 7a 65 3d 28 23 73 |demo..#b|size=(#s|
|00000080| 69 7a 65 2b 31 29 2a 28 | 23 73 69 7a 65 2b 31 29 |ize+1)*(|#size+1)|
|00000090| 00 00 80 01 2e 63 6f 72 | 6e 65 72 00 20 20 78 2e |.....cor|ner.  x.|
|000000a0| 71 3a 79 3a 7a 3a 73 78 | 2e 77 3a 73 79 00 80 02 |q:y:z:sx|.w:sy...|
|000000b0| 20 80 01 00 00 80 04 20 | 68 74 68 2e 63 6f 72 6e | ...... |hth.corn|
|000000c0| 65 72 28 23 73 69 7a 65 | 2c 23 73 69 7a 65 29 00 |er(#size|,#size).|
|000000d0| 00 3b 75 73 65 20 72 65 | 63 69 70 72 6f 63 61 6c |.;use re|ciprocal|
|000000e0| 20 74 61 62 6c 65 20 74 | 6f 20 61 76 6f 69 64 20 | table t|o avoid |
|000000f0| 64 69 76 69 64 65 20 69 | 6e 20 70 65 72 73 70 65 |divide i|n perspe|
|00000100| 63 74 69 76 65 20 63 61 | 6c 6b 75 6c 61 74 69 6f |ctive ca|lkulatio|
|00000110| 6e 00 00 80 04 20 64 6c | 75 70 2e 77 28 32 35 36 |n.... dl|up.w(256|
|00000120| 29 00 00 80 16 20 69 3d | 31 20 80 18 20 32 35 35 |).... i=|1 .. 255|
|00000130| 00 20 20 64 6c 75 70 28 | 69 29 3d 33 32 30 30 30 |.  dlup(|i)=32000|
|00000140| 2f 69 00 80 17 00 00 3b | 20 61 20 62 72 75 74 61 |/i.....;| a bruta|
|00000150| 6c 20 64 65 6d 6f 20 6f | 66 20 75 73 69 6e 67 20 |l demo o|f using |
|00000160| 70 6f 69 6e 74 65 72 73 | 20 6f 6e 20 61 72 72 61 |pointers| on arra|
|00000170| 79 73 20 2d 20 4f 4e 4c | 59 20 46 4f 52 20 54 48 |ys - ONL|Y FOR TH|
|00000180| 45 20 48 41 52 44 43 4f | 52 45 21 00 00 80 34 00 |E HARDCO|RE!...4.|
|00000190| 00 80 09 2e 71 20 68 69 | 74 65 7b 78 2c 79 7d 00 |....q hi|te{x,y}.|
|000001a0| 20 20 78 2a 32 2a 80 ba | 3a 79 2a 32 2a 80 ba 00 |  x*2*..|:y*2*...|
|000001b0| 20 20 66 69 72 73 74 3d | 79 2a e0 0a 28 79 2b 78 |  first=|y*..(y+x|
|000001c0| 2a e0 05 28 78 29 29 00 | 20 20 73 65 63 6f 6e 64 |*..(x)).|  second|
|000001d0| 3d 78 2a e0 05 28 78 2b | 79 2a e0 0a 28 79 29 29 |=x*..(x+|y*..(y))|
|000001e0| 00 20 20 74 3d e0 0c 28 | 66 69 72 73 74 2a 66 69 |.  t=..(|first*fi|
|000001f0| 72 73 74 2b 73 65 63 6f | 6e 64 2a 73 65 63 6f 6e |rst+seco|nd*secon|
|00000200| 64 29 2f 33 30 00 20 20 | 80 09 20 80 07 20 74 00 |d)/30.  |.. .. t.|
|00000210| 80 02 20 80 09 00 00 d0 | 01 20 30 2c 36 34 30 2c |.. .....|. 0,640,|
|00000220| 32 35 36 2c 31 3a d0 01 | 20 31 2c 36 34 30 2c 32 |256,1:..| 1,640,2|
|00000230| 35 36 2c 31 3a b6 01 20 | 80 c5 00 00 c8 01 20 30 |56,1:.. |...... 0|
|00000240| 2c 34 34 2c 36 34 30 2c | 32 35 36 2c 24 66 66 66 |,44,640,|256,$fff|
|00000250| 39 2c 31 2c 30 2c 33 32 | 2c 36 34 30 2c 36 34 30 |9,1,0,32|,640,640|
|00000260| 3a c8 04 20 30 3a ce 05 | 20 31 2c 31 35 2c 31 33 |:.. 0:..| 1,15,13|
|00000270| 2c 31 33 00 00 3b 61 73 | 73 69 67 6e 20 68 65 69 |,13..;as|sign hei|
|00000280| 67 68 74 73 20 74 6f 20 | 61 6c 6c 20 70 6f 69 6e |ghts to |all poin|
|00000290| 74 73 20 75 73 69 6e 67 | 20 68 69 74 7b 7d 00 00 |ts using| hit{}..|
|000002a0| 80 16 20 63 6e 74 61 3d | 30 20 80 18 20 23 73 69 |.. cnta=|0 .. #si|
|000002b0| 7a 65 00 20 20 80 16 20 | 63 6e 74 62 3d 30 20 80 |ze.  .. |cntb=0 .|
|000002c0| 18 20 23 73 69 7a 65 00 | 20 20 20 20 2a 70 2e 63 |. #size.|    *p.c|
|000002d0| 6f 72 6e 65 72 3d 68 74 | 68 28 63 6e 74 61 2c 63 |orner=ht|h(cnta,c|
|000002e0| 6e 74 62 29 00 20 20 20 | 20 2a 70 5c 78 3d 28 63 |ntb).   | *p\x=(c|
|000002f0| 6e 74 61 2f 23 73 69 7a | 65 29 2a 32 2d 31 00 20 |nta/#siz|e)*2-1. |
|00000300| 20 20 20 2a 70 5c 79 3d | 28 63 6e 74 62 2f 23 73 |   *p\y=|(cntb/#s|
|00000310| 69 7a 65 29 2a 32 2d 31 | 00 20 20 20 20 2a 70 5c |ize)*2-1|.    *p\|
|00000320| 7a 3d 68 69 74 65 7b 2a | 70 5c 78 2c 2a 70 5c 79 |z=hite{*|p\x,*p\y|
|00000330| 7d 00 20 20 80 17 00 80 | 17 00 00 3b 73 65 74 75 |}.  ....|...;setu|
|00000340| 70 20 74 69 6d 65 72 20 | 66 6f 72 20 62 65 6e 63 |p timer |for benc|
|00000350| 68 6d 61 72 6b 69 6e 67 | 00 00 80 30 20 35 3a 74 |hmarking|...0 5:t|
|00000360| 2e 6c 2b 31 3a 80 02 20 | 80 30 00 00 3b 6d 61 69 |.l+1:.. |.0..;mai|
|00000370| 6e 20 6c 6f 6f 70 00 00 | 74 2e 6c 3d 30 3a 66 2e |n loop..|t.l=0:f.|
|00000380| 6c 3d 30 00 00 80 bb 00 | 20 20 80 37 3a c8 04 20 |l=0.....|  .7:.. |
|00000390| 64 62 3a 64 62 3d 31 2d | 64 62 3a 80 2c 20 d0 01 |db:db=1-|db:., ..|
|000003a0| 20 64 62 3a b2 05 00 20 | 20 61 6e 67 20 2b 30 2e | db:... | ang +0.|
|000003b0| 30 35 3a 80 0b 20 61 6e | 67 3e 28 32 2a 80 ba 29 |05:.. an|g>(2*..)|
|000003c0| 20 80 21 20 61 6e 67 2d | 28 32 2a 80 ba 29 00 20 | .! ang-|(2*..). |
|000003d0| 20 71 63 3d e0 05 28 61 | 6e 67 29 3a 71 73 3d e0 | qc=..(a|ng):qs=.|
|000003e0| 0a 28 61 6e 67 29 3a 80 | 06 20 44 72 61 77 3a 66 |.(ang):.|. Draw:f|
|000003f0| 2e 6c 2b 31 00 80 bc 20 | df 04 28 30 29 3c 3e 30 |.l+1... |..(0)<>0|
|00000400| 00 00 72 61 74 65 2e 66 | 3d 66 2a 35 30 2f 74 00 |..rate.f|=f*50/t.|
|00000410| 00 80 35 3a dd 82 20 22 | 66 72 61 6d 65 73 20 70 |..5:.. "|frames p|
|00000420| 65 72 20 73 65 63 6f 6e | 64 3d 22 2c 72 61 74 65 |er secon|d=",rate|
|00000430| 3a 80 37 20 35 30 3a 80 | 02 3a 80 34 00 00 44 72 |:.7 50:.|.:.4..Dr|
|00000440| 61 77 00 20 20 3b 00 20 | 20 80 16 20 63 6e 74 61 |aw.  ;. | .. cnta|
|00000450| 3d 30 20 80 18 20 23 73 | 69 7a 65 00 20 20 20 20 |=0 .. #s|ize.    |
|00000460| 80 16 20 63 6e 74 62 3d | 30 20 80 18 20 23 73 69 |.. cntb=|0 .. #si|
|00000470| 7a 65 00 20 20 20 20 20 | 20 2a 70 3d 68 74 68 28 |ze.     | *p=hth(|
|00000480| 63 6e 74 61 2c 63 6e 74 | 62 29 20 20 3b 70 6f 69 |cnta,cnt|b)  ;poi|
|00000490| 6e 74 20 74 6f 20 65 6c | 65 6d 65 6e 74 20 74 6f |nt to el|ement to|
|000004a0| 20 73 61 76 65 20 6f 76 | 65 72 63 61 6c 6b 75 6c | save ov|ercalkul|
|000004b0| 61 74 69 6e 67 00 20 20 | 20 20 20 20 74 78 3d 2a |ating.  |    tx=*|
|000004c0| 70 5c 78 2a 71 63 2d 2a | 70 5c 79 2a 71 73 20 3b |p\x*qc-*|p\y*qs ;|
|000004d0| 73 74 61 6e 64 61 72 64 | 20 32 44 20 72 6f 74 61 |standard| 2D rota|
|000004e0| 74 69 6f 6e 00 20 20 20 | 20 20 20 74 79 3d 2a 70 |tion.   |   ty=*p|
|000004f0| 5c 78 2a 71 73 2b 2a 70 | 5c 79 2a 71 63 00 20 20 |\x*qs+*p|\y*qc.  |
|00000500| 20 20 20 20 72 7a 3d 74 | 79 20 80 45 20 31 2b 30 |    rz=t|y .E 1+0|
|00000510| 2e 38 36 36 2a 2a 70 5c | 7a 20 3b 6e 6f 74 20 73 |.866**p\|z ;not s|
|00000520| 6f 20 73 74 61 6e 64 61 | 72 64 20 32 64 20 72 6f |o standa|rd 2d ro|
|00000530| 74 61 74 69 6f 6e 20 28 | 2a 2a 3d 66 72 65 61 6b |tation (|**=freak|
|00000540| 79 29 00 20 20 20 20 20 | 20 3b 00 20 20 20 20 20 |y).     | ;.     |
|00000550| 20 69 6e 64 65 78 2e 71 | 3d 74 79 2a 32 37 2e 37 | index.q|=ty*27.7|
|00000560| 31 32 38 2d 74 79 20 80 | 44 20 34 2b 36 34 20 20 |128-ty .|D 4+64  |
|00000570| 3b 69 6e 64 65 78 20 6e | 65 65 64 20 74 6f 20 62 |;index n|eed to b|
|00000580| 65 20 2e 51 21 21 21 21 | 00 20 20 20 20 20 20 64 |e .Q!!!!|.      d|
|00000590| 6d 75 6c 74 3d 64 6c 75 | 70 28 69 6e 64 65 78 29 |mult=dlu|p(index)|
|000005a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 3b |        |       ;|
|000005b0| 62 65 66 6f 72 65 20 75 | 73 69 6e 67 20 69 74 20 |before u|sing it |
|000005c0| 61 73 20 61 6e 20 69 6e | 74 65 67 65 72 00 20 20 |as an in|teger.  |
|000005d0| 20 20 20 20 3b 00 20 20 | 20 20 20 20 2a 70 5c 73 |    ;.  |    *p\s|
|000005e0| 78 3d 33 32 30 2b 74 78 | 2a 64 6d 75 6c 74 2c 31 |x=320+tx|*dmult,1|
|000005f0| 30 30 2d 28 72 7a 20 80 | 45 20 31 29 2a 64 6d 75 |00-(rz .|E 1)*dmu|
|00000600| 6c 74 00 20 20 20 20 80 | 17 00 20 20 80 17 00 20 |lt.    .|..  ... |
|00000610| 20 3b 00 20 20 80 16 20 | 63 6e 74 61 3d 30 20 80 | ;.  .. |cnta=0 .|
|00000620| 18 20 23 73 69 7a 65 2d | 31 20 20 20 20 20 20 20 |. #size-|1       |
|00000630| 20 20 20 20 20 20 3b 20 | 68 65 72 65 73 20 68 6f |      ; |heres ho|
|00000640| 77 20 74 6f 20 64 72 61 | 77 20 61 20 67 72 69 64 |w to dra|w a grid|
|00000650| 00 20 20 20 20 80 16 20 | 63 6e 74 62 3d 30 20 80 |.    .. |cntb=0 .|
|00000660| 18 20 23 73 69 7a 65 2d | 31 20 20 20 20 20 20 20 |. #size-|1       |
|00000670| 20 20 20 20 3b 66 72 6f | 6d 20 61 20 32 64 20 61 |    ;fro|m a 2d a|
|00000680| 72 72 61 79 20 75 73 69 | 6e 67 20 62 72 75 74 61 |rray usi|ng bruta|
|00000690| 6c 00 20 20 20 20 20 20 | 2a 70 2e 63 6f 72 6e 65 |l.      |*p.corne|
|000006a0| 72 3d 68 74 68 28 63 6e | 74 61 2c 63 6e 74 62 29 |r=hth(cn|ta,cntb)|
|000006b0| 20 20 20 20 20 20 3b 70 | 6f 69 6e 74 65 72 73 00 |      ;p|ointers.|
|000006c0| 20 20 20 20 20 20 2a 70 | 31 2e 63 6f 72 6e 65 72 |      *p|1.corner|
|000006d0| 3d 2a 70 20 2b 80 2f 2e | 63 6f 72 6e 65 72 20 20 |=*p +./.|corner  |
|000006e0| 20 20 20 20 20 20 20 20 | 3b 20 74 68 65 20 6e 65 |        |; the ne|
|000006f0| 78 74 20 70 6f 69 6e 74 | 20 61 63 72 6f 73 73 00 |xt point| across.|
|00000700| 20 20 20 20 20 20 2a 70 | 32 2e 63 6f 72 6e 65 72 |      *p|2.corner|
|00000710| 3d 2a 70 31 2b 80 2f 2e | 63 6f 72 6e 65 72 2a 28 |=*p1+./.|corner*(|
|00000720| 23 73 69 7a 65 29 20 20 | 3b 20 74 68 65 20 6e 65 |#size)  |; the ne|
|00000730| 78 74 20 70 6f 69 6e 74 | 20 64 6f 77 6e 00 20 20 |xt point| down.  |
|00000740| 20 20 20 20 bb 85 20 2a | 70 5c 73 78 2c 2a 70 5c |    .. *|p\sx,*p\|
|00000750| 73 79 2c 2a 70 31 5c 73 | 78 2c 2a 70 31 5c 73 79 |sy,*p1\s|x,*p1\sy|
|00000760| 2c 31 00 20 20 20 20 20 | 20 bb 85 20 2a 70 5c 73 |,1.     | .. *p\s|
|00000770| 78 2c 2a 70 5c 73 79 2c | 2a 70 32 5c 73 78 2c 2a |x,*p\sy,|*p2\sx,*|
|00000780| 70 32 5c 73 79 2c 31 20 | 20 20 3b 20 64 72 61 77 |p2\sy,1 |  ; draw|
|00000790| 20 61 6c 6c 20 74 68 65 | 20 4c 27 73 2e 2e 00 20 | all the| L's... |
|000007a0| 20 20 20 80 17 00 20 20 | 80 17 00 20 20 3b 00 80 |   ...  |...  ;..|
|000007b0| 07 00 00                |                         |...     |        |
+--------+-------------------------+-------------------------+--------+--------+