Draw pixel 2: Difference between revisions
→{{header|Phix}}
Thundergnat (talk | contribs) m (→{{header|C}}: Remove vanity tags) |
|||
Line 180:
my $ctx = $da.add-draw-handler( &rect-do );
$app.run;</lang>
=={{header|Phix}}==
Resize the window to see the pixel jumping about.
<lang Phix>include pGUI.e
Ihandle dlg, canvas
cdCanvas cddbuffer, cdcanvas
function redraw_cb(Ihandle /*ih*/, integer /*posx*/, integer /*posy*/)
atom {w,h} = IupGetIntInt(canvas, "DRAWSIZE")
cdCanvasActivate(cddbuffer)
cdCanvasClear(cddbuffer)
cdCanvasPixel(cddbuffer, rand(w), rand(h), CD_YELLOW)
cdCanvasFlush(cddbuffer)
return IUP_DEFAULT
end function
function map_cb(Ihandle ih)
cdcanvas = cdCreateCanvas(CD_IUP, ih)
cddbuffer = cdCreateCanvas(CD_DBUFFER, cdcanvas)
cdCanvasSetBackground(cddbuffer, CD_BLACK)
return IUP_DEFAULT
end function
procedure main()
IupOpen()
canvas = IupCanvas(NULL)
IupSetAttribute(canvas, "RASTERSIZE", "240x50")
IupSetCallback(canvas, "MAP_CB", Icallback("map_cb"))
IupSetCallback(canvas, "ACTION", Icallback("redraw_cb"))
dlg = IupDialog(canvas)
IupSetAttribute(dlg, "TITLE", "Draw pixel")
IupCloseOnEscape(dlg)
IupShow(dlg)
IupSetAttribute(canvas, "RASTERSIZE", NULL)
IupMainLoop()
IupClose()
end procedure
main()</lang>
=={{header|Ring}}==
| |||