XProfan

cls $FF
Bild wird erstellt - einfach eine schräge Linie
var p& = Create(hNewPic,32,32,$FFFFFF)
StartPaint p&
UsePen 0,5,0
Line 0,0 - 32,32
EndPaint
Mit CopyPic wird die erste Zeile gemalt; dreimal dasselbe Bild nebeneinander
CopyPic p& , 0,0 - 32,32 >  0,0 ; -1
CopyPic p& , 0,0 - 32,32 > 32,0 ; -1
CopyPic p& , 0,0 - 32,32 > 64,0 ; -1
Mit DrawPic hingegen die zweite; auch dasselbe Bild dreimal nebeneinander
DrawPic p& ,  0,32 ; -1
DrawPic p& , 32,32 ; -1
DrawPic p& , 64,32 ; -1
Nachdem ein Bild mit CopyPic gemalt wurde, ist es nicht mehr verwendbar!
Kommentiert man CopyPic hingegen aus, so malt DrawPic wie verlangt das Bild dreimal.
waitinput
DeleteObject p&
end