fxturtle.bis

来自「用VB实现的编译器的源代码」· BIS 代码 · 共 107 行

class Turtle

  <definitions>

  method move
    1
    Distance
  end method

  method turn
    1
    Angle
  end method

  method moveTo
    2
    toX
    toY
  end method

  method turnTo
    1
    Angle
  end method

  method setColor
    1
    Color
  end method

  method write
    3
    Text
    toX
    toY
  end method

  method sleep
    1
    Delay
  end method

  <methods>
  
  method void penUp
    turtleOff
  end method

  method void penDown
    turtleOn
  end method

  method void move
    tmove [#Distance]
  end method

  method void turn
    tturn [#Angle]
  end method

  method void turnTo
    tturnTo [#Angle]
  end method

  method void moveTo
    tmoveTo [#toX] [#toY]
  end method

  method void clear
    tcls
  end method

  method function getX
    getTX
    return [+Misc]
  end method

  method function getY
    getTY
    return [+Misc]
  end method

  method void setColor
    turtleColor [#Color]
  end method

  method void write
    turtlePrint [#Text] [#toX] [#toY]
  end method

  method void sleep  
    turtleSleep [#Delay]
  end method

  method void showTurtle
    tShow
  end method

  method void hideTurtle
    tHide
  end method

end class