08-27-2003, 08:40 AM
Textmode rotozoomer, ya it's prolly a lil late but owell....
i forced myself to do it in 25 lines aswell
i forced myself to do it in 25 lines aswell
Code:
1 FOR I% = 0 TO 7
2 PALETTE I%, I%
3 OUT 968, I%
4 OUT 969, I% * 4
5 OUT 969, I% * 4
6 OUT 969, 0
7 PALETTE I% + 8, I% + 8
8 OUT 968, I% + 8
9 OUT 969, (8 - I%) * 4
10 OUT 969, (8 - I%) * 4
11 OUT 969, 0
12 NEXT
13 DEF SEG = &HB800
14 Ang! = Ang! + .01 '<--- adjust this for speed of rotozoomer
15 Ss% = COS(Ang!) * 128 * SIN(Ang!)
16 Cs% = SIN(Ang!) * 128 * SIN(Ang!)
17 FOR Ix% = 0 TO 79
18 FOR Iy% = 0 TO 24
19 Ys = (Iy% * Cs% + Ix% * Ss%) * 1.5
20 Xs = (Iy% * Ss% - Ix% * Cs%) * 1.5
21 POKE Ix% * 2 + Iy% * 160, (((Iy% + Ix%) + L&) AND 7) + 199
22 POKE (Ix% * 2 + Iy% * 160) + 1, (((Ys XOR Xs)) \ 256) AND 15
23 NEXT Iy%, Ix%
24 L& = (L& + 1) AND 32767 '<--- adjust this for speed of BG
25 IF LEN(INKEY$) = 0 THEN 14
very F***ing song remains the same
To everyone who sucks-up for the fame
Out of strength you know we speak the truth
Every trend that dies is living proof
MasterMinds Software
To everyone who sucks-up for the fame
Out of strength you know we speak the truth
Every trend that dies is living proof
MasterMinds Software