TO testClassicTri
  ca
  
  checkerBoard
  
  cro 1
  
  ask turtles
  [
    pd
    rt 53.1301023541559787  ;; This is the heading
    fd 5
    
    if showTriLegs
    [
       showTriangle
    ]
  ]
END

TO checkerBoard
  ask patches 
  [ 
    set pcolor white 
    if remainder (pxcor + pycor) 2 = 0 
    [ 
      set pcolor yellow 
    ] 
  ]  
END

TO showTriangle
    set color blue
    wait 8
    set pen-size 4
    bk 5
    wait 1
    rt 90 - 53.1301023541559787
    wait 1
    fd 4
    wait 1
    lt 90
    wait 1
    fd 3
    wait 2
    pu
    fd 2
    wait 8
    ht  
END