https://github.com/jrincayc/ucblogo-code
Tip revision: 7ebe1472ba7b94541951716f93212bbdae21320f authored by Joshua J. Cogliati on 08 January 2023, 17:45:51 UTC
Merge remote-tracking branch 'origin/master' into debug_stop
Merge remote-tracking branch 'origin/master' into debug_stop
Tip revision: 7ebe147
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]