https://github.com/jrincayc/ucblogo-code
Revision 83cc26c4471bbf5be58589e2f43a4caba6b98469 authored by Joshua J. Cogliati on 26 December 2019, 17:49:01 UTC, committed by Joshua J. Cogliati on 26 December 2019, 17:50:26 UTC
1 parent 750ff0d
Tip revision: 83cc26c4471bbf5be58589e2f43a4caba6b98469 authored by Joshua J. Cogliati on 26 December 2019, 17:49:01 UTC
Adding source code to windows install
Adding source code to windows install
Tip revision: 83cc26c
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 ...