: d dup ;
: f 1 mod ;
: p t 2 * sin .3 * .5 + ;
: c y * floor 3 mod 6 / - d 0 > ;
: r / f .5 - d 0 > 2 * 1 - * 2 * ;
: by t 3.1 r ;
( bricks colored )
x 16 * f .04 >
y 32 * f .07 >
* y .69 > *
8 c
16 c
32 c
drop
( light up )
by d t .02 - 3.1 r - 0 < *
t 1 by - 1.55 * - 7 r
16 * floor .52 + 16 /
x - abs .03 <
*
y .72 < y .69 > * *
2 /
( ball )
x t 7 r - d *
y by .64 * .038 + - d * +
sqrt .015 < 2 *
+
( carriage )
y .028 <
x
t 7 r p over - by * + .07 max .93 min
- abs
.07 < *
+
( mix )
d d >r
z+ rot r> +
0 max
( background )
: z 12 * 1 mod .5 - abs ;
x z y z + .3 <
x .04 - z y .04 - z + .3 <
+ 9 /
.4 +
dup .69 < *
+