A next exercise . . .

[bplus]

I am lazy and will only do it in 3 lines:

Code: (Select All)

Screen _NewImage(1000, 300, 32)
_ScreenMove 100, 200
For y = 0 To 2
    For x = 0 To 2
        Circle (x * 100 + 400, y * 100 + 50), 30
    Next
Next
a = _Atan2(60, 200)
x = 60 / Sin(a)
adj = 50
Line (350, 50)-(600 + x + adj, 50)
Line (600 + x + adj, 50)-(400 - x - adj, 250)
Line (400 - x - adj, 250)-(650, 250)
Sleep

The smaller the circles the longer the lines