2023-07-01 11:58:00 -04:00
|
|
|
// Rosetta Code problem: http://rosettacode.org/wiki/Bitmap
|
|
|
|
|
// by Galileo, 07/2022
|
|
|
|
|
|
|
|
|
|
open window 200, 200
|
|
|
|
|
backcolor 255, 0, 0 // red
|
|
|
|
|
|
|
|
|
|
clear window
|
|
|
|
|
|
2026-04-30 12:34:36 -04:00
|
|
|
color 0, 255, 0 // green
|
2023-07-01 11:58:00 -04:00
|
|
|
dot 100, 100
|
|
|
|
|
|
2026-04-30 12:34:36 -04:00
|
|
|
c$ = getbit$(100, 100, 100, 100) // get color area 1x1 pixel
|
2023-07-01 11:58:00 -04:00
|
|
|
print c$
|
