- changed the interface of bigBang; it now starts the canvas, too.
svn: r514
This commit is contained in:
parent
6a6774d336
commit
95c6f7285b
|
@ -72,7 +72,9 @@
|
|||
(sleep-for-a-while s))
|
||||
|#
|
||||
|
||||
(define/provide (bigBang-double-native this accs gets privates #;width #;height i)
|
||||
(define/provide (bigBang-int-int-double-native this accs gets privates width height i)
|
||||
(define theCanvas ((hash-table-get accs 'theCanvas) this))
|
||||
(send theCanvas start-int-int width height)
|
||||
(big-bang i this)
|
||||
(on-tick-event
|
||||
(lambda (world)
|
||||
|
|
|
@ -4,7 +4,7 @@ public abstract class World {
|
|||
|
||||
public Canvas theCanvas = new Canvas();
|
||||
|
||||
public native boolean bigBang(/* int width, int height,*/ double s);
|
||||
public native boolean bigBang(int width, int height, double s);
|
||||
|
||||
public native boolean endOfTime();
|
||||
|
||||
|
|
|
@ -1,5 +1,4 @@
|
|||
This `draw' package provides libraries for modeling in a visual world. It
|
||||
consists of two sets of classes:
|
||||
This `draw' package provides libraries for modeling in a visual world:
|
||||
|
||||
|
||||
+----------+ +----------+
|
||||
|
@ -30,16 +29,16 @@ consists of two sets of classes:
|
|||
+ White
|
||||
+ Yellow
|
||||
|
||||
+-------+
|
||||
| Color |
|
||||
+-------+
|
||||
|
|
||||
/ \
|
||||
---
|
||||
|
|
||||
------------------------------------------
|
||||
| | | | |
|
||||
+-------+ +-------+ +-------+ +-------+ +-------+
|
||||
| Blue | | Green | | Red | | White | | Yellow|
|
||||
+-------+ +-------+ +-------+ +-------+ +-------+
|
||||
+-------+
|
||||
| Color |
|
||||
+-------+
|
||||
|
|
||||
/ \
|
||||
---
|
||||
|
|
||||
------------------------------------------
|
||||
| | | | |
|
||||
+-------+ +-------+ +-------+ +-------+ +-------+
|
||||
| Blue | | Green | | Red | | White | | Yellow|
|
||||
+-------+ +-------+ +-------+ +-------+ +-------+
|
||||
|
||||
|
|
Loading…
Reference in New Issue
Block a user