processing.shapes: Use 'gl-color' in a couple of places

db4
Eduardo Cavazos 2008-07-28 01:41:10 -05:00
parent 1a49f200c2
commit d2352a15e6
1 changed files with 2 additions and 2 deletions

View File

@ -19,13 +19,13 @@ VAR: stroke-color
: fill-mode ( -- )
GL_FRONT_AND_BACK GL_FILL glPolygonMode
fill-color> first4 glColor4d ;
fill-color> gl-color ;
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
: stroke-mode ( -- )
GL_FRONT_AND_BACK GL_LINE glPolygonMode
stroke-color> first4 glColor4d ;
stroke-color> gl-color ;
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!