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

pong: no need for multi-methods.

char-rename
John Benediktsson 2017-01-22 15:10:42 -08:00
parent 575aced0f7
commit f16a7830b1
1 changed files with 3 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
extra/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 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 ;
FROM: multi-methods => GENERIC: METHOD: ;
FROM: syntax => M: ;
IN: pong IN: pong
! Inspired by this Ruby/Shoes version by why: http://gist.github.com/26431 ! Inspired by this Ruby/Shoes version by why: http://gist.github.com/26431
@ -14,7 +12,7 @@ IN: pong
! by Bill Mill. ! by Bill Mill.
: clamp-to-interval ( x interval -- x ) : clamp-to-interval ( x interval -- x )
[ from>> first max ] [ to>> first min ] bi ; [ from>> first ] [ to>> first ] bi clamp ;
TUPLE: play-field < rectangle ; TUPLE: play-field < rectangle ;
@ -67,9 +65,9 @@ TUPLE: ball < vel
GENERIC: draw ( obj -- ) GENERIC: draw ( obj -- )
METHOD: draw { paddle } [ bottom-left ] [ dim>> ] bi draw-rectangle ; M: paddle draw [ bottom-left ] [ dim>> ] bi draw-rectangle ;
METHOD: draw { ball } [ pos>> ] [ diameter>> 2 / ] bi draw-circle ; M: ball draw [ pos>> ] [ diameter>> 2 / ] bi draw-circle ;
TUPLE: pong-gadget < gadget paused field ball player computer ; TUPLE: pong-gadget < gadget paused field ball player computer ;