drawline.bmx 288 B

12345678910111213141516171819
  1. ' drawline.bmx
  2. ' draws a cross hair at the mouse position using DrawLine
  3. Graphics 640,480
  4. HideMouse
  5. While Not KeyHit(KEY_ESCAPE)
  6. Cls
  7. x=MouseX()
  8. y=MouseY()
  9. DrawLine 320,240,x,y
  10. DrawLine x-2,y,x-10,y
  11. DrawLine x+2,y,x+10,y
  12. DrawLine x,y-2,x,y-10
  13. DrawLine x,y+2,x,y+10
  14. Flip
  15. Wend