https://github.com/jrincayc/ucblogo-code
Tip revision: 7d4fd39c6d7afe4b0946839a1342c4ee4ef18d9b authored by Joshua J. Cogliati on 31 July 2020, 22:31:27 UTC
macOS needs to get the CXX and CC from wx to compile correctly.
macOS needs to get the CXX and CC from wx to compile correctly.
Tip revision: 7d4fd39
setpen
;;; -*- logo -*-
to setpen :pen_data
ifelse equalp first bf :pen_data "reverse ~
[penreverse] ~
[ifelse equalp first bf :pen_data "erase ~
[penerase] ~
[penpaint]]
ifelse equalp first :pen_data "penup [penup] [pendown]
setpensize first bf bf :pen_data
setpencolor first bf bf bf :pen_data
setpenpattern first bf bf bf bf :pen_data
end
bury [setpen]
