|#|constant, @line-x-1, 50 |#|constant, @line-y-1, 50 |#|constant, @line-x-2, 400 |#|constant, @line-y-2, 200 |#|constant, @line-x-1, 400 |#|constant, @line-y-1, 200 |#|constant, @line-x-2, 500 |#|constant, @line-y-2, 500 |#|constant, @line-x-1, 500 |#|constant, @line-y-1, 500 |#|constant, @line-x-2, 50 |#|constant, @line-y-2, 50 |#|constant, @line-r, 255 |#|constant, @line-g, 255 |#|constant, @line-b, 255 |main| clear the screen, draw side A, draw side B, draw side C, display, yield |draw a side|, @line-r:255, @line-g:255, @line-b:255, draw a line |draw a line| @draw-line |draw side A| @line-x-1:50, @line-y-1:50, @line-x-2:400, @line-y-2:200, draw a side |draw side B| @line-x-1:400, @line-y-1:200, @line-x-2:500, @line-y-2:500, draw a side |draw side C| @line-x-1:500, @line-y-1:500, @line-x-2:50, @line-y-2:50, draw a side |display| @display |yield| main loop