Colour bars/Display: Difference between revisions
Content added Content deleted
(Phix added, PicoLisp moved below PHP) |
|||
Line 880: | Line 880: | ||
-- ============================ |
-- ============================ |
||
-- |
-- |
||
--#withtype Ihandle |
|||
--#withtype cdCanvas |
|||
--#withtype cdCanvan |
|||
include pGUI.e |
include pGUI.e |
||
Line 909: | Line 904: | ||
cdcanvas = cdCreateCanvas(CD_IUP, ih) |
cdcanvas = cdCreateCanvas(CD_IUP, ih) |
||
cddbuffer = cdCreateCanvas(CD_DBUFFER, cdcanvas) |
cddbuffer = cdCreateCanvas(CD_DBUFFER, cdcanvas) |
||
cdCanvasSetBackground(cddbuffer, CD_WHITE) |
|||
cdCanvasSetForeground(cddbuffer, CD_BLACK) |
|||
cdCanvasFont(cddbuffer, "Helvetica", CD_PLAIN, 8) |
|||
cdCanvasVectorTextDirection(cddbuffer, 1, 1, 1, 0) |
|||
return IUP_DEFAULT |
return IUP_DEFAULT |
||
end function |
end function |