procedure DrawHouse (StartX, StartY, EndX, EndY, Top, Col : int, Door : boolean)
if Door then
Draw.FillBox (((StartX + EndX) div 2) - 2, StartY, ((StartX + EndX) div 2) + 2, StartY + 5, brightred)
end if
Draw.Box (StartX, StartY, EndX, EndY, Col)
Draw.Line (StartX, EndY, (StartX + EndX) div 2, EndY + Top, Col)
Draw.Line (EndX, EndY, (StartX + EndX) div 2, EndY + Top, Col)
Draw.Line (StartX + 1, EndY, EndX - 1, EndY, white)
end DrawHouse
var x, y : int := 0
var xrad : int := 40
var yrad : int := 10
var border : int := black
loop
DrawHouse (x, y, x + xrad, y + yrad, yrad, border, true)
x += xrad
if x >= maxx then
x := 0
y += yrad * 2
end if
exit when y >= maxy
end loop
var picID : int := Pic.New (0, 0, maxx, maxy)
Mouse.ButtonChoose ("multibutton")
View.Set ("graphics;offscreenonly")
var mousex, mousey, button : int
loop
Mouse.Where (mousex, mousey, button)
Pic.Draw (picID, 0, 0, picCopy)
if button = 1 then
Draw.Fill (mousex, mousey, brightgreen, border)
end if
View.Update
end loop
|
Register
Wiki
Blog
Search
Turing
Chat Room
Members
