View.Set ("offscreenonly")
var x1, x : real := Rand.Int (45, maxx - 45)
var x2 : real := Rand.Int (45, maxx - 45)
var y1, y : real := Rand.Int (45, maxy - 45)
var y2 : real := Rand.Int (45, maxy - 45)
var xslope : real := (x2 - x1) / Math.Distance (x, y, x2, y2) * 2
var yslope : real := (y2 - y1) / Math.Distance (x, y, x2, y2) * 2
for i : 1 .. 15
for j : -6 .. 6 by 6
Draw.Line (round (x2), round (y2), round (x2 + (i * xslope) + j * xslope), round (y2 + (i * yslope) - j * yslope), brightred)
end for
end for
Draw.FillOval (round (x1), round (y1), 10, 10, red)
Draw.FillOval (round (x2), round (y2), 10, 10, red)
|