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 |
