RosettaCodeData/Task/Bitmap-Bresenhams-line-algorithm/RapidQ/bitmap-bresenhams-line-algorithm-2.rapidq

7 lines
196 B
Text
Raw Permalink Normal View History

2013-04-10 22:43:41 -07:00
SUB PaintCanvas
draw_line 200, 10, 100, 200, &H00ff00
draw_line 100, 200, 200, 400, &H00ff00
draw_line 200, 400, 300, 200, &H00ff00
draw_line 300, 200, 200, 10, &H00ff00
END SUB