SHOW:
|
|
- or go back to the newest paste.
1 | screenres 320,200 | |
2 | bload "temp.bmp" | |
3 | palette | |
4 | for iY as long = 0 to 199 | |
5 | for iX as long = 0 to 319 | |
6 | var iC = point(iX,iY) | |
7 | if ((iX+iY) and 1) then | |
8 | - | pset(iX,iY),(iC and 15)+((iC and 15) shl 4) |
8 | + | pset(iX,iY),(iC and 15) |
9 | else | |
10 | - | pset(iX,iY),(iC shr 4)+((iC shr 4) shl 4) |
10 | + | pset(iX,iY),(iC shr 4) |
11 | end if | |
12 | next iX | |
13 | next iY | |
14 | ||
15 | bsave "temp2.bmp",0 | |
16 | ||
17 | sleep |