steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

L-system: use named color constants

master
Alexander Iljin 2020-08-04 00:41:22 +02:00 committed by John Benediktsson
parent bfe2140148
commit 0bee527143
1 changed files with 15 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
extra/L-system/L-system.factor
View File

@ -173,22 +173,22 @@ DEFER: default-L-parser-values
: color-table ( -- colors ) : color-table ( -- colors )
{ {
T{ rgba f 0 0 0 1 } ! black COLOR: black
T{ rgba f 0.5 0.5 0.5 1 } ! grey COLOR: grey50
T{ rgba f 1 0 0 1 } ! red COLOR: red
T{ rgba f 1 1 0 1 } ! yellow COLOR: yellow
T{ rgba f 0 1 0 1 } ! green COLOR: green
T{ rgba f 0.25 0.88 0.82 1 } ! turquoise COLOR: turquoise
T{ rgba f 0 0 1 1 } ! blue COLOR: blue
T{ rgba f 0.63 0.13 0.94 1 } ! purple COLOR: purple
T{ rgba f 0.00 0.50 0.00 1 } ! dark green COLOR: green4
T{ rgba f 0.00 0.82 0.82 1 } ! dark turquoise COLOR: dark-turquoise
T{ rgba f 0.00 0.00 0.50 1 } ! dark blue COLOR: dark-blue
T{ rgba f 0.58 0.00 0.82 1 } ! dark purple T{ rgba f 0.58 0.00 0.82 1 } ! dark purple
T{ rgba f 0.50 0.00 0.00 1 } ! dark red COLOR: dark-red
T{ rgba f 0.25 0.25 0.25 1 } ! dark grey COLOR: grey25
T{ rgba f 0.75 0.75 0.75 1 } ! medium grey COLOR: grey75
T{ rgba f 1 1 1 1 } ! white COLOR: white
} ; } ;
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!