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

pong: fix syntax

locals-and-roots
Doug Coleman 2016-06-27 22:38:31 -07:00
parent 57549b0f5f
commit 9324457dbb
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
libs/pong/pong.factor
View File

@ -1,6 +1,6 @@
USING: accessors alien.c-types alien.data arrays calendar colors USING: accessors alien.c-types alien.data arrays calendar colors
combinators combinators.short-circuit flatland generalizations combinators combinators.short-circuit flatland generalizations
grouping kernel locals math math.intervals math.order grouping kernel locals math math.intervals math.order multi-methods
math.rectangles math.vectors namespaces opengl opengl.gl math.rectangles math.vectors namespaces opengl opengl.gl
opengl.glu processing.shapes sequences sequences.generalizations opengl.glu processing.shapes sequences sequences.generalizations
shuffle threads ui ui.gadgets ui.gestures ui.render ; shuffle threads ui ui.gadgets ui.gestures ui.render ;
@ -99,12 +99,12 @@ TUPLE: <pong> < gadget paused field ball player computer ;
T{ <paddle> { pos { 200 396 } } { dim { 75 4 } } } clone >>player T{ <paddle> { pos { 200 396 } } { dim { 75 4 } } } clone >>player
T{ <computer> { pos { 200 0 } } { dim { 75 4 } } } clone >>computer ; T{ <computer> { pos { 200 0 } } { dim { 75 4 } } } clone >>computer ;
M: <pong> pref-dim* ( <pong> -- dim ) drop { 400 400 } ; syntax:M: <pong> pref-dim* ( <pong> -- dim ) drop { 400 400 } ;
M: <pong> ungraft* ( <pong> -- ) t >>paused drop ; syntax:M: <pong> ungraft* ( <pong> -- ) t >>paused drop ;
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
M:: <pong> draw-gadget* ( PONG -- ) syntax:M:: <pong> draw-gadget* ( PONG -- )
PONG computer>> draw PONG computer>> draw
PONG player>> draw PONG player>> draw