Revision ad2aafdb76721bf7ee061407f6a92e005841f163 authored by Joshua Cogliati on 28 June 2022, 01:19:29 UTC, committed by GitHub on 28 June 2022, 01:19:29 UTC
ISSUE-134: Fixed issue with LOADPICT if it's called before other turtle commands
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]
Computing file changes ...