bubble-chamber: remove individual launcher vocabs in favor of single window.
parent
bfeb011341
commit
12166d3693
|
@ -1,8 +1,10 @@
|
||||||
USING: accessors arrays calendar colors colors.gray
|
USING: accessors arrays ascii calendar colors colors.gray
|
||||||
combinators.short-circuit frame-buffer kernel locals math
|
combinators.short-circuit frame-buffer kernel locals math
|
||||||
math.constants math.functions math.libm math.order math.points
|
math.constants math.functions math.libm math.order math.points
|
||||||
math.ranges math.vectors namespaces opengl processing.shapes
|
math.ranges math.vectors namespaces opengl processing.shapes
|
||||||
random sequences threads ui ui.gadgets ui.gestures ;
|
quotations random sequences splitting threads ui ui.gadgets
|
||||||
|
ui.gadgets.borders ui.gadgets.buttons ui.gadgets.packs
|
||||||
|
ui.gestures ;
|
||||||
|
|
||||||
IN: bubble-chamber
|
IN: bubble-chamber
|
||||||
|
|
||||||
|
@ -498,3 +500,14 @@ bubble-chamber H{
|
||||||
111 [ <axion> add-particle ] times
|
111 [ <axion> add-particle ] times
|
||||||
dup particles>> [ collide randomize-collision-theta ] each
|
dup particles>> [ collide randomize-collision-theta ] each
|
||||||
drop ;
|
drop ;
|
||||||
|
|
||||||
|
MAIN-WINDOW: run-bubble-chamber { { title "Bubble Chamber" } }
|
||||||
|
<pile> 1 >>fill { 2 2 } >>gap {
|
||||||
|
original small medium large hadron-chamber
|
||||||
|
quark-chamber muon-chamber ten-hadrons
|
||||||
|
original-big-bang original-big-bang-variant
|
||||||
|
} [
|
||||||
|
[ name>> "-" " " replace >title ]
|
||||||
|
[ 1quotation [ drop ] prepend ] bi
|
||||||
|
<border-button> add-gadget
|
||||||
|
] each { 2 2 } <border> >>gadgets ;
|
||||||
|
|
|
@ -1,8 +0,0 @@
|
||||||
|
|
||||||
USING: ui bubble-chamber ;
|
|
||||||
|
|
||||||
IN: bubble-chamber.hadron-chamber
|
|
||||||
|
|
||||||
: main ( -- ) [ hadron-chamber ] with-ui ;
|
|
||||||
|
|
||||||
MAIN: main
|
|
|
@ -1 +0,0 @@
|
||||||
demos
|
|
|
@ -1,8 +0,0 @@
|
||||||
|
|
||||||
USING: ui bubble-chamber ;
|
|
||||||
|
|
||||||
IN: bubble-chamber.large
|
|
||||||
|
|
||||||
: main ( -- ) [ large ] with-ui ;
|
|
||||||
|
|
||||||
MAIN: main
|
|
|
@ -1 +0,0 @@
|
||||||
demos
|
|
|
@ -1,8 +0,0 @@
|
||||||
|
|
||||||
USING: ui bubble-chamber ;
|
|
||||||
|
|
||||||
IN: bubble-chamber.medium
|
|
||||||
|
|
||||||
: main ( -- ) [ medium ] with-ui ;
|
|
||||||
|
|
||||||
MAIN: main
|
|
|
@ -1 +0,0 @@
|
||||||
demos
|
|
|
@ -1,8 +0,0 @@
|
||||||
|
|
||||||
USING: ui bubble-chamber ;
|
|
||||||
|
|
||||||
IN: bubble-chamber.original
|
|
||||||
|
|
||||||
: main ( -- ) [ original ] with-ui ;
|
|
||||||
|
|
||||||
MAIN: main
|
|
|
@ -1 +0,0 @@
|
||||||
demos
|
|
|
@ -1,8 +0,0 @@
|
||||||
|
|
||||||
USING: ui bubble-chamber ;
|
|
||||||
|
|
||||||
IN: bubble-chamber.quark-chamber
|
|
||||||
|
|
||||||
: main ( -- ) [ quark-chamber ] with-ui ;
|
|
||||||
|
|
||||||
MAIN: main
|
|
|
@ -1 +0,0 @@
|
||||||
demos
|
|
|
@ -1,8 +0,0 @@
|
||||||
|
|
||||||
USING: ui bubble-chamber ;
|
|
||||||
|
|
||||||
IN: bubble-chamber.small
|
|
||||||
|
|
||||||
: main ( -- ) [ small ] with-ui ;
|
|
||||||
|
|
||||||
MAIN: main
|
|
|
@ -1 +0,0 @@
|
||||||
demos
|
|
|
@ -1 +0,0 @@
|
||||||
demos
|
|
|
@ -1,8 +0,0 @@
|
||||||
|
|
||||||
USING: ui bubble-chamber ;
|
|
||||||
|
|
||||||
IN: bubble-chamber.ten-hadrons
|
|
||||||
|
|
||||||
: main ( -- ) [ ten-hadrons ] with-ui ;
|
|
||||||
|
|
||||||
MAIN: main
|
|
Loading…
Reference in New Issue