Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

setfloodcolor with variables

14 views
Skip to first unread message

Kent Burel

unread,
Aug 10, 2023, 4:15:39 PM8/10/23
to
I'm trying to explore colors. So I want to loop through the red, green, and blue values to see the various colors. setfloodcolor does the job. But how do I pass variables to setfloodcolor? My code looks like this:

to mycolors
cs
pd
repeat 4 [fd 100 rt 90]
pu
rt 45
fd 20

make "red 0
make "green 0
make "blue 0
make "colorarray array 3
while [:red<256] [
while [:green<256] [
while [:blue<256] [
setitem 1 :colorarray :red
setitem 2 :colorarray :green
setitem 3 :colorarray :blue
setfloodcolor [:red :green :blue]
fill
make "blue :blue+1]
make "green :green+1]
make "red :red+1]
end

When I run it I get

setfloodcolor doesn't like [:red :green :blue] as input in mycolors

Kent Burel

unread,
Aug 10, 2023, 9:25:44 PM8/10/23
to
I figured out my problem. I've got it to work. Now it look like this:

to mycolors
cs
pd
repeat 4 [fd 200 rt 90]
pu
rt 45
fd 20

make "red 0
make "green 0
make "blue 0
while [:red<257] [
while [:green<257] [
while [:blue<257] [
setfloodcolor (list :red :green :blue)
fill
make "blue :blue+1
]
make "blue 0
make "green :green+1
]
make "blue 0
make "green 0
make "red :red+1
]
end
0 new messages