Skip to main content

Browse the archive

Revision 9e69e3271e296b7a329e44150d9c1f4adf9ce442 authored by Joshua Cogliati on 29 October 2020, 01:34:09 UTC, committed by GitHub on 29 October 2020, 01:34:09 UTC 
Merge pull request #59 from dmalec/ISSUE-36
 
ISSUE-36: Handle command line arguments across environments.
2 parent s 12004aa + 09a7358
Raw File
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]
back to top