Code: Select all
Function Kuvamuunnin(in$,out$)
file = OpenToWrite(out$)
img = LoadImage(in$)
Lock Image(img)
For a = 1 To ImageWidth(img)
For b = 1 To ImageHeight(img)
PickImageColor2 img,a,b
WriteLine file,"Color "+getRGB(RED)+","+getRGB(GREEN)+","+getRGB(BLUE)+": Dot "+a+","+b
Next b
Next a
Unlock Image(img)
CloseFile file
EndFunction
Kuvamuunnin("media\guy.bmp","kuva.cb")