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

pong: FROM: doesn't support \ so fully qualify it.

locals-and-roots
Doug Coleman 2016-06-27 20:27:47 -07:00
parent 0ad2c54f55
commit 12ea950408
1 changed files with 3 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
libs/pong/pong.factor
View File

@ -4,8 +4,6 @@ grouping kernel locals math math.intervals math.order
math.rectangles math.vectors namespaces opengl opengl.gl
opengl.glu processing.shapes sequences sequences.generalizations
shuffle threads ui ui.gadgets ui.gestures ui.render ;
FROM: multi-methods => GENERIC: METHOD: ;
FROM: syntax => M: ;
IN: pong
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
@ -85,10 +83,10 @@ TUPLE: <ball> < <vel>
! Protocol for drawing PONG objects
GENERIC: draw ( obj -- ) ;
multi-methods:GENERIC: draw ( obj -- ) ;
METHOD: draw { <paddle> } [ bottom-left ] [ dim>> ] bi rectangle ;
METHOD: draw { <ball> } [ pos>> ] [ diameter>> 2 / ] bi circle ;
multi-methods:METHOD: draw { <paddle> } [ bottom-left ] [ dim>> ] bi rectangle ;
multi-methods:METHOD: draw { <ball> } [ pos>> ] [ diameter>> 2 / ] bi circle ;
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!