link graphics
procedure main() # g1
    WOpen("size=300,200")

    every x := 0 to 300 by 3 do
        DrawPoint(x, 100)   # horizontal

    every y := 0 to 200 by 7 do
        DrawPoint(150, y)  # vertical

    WDone()
end