Guru
Joined: 04/06/2022
Location: GermanyPosts: 1443
| Posted: 12:17pm 23 Aug 2024 |
fast and dirty:
MODE 2
FRAMEBUFFER Layer 9
FRAMEBUFFER write l
Color RGB(Magenta),0
Font 5
For n=1 To 5:Print "** SHINE THROUGH TEST ";:Next
Box 80,60,160,120,,RGB(magenta),RGB(magenta)
FRAMEBUFFER write n
Do
For R= 0 To 1
For G=0 To 3
For B=0 To 1
CLS RGB(R*255,G*85,B*255)
Pause 150:FRAMEBUFFER wait
Next :Next :Next
Loop
FRAMEBUFFER Layer 9
FRAMEBUFFER write l
Color RGB(Magenta),0
Font 5
For n=1 To 5:Print "** SHINE THROUGH TEST ";:Next
Box 80,60,160,120,,RGB(magenta),RGB(magenta)
FRAMEBUFFER write n
Do
For R= 0 To 1
For G=0 To 3
For B=0 To 1
CLS RGB(R*255,G*85,B*255)
Pause 150:FRAMEBUFFER wait
Next :Next :Next
Loop
only every 2nd pixel is transparent
Edited 2024-08-23 22:22 by Martin H.