setscreen ("graphics:600;600")
var MINx, MAXx, m, b : int
var x, y : int
const gridsize := 20
put "Enter value for M : " ..
get m
put "Enter value for B : " ..
get b
x := - (maxx div 2)
cls
/*for gx : 1 .. maxx by gridsize
drawline (gx, 0, gx, maxy, black)
end for
for gy : 1 .. maxx by gridsize
drawline (0, gy, maxx, gy, black)
end for*/
var font := Font.New ("Times New Roman:12")
loop
x += gridsize
y := (m * x) + (b * gridsize)
exit when x > maxx or y > maxy
Draw.Text ("O", x + maxx div 2, y + maxy div 2 + gridsize div 3, font, black)
end loop
Draw.Text ("(0,0)", maxx div 2, maxy div 2, font, brightred)
|