draw.rect(x1, y1, x2, y2, 2, COL_BLACK, COL_WHITE)
draw.circle(x, y, r, 2, COL_BLACK, COL_WHITE)

draw.setstyle{width=2, border="black", fill="white"}
draw.rect(x1, y1, x2, y2)
draw.circle(x, y, r)

draw.setstyle{width=2, border="black", fill="white"}
draw.rect(x1, y1, x2, y2)
draw.circle(x, y, r, {width=4})

void PegScreen::PatternLine  (  PegThing *  Caller,  
  SIGNED  wXStart,  
  SIGNED  wYStart,  
  SIGNED  wXEnd,  
  SIGNED  wYEnd,  
  PegColor &  Color,  
  SIGNED  wWidth,  
  DWORD  dPattern,  
  UCHAR  Rop = RF_SRCCOPY
)  

This function draws a dashed line. The dash pattern is determined by the dPattern value. For example, a dPattern value of 0xf0f0f0f0 would draw a line alternating between 4 pixels on and four pixels off.

require "ui" "draw"
...
pict.save(p,dialog.save("pict"))

-----------------------
function siatka(x_p,y_p,nx_max,ny_max)

for n=0,ny_max do
draw.line(x_p,y_p+n*6,x_p+nx_max*6,y_p+n*6)
end
for n=0,nx_max do
draw.line(x_p+n*6,y_p,x_p+n*6,y_p+ny_max*6)
end
win:update()
end

-----------------------
function maluj(x_pen,y_pen)

col=1

-- okreslanie aktualnej komorki

repeat
x=xset+col*6
col=col+1
until x_pen<x
col=col-1

row=1
repeat
y=yset+row*6
row=row+1
until y_pen<y
row=row-1

-- przerysowanie komorki

if col<=maxcol and row<=maxrow and col>0 and row>0 then
if mat[col][row]==0
then
draw.rect(x-5,y-5,x-1,y-1,1,BLACK,1)
mat[col][row]=1
else
if mat[col][row]==1
then
draw.rect(x-5,y-5,x-1,y-1,1,WHITE,0)
draw.pixel(x-3,y-3)
mat[col][row]=2
else
draw.rect(x-5,y-5,x-1,y-1,1,WHITE,0)
mat[col][row]=0
end
end
end
win:update()

end
-----------------------
function nowyobraz()

menu=1
menu2=1
path=nil
draw.clear()
init()

siatka(xset,yset,maxcol,maxrow)
statusbar(path)
end
----------------------
function generujkod()
end
-----------------------
function generujobraz()
end

-----------------------
function obraz_update()
end
-----------------------
function wczytajobraz()
end
-----------------------
function zapisz()
end
-----------------------
function init()

xset=35
yset=50
maxrow=25
maxcol=20

for i=1,maxcol do
local tab = {}
for j=1,maxrow do
tab[j]=0
end
mat[i]=tab
end

end
----------------------
function zapisz_data()
end
----------------------
function zapiszjako_data()


end
----------------------
function otworz_data()

end

----------------------
function sprawdz()


end

----------------------
-------- Main ---------
----------------------
require("ui","draw","io","string")

-- create window
win = ui.window{ name="Test1", x=0, y=0,expand=false,width=160, height=215 }

draw.onpict( win:getpict() )

draw.clear()
win:update()

win:show(true)

function win:_pendown(x,y)
if menu==1 then
maluj(x,y)
end

end
---------------------
xset=35
yset=50
maxrow=25
maxcol=20
mat={}
tab1={}
tab2={}
init()

------- menu 1 --------

m1 = ui.menu()

m1:add{type="button", text="Wczytaj obraz", _action= wczytajobraz
}

m1:add{type="button", text="Zapisz zmiany", _action=zapisz}

m1:add{type="button", text="Sprawdz", _action=sprawdz}

m1:add{type="line"}

m1:add{type="button", text="Wyjscie", _action=function() ui.stop() end}

------- menu 2 --------

m2 = ui.menu()
m2:add{type="button", text="Nowy obraz", _action=nowyobraz}


m2:add{type="line"}

m2:add{type="button", text="Otworz", _action=function()
otworz_data()
end}

m2:add{type="button", text="Zapisz", _action=function()
zapisz_data()
end}

m2:add{type="button", text="Zapisz jako", _action=zapiszjako_data}

m2:add{type="line"}

m2:add{type="button", text="Generuj obraz", _action=generujobraz}

------- menu 3 --------

m3 = ui.menu()
--m3:add{type="button", text="Zasady gry", _action=tytul}

m3:add{type="button", text="O programie", _action=function()
dialog.message{title="O programie",text="Ver. 1.0 by ndzamana",x=1,y=70,width=157,height=60,buttons={"ok"}}
end}

------- MENU --------


m = ui.menu()
m:add{type="menu", text="Gra", menu=m1}
m:add{type="menu", text="Rysuj", menu=m2}
m:add{type="menu", text="Pomoc",menu=m3}
--m:add{type="break"}
win:add(m)

win:show()
ui.start()