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

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