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

View File

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