Anonymous user
Bitmap/Flood fill: Difference between revisions
m
→{{header|Action!}}
(Added solution for Action!) |
|||
Line 16:
RGB black,white,yellow,blue
DEFINE PTR="CARD"
TYPE PointB=[BYTE px,py]
▲TYPE Queue=[CARD qfront,qrear,capacity,qdata]
PROC QueueInit(Queue POINTER q)
Line 37:
PROC QueuePush(Queue POINTER q PointB POINTER p)
PointB POINTER tmp
Line 69:
PROC DrawImage(RgbImage POINTER img BYTE x,y)
RGB POINTER
BYTE i,j
FOR j=0 TO img.h-1
DO
FOR i=0 TO img.w-1
DO
IF RgbEqual(
Color=1
ELSEIF RgbEqual(
Color=2
ELSEIF RgbEqual(
Color=3
ELSE
Line 87:
FI
Plot(x+i,y+j)
OD
OD
Line 148:
RgbImage img
BYTE CH=$02FC,size=[40]
BYTE ARRAY
BYTE n
INT x,y
Line 164:
RgbBlue(blue)
InitRgbImage(img,size,size,
FillRgbImage(img,black)
| |||