10 lines
350 B
Text
10 lines
350 B
Text
If OpenWindow(0, 0, 0, 320, 240, "Rosetta Code Draw A Pixel in PureBasic")
|
|
If CreateImage(0, 320, 240) And StartDrawing(ImageOutput(0))
|
|
Plot(100, 100,RGB(255,0,0))
|
|
StopDrawing()
|
|
ImageGadget(0, 0, 0, 320, 240, ImageID(0))
|
|
EndIf
|
|
Repeat
|
|
Event = WaitWindowEvent()
|
|
Until Event = #PB_Event_CloseWindow
|
|
EndIf
|