MFG
Code: Alles auswählen
If CreateImage(0, 128,128)
If StartDrawing(ImageOutput(0))
Circle(100,100,50,RGB(0,0,255)) ; a nice blue circle...
Box(15,20,20,20, RGB(0,255,0)) ; and a green box
FrontColor(RGB(255,0,0)) ; Finally, red lines..
For k=0 To 20
LineXY(10,10+k*8,100, 0)
Next
DrawingMode(1)
; Locate(10, 50)
BackColor(RGB(0,155,155)) ; Change the text back and front colour
FrontColor(RGB(255,255,255))
DrawText(10,50,"Hello, this is a test")
StopDrawing()
EndIf