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

processing.shapes: fix rectangle.

db4
John Benediktsson 2015-09-16 16:49:05 -07:00
parent d6b545a10b
commit 9af266df62
1 changed files with 6 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
extra/processing/shapes/shapes.factor
View File

@ -1,7 +1,6 @@
USING: alien.c-types alien.data arrays colors.constants grouping
USING: alien.c-types alien.data arrays colors grouping kernel kernel locals math math.vectors namespaces opengl opengl.gl
locals math math.vectors namespaces opengl opengl.gl opengl.glu opengl.glu sequences sequences.generalizations shuffle ;
sequences sequences.generalizations shuffle ;
IN: processing.shapes IN: processing.shapes
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
@ -13,8 +12,8 @@ IN: processing.shapes
SYMBOL: fill-color SYMBOL: fill-color
SYMBOL: stroke-color SYMBOL: stroke-color
T{ rgba f 0 0 0 1 } stroke-color set-global COLOR: black stroke-color set-global
T{ rgba f 1 1 1 1 } fill-color set-global COLOR: white fill-color set-global
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
@ -81,8 +80,8 @@ T{ rgba f 1 1 1 1 } fill-color set-global
x y 2array x y 2array
x dx + y 2array x dx + y 2array
x y dy + 2array
x dx + y dy + 2array x dx + y dy + 2array
x y dy + 2array
4array 4array
polygon ; polygon ;