/ RISC DISC 2 / RISC_DISC_2.iso / pd_share / program / sprtools / riscos / basic / hsvgen

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 0a f4 20 3e 48 | 53 56 0d 00 0b 20 f4 20 |..... >H|SV... . |
|00000010| 56 65 72 73 69 6f 6e 20 | 31 2e 30 30 20 28 32 33 |Version |1.00 (23|
|00000020| 2d 41 75 67 2d 31 39 39 | 33 29 0d 00 0c 24 f4 20 |-Aug-199|3)...$. |
|00000030| 28 43 29 20 31 39 39 32 | 2d 34 20 44 45 45 4a 20 |(C) 1992|-4 DEEJ |
|00000040| 54 65 63 68 6e 6f 6c 6f | 67 79 20 50 4c 43 0d 00 |Technolo|gy PLC..|
|00000050| 0d 05 3a 0d 00 1e 1b ee | 20 85 20 f1 f6 24 3b 22 |..:.....| . ..$;"|
|00000060| 20 61 74 20 6c 69 6e 65 | 20 22 3b 9e 3a e0 0d 00 | at line| ";.:...|
|00000070| 28 05 3a 0d 00 32 16 64 | 69 76 25 3d 31 32 38 3a |(.:..2.d|iv%=128:|
|00000080| 64 69 76 32 25 3d 31 32 | 38 0d 00 3c 05 3a 0d 00 |div2%=12|8..<.:..|
|00000090| 46 12 de 20 63 6f 6c 6e | 75 6d 25 28 32 35 36 29 |F.. coln|um%(256)|
|000000a0| 0d 00 50 05 3a 0d 00 5a | 10 e3 20 43 25 3d 30 20 |..P.:..Z|.. C%=0 |
|000000b0| b8 20 32 35 36 0d 00 64 | 39 20 20 c8 99 22 43 6f |. 256..d|9  .."Co|
|000000c0| 6c 6f 75 72 54 72 61 6e | 73 5f 43 6f 6c 6f 75 72 |lourTran|s_Colour|
|000000d0| 4e 75 6d 62 65 72 54 6f | 47 43 4f 4c 22 2c 43 25 |NumberTo|GCOL",C%|
|000000e0| 20 b8 20 63 6f 6c 6e 75 | 6d 25 28 43 25 29 0d 00 | . colnu|m%(C%)..|
|000000f0| 6e 05 ed 0d 00 78 05 3a | 0d 00 82 08 eb 20 32 38 |n....x.:|..... 28|
|00000100| 0d 00 8c 05 3a 0d 00 96 | 0d e3 50 25 3d 31 20 b8 |....:...|..P%=1 .|
|00000110| 20 33 0d 00 a0 13 20 20 | e3 53 25 3d 30 20 b8 20 | 3....  |.S%=0 . |
|00000120| 64 69 76 32 25 0d 00 aa | 18 20 20 20 20 e3 43 25 |div2%...|.    .C%|
|00000130| 3d 30 20 b8 20 64 69 76 | 25 2a 36 2d 31 0d 00 b4 |=0 . div|%*6-1...|
|00000140| 23 20 20 20 20 20 20 48 | 25 3d 43 25 20 81 20 64 |#      H|%=C% . d|
|00000150| 69 76 25 3a 4c 25 3d 43 | 25 20 83 20 64 69 76 25 |iv%:L%=C|% . div%|
|00000160| 0d 00 be 15 20 20 20 20 | 20 20 46 25 3d 26 46 46 |....    |  F%=&FF|
|00000170| 3a 5a 25 3d 30 0d 00 c8 | 20 20 20 20 20 20 20 55 |:Z%=0...|       U|
|00000180| 25 3d 4c 25 2a 46 25 2f | 64 69 76 25 3a 44 25 3d |%=L%*F%/|div%:D%=|
|00000190| 46 25 2d 55 25 0d 00 d2 | 11 20 20 20 20 20 20 c8 |F%-U%...|.      .|
|000001a0| 8e 20 48 25 20 ca 0d 00 | dc 21 20 20 20 20 20 20 |. H% ...|.!      |
|000001b0| 20 20 c9 20 30 3a 52 25 | 3d 46 25 3a 47 25 3d 55 |  . 0:R%|=F%:G%=U|
|000001c0| 25 3a 42 25 3d 5a 25 0d | 00 e6 21 20 20 20 20 20 |%:B%=Z%.|..!     |
|000001d0| 20 20 20 c9 20 31 3a 52 | 25 3d 44 25 3a 47 25 3d |   . 1:R|%=D%:G%=|
|000001e0| 46 25 3a 42 25 3d 5a 25 | 0d 00 f0 21 20 20 20 20 |F%:B%=Z%|...!    |
|000001f0| 20 20 20 20 c9 20 32 3a | 52 25 3d 5a 25 3a 47 25 |    . 2:|R%=Z%:G%|
|00000200| 3d 46 25 3a 42 25 3d 55 | 25 0d 00 fa 21 20 20 20 |=F%:B%=U|%...!   |
|00000210| 20 20 20 20 20 c9 20 33 | 3a 52 25 3d 5a 25 3a 47 |     . 3|:R%=Z%:G|
|00000220| 25 3d 44 25 3a 42 25 3d | 46 25 0d 01 04 21 20 20 |%=D%:B%=|F%...!  |
|00000230| 20 20 20 20 20 20 c9 20 | 34 3a 52 25 3d 55 25 3a |      . |4:R%=U%:|
|00000240| 47 25 3d 5a 25 3a 42 25 | 3d 46 25 0d 01 0e 21 20 |G%=Z%:B%|=F%...! |
|00000250| 20 20 20 20 20 20 20 c9 | 20 35 3a 52 25 3d 46 25 |       .| 5:R%=F%|
|00000260| 3a 47 25 3d 5a 25 3a 42 | 25 3d 44 25 0d 01 18 0b |:G%=Z%:B|%=D%....|
|00000270| 20 20 20 20 20 20 cb 0d | 01 22 17 20 20 20 20 20 |      ..|.".     |
|00000280| 20 e3 54 25 3d 2d 31 20 | b8 20 31 20 88 32 0d 01 | .T%=-1 |. 1 .2..|
|00000290| 2c 20 20 20 20 20 20 20 | 20 20 73 25 3d 28 53 25 |,       |  s%=(S%|
|000002a0| 2a 26 46 46 2f 64 69 76 | 32 25 29 2a 54 25 0d 01 |*&FF/div|2%)*T%..|
|000002b0| 36 2f 20 20 20 20 20 20 | 20 20 72 25 3d 52 25 2b |6/      |  r%=R%+|
|000002c0| 73 25 3a e7 72 25 3c 30 | 20 72 25 3d 30 20 8b e7 |s%:.r%<0| r%=0 ..|
|000002d0| 72 25 3e 32 35 35 20 72 | 25 3d 32 35 35 0d 01 40 |r%>255 r|%=255..@|
|000002e0| 2f 20 20 20 20 20 20 20 | 20 67 25 3d 47 25 2b 73 |/       | g%=G%+s|
|000002f0| 25 3a e7 67 25 3c 30 20 | 67 25 3d 30 20 8b e7 67 |%:.g%<0 |g%=0 ..g|
|00000300| 25 3e 32 35 35 20 67 25 | 3d 32 35 35 0d 01 4a 2f |%>255 g%|=255..J/|
|00000310| 20 20 20 20 20 20 20 20 | 62 25 3d 42 25 2b 73 25 |        |b%=B%+s%|
|00000320| 3a e7 62 25 3c 30 20 62 | 25 3d 30 20 8b e7 62 25 |:.b%<0 b|%=0 ..b%|
|00000330| 3e 32 35 35 20 62 25 3d | 32 35 35 0d 01 54 20 20 |>255 b%=|255..T  |
|00000340| 20 20 20 20 20 20 20 f2 | 63 6f 6c 6f 75 72 28 50 |       .|colour(P|
|00000350| 25 2c 72 25 2c 67 25 2c | 62 25 29 0d 01 5e 37 20 |%,r%,g%,|b%)..^7 |
|00000360| 20 20 20 20 20 20 20 41 | 31 25 3d 43 25 2a 33 36 |       A|1%=C%*36|
|00000370| 30 2f 28 64 69 76 25 2a | 36 29 3a 41 32 25 3d 28 |0/(div%*|6):A2%=(|
|00000380| 43 25 2b 31 29 2a 33 36 | 30 2f 28 64 69 76 25 2a |C%+1)*36|0/(div%*|
|00000390| 36 29 0d 01 68 38 20 20 | 20 20 20 20 20 20 58 25 |6)..h8  |      X%|
|000003a0| 3d 36 34 30 2b 33 32 30 | 2a 54 25 3a 59 25 3d 35 |=640+320|*T%:Y%=5|
|000003b0| 31 32 3a 5a 25 3d 28 64 | 69 76 32 25 2d 53 25 29 |12:Z%=(d|iv2%-S%)|
|000003c0| 2a 33 30 30 2f 64 69 76 | 32 25 0d 01 72 15 20 20 |*300/div|2%..r.  |
|000003d0| 20 20 20 20 20 20 ec 20 | 20 20 58 25 2c 59 25 0d |      . |  X%,Y%.|
|000003e0| 01 7c 27 20 20 20 20 20 | 20 20 20 ec 20 20 20 58 |.|'     |   .   X|
|000003f0| 25 2b 5a 25 2a b5 b2 41 | 31 25 2c 59 25 2b 5a 25 |%+Z%*..A|1%,Y%+Z%|
|00000400| 2a 9b b2 41 31 25 0d 01 | 86 27 20 20 20 20 20 20 |*..A1%..|.'      |
|00000410| 20 20 f0 38 35 2c 58 25 | 2b 5a 25 2a b5 b2 41 32 |  .85,X%|+Z%*..A2|
|00000420| 25 2c 59 25 2b 5a 25 2a | 9b b2 41 32 25 0d 01 90 |%,Y%+Z%*|..A2%...|
|00000430| 0b 20 20 20 20 20 20 ed | 0d 01 9a 09 20 20 20 20 |.      .|....    |
|00000440| ed 0d 01 a4 07 20 20 ed | 0d 01 ae 0d 20 20 c8 8e |.....  .|....  ..|
|00000450| 20 50 25 20 ca 0d 01 b8 | 1e 20 20 20 20 c9 20 31 | P% ....|.    . 1|
|00000460| 3a 20 ff 22 53 43 52 45 | 45 4e 53 41 56 45 20 52 |: ."SCRE|ENSAVE R|
|00000470| 45 44 22 0d 01 c2 20 20 | 20 20 20 c9 20 32 3a 20 |ED"...  |   . 2: |
|00000480| ff 22 53 43 52 45 45 4e | 53 41 56 45 20 47 52 45 |."SCREEN|SAVE GRE|
|00000490| 45 4e 22 0d 01 cc 1f 20 | 20 20 20 c9 20 33 3a 20 |EN".... |   . 3: |
|000004a0| ff 22 53 43 52 45 45 4e | 53 41 56 45 20 42 4c 55 |."SCREEN|SAVE BLU|
|000004b0| 45 22 0d 01 d6 07 20 20 | cb 0d 01 e0 05 ed 0d 01 |E"....  |........|
|000004c0| ea 05 e0 0d 01 f4 05 3a | 0d 01 fe 19 dd f2 63 6f |.......:|......co|
|000004d0| 6c 6f 75 72 28 50 25 2c | 72 25 2c 67 25 2c 62 25 |lour(P%,|r%,g%,b%|
|000004e0| 29 0d 02 08 0d 20 20 c8 | 8e 20 50 25 20 ca 0d 02 |)....  .|. P% ...|
|000004f0| 12 0c 20 20 20 20 c9 20 | 30 3a 0d 02 1c 28 20 20 |..    . |0:...(  |
|00000500| 20 20 20 20 43 4f 4c 25 | 3d 28 62 25 3c 3c 32 34 |    COL%|=(b%<<24|
|00000510| 29 2b 28 67 25 3c 3c 31 | 36 29 2b 28 72 25 3c 3c |)+(g%<<1|6)+(r%<<|
|00000520| 38 29 0d 02 26 30 20 20 | 20 20 20 20 c8 99 20 22 |8)..&0  |    .. "|
|00000530| 43 6f 6c 6f 75 72 54 72 | 61 6e 73 5f 53 65 74 47 |ColourTr|ans_SetG|
|00000540| 43 4f 4c 22 2c 43 4f 4c | 25 2c 2c 2c 26 31 30 30 |COL",COL|%,,,&100|
|00000550| 2c 30 0d 02 30 0c 20 20 | 20 20 c9 20 31 3a 0d 02 |,0..0.  |  . 1:..|
|00000560| 3a 2e 20 20 20 20 20 20 | e6 20 30 2c 63 6f 6c 6e |:.      |. 0,coln|
|00000570| 75 6d 25 28 72 25 29 3e | 3e 32 20 c8 9c 20 63 6f |um%(r%)>|>2 .. co|
|00000580| 6c 6e 75 6d 25 28 72 25 | 29 3c 3c 36 0d 02 44 0c |lnum%(r%|)<<6..D.|
|00000590| 20 20 20 20 c9 20 32 3a | 0d 02 4e 2e 20 20 20 20 |    . 2:|..N.    |
|000005a0| 20 20 e6 20 30 2c 63 6f | 6c 6e 75 6d 25 28 67 25 |  . 0,co|lnum%(g%|
|000005b0| 29 3e 3e 32 20 c8 9c 20 | 63 6f 6c 6e 75 6d 25 28 |)>>2 .. |colnum%(|
|000005c0| 67 25 29 3c 3c 36 0d 02 | 58 0c 20 20 20 20 c9 20 |g%)<<6..|X.    . |
|000005d0| 33 3a 0d 02 62 2e 20 20 | 20 20 20 20 e6 20 30 2c |3:..b.  |    . 0,|
|000005e0| 63 6f 6c 6e 75 6d 25 28 | 62 25 29 3e 3e 32 20 c8 |colnum%(|b%)>>2 .|
|000005f0| 9c 20 63 6f 6c 6e 75 6d | 25 28 62 25 29 3c 3c 36 |. colnum|%(b%)<<6|
|00000600| 0d 02 6c 07 20 20 cb 0d | 02 76 05 e1 0d ff       |..l.  ..|.v....  |
+--------+-------------------------+-------------------------+--------+--------+