/ ARM Club 1 / ARM_CLUB_CD.iso / contents / apps / maths / progs / programs / Maths1 / WHIRL

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 0c f4 20 3e 57 | 48 49 52 4c 0d 00 0f 44 |..... >W|HIRL...D|
|00000010| f1 22 53 55 47 47 45 53 | 54 49 4f 4e 53 20 41 3d |."SUGGES|TIONS A=|
|00000020| 31 2f 53 2c 20 53 4b 45 | 57 3d 39 39 20 20 20 41 |1/S, SKE|W=99   A|
|00000030| 3d 53 2a 53 2c 20 53 4b | 45 57 3d 36 30 30 20 20 |=S*S, SK|EW=600  |
|00000040| 20 41 3d 53 51 52 53 2c | 20 53 4b 45 57 3d 39 22 | A=SQRS,| SKEW=9"|
|00000050| 0d 00 11 ac eb 32 30 3a | f1 22 54 48 49 53 20 49 |.....20:|."THIS I|
|00000060| 53 20 41 20 53 4b 45 57 | 20 54 52 41 4e 53 46 4f |S A SKEW| TRANSFO|
|00000070| 52 4d 41 54 49 4f 4e 20 | 41 4e 44 20 43 41 4e 20 |RMATION |AND CAN |
|00000080| 41 4c 53 4f 20 42 45 20 | 41 50 50 4c 49 45 44 20 |ALSO BE |APPLIED |
|00000090| 54 4f 20 41 4e 20 45 58 | 49 53 54 49 4e 47 20 49 |TO AN EX|ISTING I|
|000000a0| 4d 41 47 45 2c 20 4c 4f | 4f 4b 20 41 54 20 54 48 |MAGE, LO|OK AT TH|
|000000b0| 45 20 50 49 58 45 4c 27 | 53 20 43 4f 4c 4f 55 52 |E PIXEL'|S COLOUR|
|000000c0| 20 41 54 20 58 32 3d 58 | 2a 53 49 4e 41 2d 59 2a | AT X2=X|*SINA-Y*|
|000000d0| 43 4f 53 41 20 20 59 32 | 3d 58 2a 43 4f 53 41 2b |COSA  Y2|=X*COSA+|
|000000e0| 59 2a 53 49 4e 41 20 41 | 4e 44 20 50 4c 4f 54 20 |Y*SINA A|ND PLOT |
|000000f0| 54 48 41 54 20 41 54 20 | 58 2c 59 22 0d 00 14 23 |THAT AT |X,Y"...#|
|00000100| c8 91 36 34 30 2c 35 31 | 32 3a e8 22 41 4d 4f 55 |..640,51|2:."AMOU|
|00000110| 4e 54 20 4f 46 20 53 4b | 45 57 22 3b 46 3a 87 0d |NT OF SK|EW";F:..|
|00000120| 00 1e 3f 41 3d 8e 28 22 | 50 41 4c 45 54 54 45 31 |..?A=.("|PALETTE1|
|00000130| 34 22 29 3a e8 23 41 2c | 44 55 4d 4d 59 3a e3 58 |4"):.#A,|DUMMY:.X|
|00000140| 3d 30 b8 31 35 3a e8 23 | 41 2c 43 2c 44 2c 45 3a |=0.15:.#|A,C,D,E:|
|00000150| fb 58 2c 43 2c 44 2c 45 | 3a ed 3a d9 23 41 0d 00 |.X,C,D,E|:.:.#A..|
|00000160| 28 2e e3 58 25 3d 2d 36 | 33 39 b8 36 34 30 88 32 |(..X%=-6|39.640.2|
|00000170| 3a 44 25 3d 58 25 2a 58 | 25 3a 41 3d 31 3a e3 59 |:D%=X%*X|%:A=1:.Y|
|00000180| 25 3d 2d 35 31 32 b8 35 | 31 32 88 32 0d 00 32 53 |%=-512.5|12.2..2S|
|00000190| 53 3d 46 2f b6 28 44 25 | 2b 59 25 2a 59 25 29 3a |S=F/.(D%|+Y%*Y%):|
|000001a0| 41 3d b6 53 3a 50 25 3d | 94 28 58 25 2a 9b 41 2b |A=.S:P%=|.(X%*.A+|
|000001b0| 59 25 2a b5 41 29 3a e6 | 28 50 25 81 33 33 29 2b |Y%*.A):.|(P%.33)+|
|000001c0| 31 3a c8 92 58 25 2c 59 | 25 3a ed 3a ed 3a 2a 53 |1:..X%,Y|%:.:.:*S|
|000001d0| 43 52 45 45 4e 53 41 56 | 45 20 49 4d 41 47 45 0d |CREENSAV|E IMAGE.|
|000001e0| ff                      |                         |.       |        |
+--------+-------------------------+-------------------------+--------+--------+