/ RISC DISC 2 / RISC_DISC_2.iso / pd_share / mags / hardline / 02_94 / Examples / FadeGen

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 0d f4 3e 46 61 | 64 65 47 65 6e 0d 00 14 |.....>Fa|deGen...|
|00000010| 05 f4 0d 00 1e 1f f4 20 | 47 65 6e 65 72 69 65 72 |....... |Generier|
|00000020| 74 20 64 69 65 20 46 61 | 72 62 74 61 62 65 6c 6c |t die Fa|rbtabell|
|00000030| 65 0d 00 28 24 f4 20 66 | 75 65 72 20 64 61 73 20 |e..($. f|uer das |
|00000040| 46 61 64 69 6e 67 20 62 | 65 69 20 32 35 36 20 46 |Fading b|ei 256 F|
|00000050| 61 72 62 65 6e 0d 00 32 | 05 f4 0d 00 3c 05 3a 0d |arben..2|....<.:.|
|00000060| 00 46 04 0d 00 50 04 0d | 00 5a 07 eb 31 33 0d 00 |.F...P..|.Z..13..|
|00000070| 64 0c de 20 76 64 75 20 | 31 32 0d 00 6e 16 76 64 |d.. vdu |12..n.vd|
|00000080| 75 21 30 3d 31 34 39 3a | 76 64 75 21 34 3d 2d 31 |u!0=149:|vdu!4=-1|
|00000090| 0d 00 78 26 c8 99 20 22 | 4f 53 5f 52 65 61 64 56 |..x&.. "|OS_ReadV|
|000000a0| 64 75 56 61 72 69 61 62 | 6c 65 73 22 2c 76 64 75 |duVariab|les",vdu|
|000000b0| 2c 76 64 75 2b 38 0d 00 | 82 0d 53 43 52 3d 76 64 |,vdu+8..|..SCR=vd|
|000000c0| 75 21 38 0d 00 8c 04 0d | 00 96 3e de 20 54 41 42 |u!8.....|..>. TAB|
|000000d0| 45 4c 4c 45 20 34 30 39 | 36 20 20 20 20 20 20 20 |ELLE 409|6       |
|000000e0| 20 20 20 20 20 20 20 3a | f4 20 32 35 36 20 46 61 |       :|. 256 Fa|
|000000f0| 72 62 65 6e 20 2a 20 31 | 36 20 41 62 73 74 75 66 |rben * 1|6 Abstuf|
|00000100| 75 6e 67 65 6e 0d 00 a0 | 04 0d 00 aa 04 0d 00 b4 |ungen...|........|
|00000110| 24 f4 20 45 69 6e 6c 65 | 73 65 6e 20 64 65 72 20 |$. Einle|sen der |
|00000120| 50 61 6c 65 74 74 65 6e | 65 69 6e 74 72 61 65 67 |Paletten|eintraeg|
|00000130| 65 0d 00 be 04 0d 00 c8 | 22 de 20 52 4f 54 28 31 |e.......|". ROT(1|
|00000140| 36 29 2c 20 47 52 55 45 | 4e 28 31 36 29 2c 20 42 |6), GRUE|N(16), B|
|00000150| 4c 41 55 28 31 36 29 0d | 00 d2 04 0d 00 dc 0d de |LAU(16).|........|
|00000160| 20 42 4c 4f 43 4b 20 35 | 0d 00 e6 0b e3 49 3d 30 | BLOCK 5|.....I=0|
|00000170| b8 31 35 0d 00 f0 18 42 | 4c 4f 43 4b 3f 30 3d 49 |.15....B|LOCK?0=I|
|00000180| 3a 42 4c 4f 43 4b 3f 31 | 3d 31 36 0d 00 fa 3f c8 |:BLOCK?1|=16...?.|
|00000190| 99 20 22 4f 53 5f 57 6f | 72 64 22 2c 31 31 2c 42 |. "OS_Wo|rd",11,B|
|000001a0| 4c 4f 43 4b 20 20 20 20 | 20 20 20 20 20 20 20 3a |LOCK    |       :|
|000001b0| f4 20 50 61 6c 65 74 74 | 65 6e 65 69 6e 74 72 61 |. Palett|eneintra|
|000001c0| 67 20 61 75 73 6c 65 73 | 65 6e 0d 01 04 41 52 4f |g ausles|en...ARO|
|000001d0| 54 28 49 29 3d 42 4c 4f | 43 4b 3f 32 20 20 20 20 |T(I)=BLO|CK?2    |
|000001e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 3a |        |       :|
|000001f0| f4 20 52 47 42 2d 4b 6f | 6d 70 6f 6e 65 6e 74 65 |. RGB-Ko|mponente|
|00000200| 6e 20 65 72 6d 69 74 74 | 65 6c 6e 0d 01 0e 14 47 |n ermitt|eln....G|
|00000210| 52 55 45 4e 28 49 29 3d | 42 4c 4f 43 4b 3f 33 0d |RUEN(I)=|BLOCK?3.|
|00000220| 01 18 13 42 4c 41 55 28 | 49 29 3d 42 4c 4f 43 4b |...BLAU(|I)=BLOCK|
|00000230| 3f 34 0d 01 22 05 ed 0d | 01 2c 04 0d 01 36 18 e3 |?4.."...|.,...6..|
|00000240| 20 46 41 52 42 42 59 54 | 45 20 3d 20 30 20 b8 20 | FARBBYT|E = 0 . |
|00000250| 32 35 35 0d 01 40 04 0d | 01 4a 4c 20 50 41 4c 45 |255..@..|.JL PALE|
|00000260| 54 54 45 3d 46 41 52 42 | 42 59 54 45 20 80 20 25 |TTE=FARB|BYTE . %|
|00000270| 31 31 31 31 20 20 20 20 | 20 20 20 20 20 20 20 3a |1111    |       :|
|00000280| f4 20 41 75 73 6d 61 73 | 6b 69 65 72 65 6e 20 64 |. Ausmas|kieren d|
|00000290| 65 73 20 50 61 6c 65 74 | 74 65 6e 65 69 6e 74 72 |es Palet|teneintr|
|000002a0| 61 67 73 0d 01 54 04 0d | 01 5e 39 20 52 4f 54 3d |ags..T..|.^9 ROT=|
|000002b0| 28 52 4f 54 28 50 41 4c | 45 54 54 45 29 20 80 20 |(ROT(PAL|ETTE) . |
|000002c0| 25 31 31 31 29 20 84 20 | 28 28 46 41 52 42 42 59 |%111) . |((FARBBY|
|000002d0| 54 45 20 80 20 25 31 30 | 30 30 30 29 3e 3e 31 29 |TE . %10|000)>>1)|
|000002e0| 0d 01 68 3e 20 47 52 55 | 45 4e 3d 28 47 52 55 45 |..h> GRU|EN=(GRUE|
|000002f0| 4e 28 50 41 4c 45 54 54 | 45 29 20 80 20 25 31 31 |N(PALETT|E) . %11|
|00000300| 29 20 84 20 28 28 46 41 | 52 42 42 59 54 45 20 80 |) . ((FA|RBBYTE .|
|00000310| 20 25 31 31 30 30 30 30 | 30 29 3e 3e 33 29 0d 01 | %110000|0)>>3)..|
|00000320| 72 3e 20 42 4c 41 55 3d | 28 42 4c 41 55 28 50 41 |r> BLAU=|(BLAU(PA|
|00000330| 4c 45 54 54 45 29 20 80 | 20 25 31 31 31 29 20 84 |LETTE) .| %111) .|
|00000340| 20 28 28 46 41 52 42 42 | 59 54 45 20 80 20 25 31 | ((FARBB|YTE . %1|
|00000350| 30 30 30 30 30 30 30 29 | 3e 3e 34 29 0d 01 7c 04 |0000000)|>>4)..|.|
|00000360| 0d 01 86 15 20 e3 20 53 | 48 41 44 45 20 3d 20 30 |.... . S|HADE = 0|
|00000370| 20 b8 20 31 35 0d 01 90 | 04 0d 01 9a 41 20 20 52 | . 15...|....A  R|
|00000380| 3d 52 4f 54 2d 28 31 35 | 2d 53 48 41 44 45 29 20 |=ROT-(15|-SHADE) |
|00000390| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000003a0| 3a f4 20 52 47 42 2d 41 | 6e 74 65 69 6c 65 20 73 |:. RGB-A|nteile s|
|000003b0| 63 68 61 74 74 69 65 72 | 65 6e 0d 01 a4 18 20 20 |chattier|en....  |
|000003c0| 47 3d 47 52 55 45 4e 2d | 28 31 35 2d 53 48 41 44 |G=GRUEN-|(15-SHAD|
|000003d0| 45 29 0d 01 ae 17 20 20 | 42 3d 42 4c 41 55 2d 28 |E)....  |B=BLAU-(|
|000003e0| 31 35 2d 53 48 41 44 45 | 29 0d 01 b8 04 0d 01 c2 |15-SHADE|).......|
|000003f0| 48 20 20 e7 20 52 3c 30 | 20 52 3d 30 20 20 20 20 |H  . R<0| R=0    |
|00000400| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000410| 20 3a f4 20 57 65 72 74 | 65 20 6b 6c 65 69 6e 65 | :. Wert|e kleine|
|00000420| 72 20 61 6c 73 20 4e 75 | 6c 6c 20 73 69 6e 64 20 |r als Nu|ll sind |
|00000430| 6e 69 63 68 74 0d 01 cc | 2f 20 20 e7 20 47 3c 30 |nicht...|/  . G<0|
|00000440| 20 47 3d 30 20 20 20 20 | 20 20 20 20 20 20 20 20 | G=0    |        |
|00000450| 20 20 20 20 20 20 20 20 | 20 3a f4 20 6d 6f 65 67 |        | :. moeg|
|00000460| 6c 69 63 68 0d 01 d6 0f | 20 20 e7 20 42 3c 30 20 |lich....|  . B<0 |
|00000470| 42 3d 30 0d 01 e0 04 0d | 01 ea 43 20 20 50 3d 42 |B=0.....|..C  P=B|
|00000480| 3c 3c 32 38 20 84 20 42 | 3c 3c 32 34 20 84 20 47 |<<28 . B|<<24 . G|
|00000490| 3c 3c 32 30 20 84 20 47 | 3c 3c 31 36 20 84 20 52 |<<20 . G|<<16 . R|
|000004a0| 3c 3c 31 32 20 84 20 52 | 3c 3c 38 20 20 20 3a f4 |<<12 . R|<<8   :.|
|000004b0| 20 26 42 42 47 47 52 52 | 30 30 0d 01 f4 50 20 20 | &BBGGRR|00...P  |
|000004c0| c8 99 20 22 43 6f 6c 6f | 75 72 54 72 61 6e 73 5f |.. "Colo|urTrans_|
|000004d0| 52 65 74 75 72 6e 43 6f | 6c 6f 75 72 4e 75 6d 62 |ReturnCo|lourNumb|
|000004e0| 65 72 22 2c 50 20 b8 20 | 42 59 54 45 20 20 20 20 |er",P . |BYTE    |
|000004f0| 20 20 20 20 3a f4 20 62 | 65 73 74 6d 6f 65 67 6c |    :. b|estmoegl|
|00000500| 69 63 68 65 20 46 61 72 | 62 65 0d 01 fe 24 20 20 |iche Far|be...$  |
|00000510| 3f 28 53 43 52 2b 46 41 | 52 42 42 59 54 45 2a 33 |?(SCR+FA|RBBYTE*3|
|00000520| 32 30 2b 53 48 41 44 45 | 29 3d 42 59 54 45 0d 02 |20+SHADE|)=BYTE..|
|00000530| 08 27 20 20 3f 28 54 41 | 42 45 4c 4c 45 2b 46 41 |.'  ?(TA|BELLE+FA|
|00000540| 52 42 42 59 54 45 2a 31 | 36 2b 53 48 41 44 45 29 |RBBYTE*1|6+SHADE)|
|00000550| 3d 42 59 54 45 0d 02 12 | 04 0d 02 1c 06 20 ed 0d |=BYTE...|..... ..|
|00000560| 02 26 05 ed 0d 02 30 04 | 0d ff                   |.&....0.|..      |
+--------+-------------------------+-------------------------+--------+--------+