X-Hair

- XLogo

Add this procedure to any other program in XLogo. Enter GoX to run. It will produce an on-screen X-Hair. Useful for measuring point to point distances.

To New
  # set default screen, pen and turtle values
  ResetAll SetScreenSize [400 400] HideTurtle
  SetSC Black SetPC Green SetPS 1 PenUp
End

To GoX
  New SetPC White SetPos [-190 184] Label "X-Hair
  PX Make "OldX 201 Make "OldY 202
  Forever [
    Make "MouseX Item 1 MousePos
    Make "MouseY Item 2 MousePos
    While [Or (Not :MouseX = :OldX) (Not :MouseY = :OldY)] [
      PenUp SetXY :OldX Minus 200
      PenDown SetXY :OldX 200
      PenUp SetXY Minus 200 :OldY
      PenDown SetXY 200 :OldY
      PenUp SetPC ScreenColor SetPos [-190 -190] Label List :OldX :OldY
      PenUp SetPC White SetPos [-190 -190] Label List :MouseX :MouseY
      PenUp SetXY :MouseX Minus 200
      PenDown SetXY :MouseX 200
      PenUp SetXY Minus 200 :MouseY
      PenDown SetXY 200 :MouseY
      Make "OldX :MouseX
      Make "OldY :MouseY]]
End


X-Hair

Procedures blue
Variables pink
Comments green
Library gray