Arkanoid -
www.manwe.ru
'24 Mar 28
: w t 16 + ; : d dup ; : f 1 mod ; : p w 2 * sin .3 * .5 + ; : c y * floor 3 mod swap / - d 0 > ; : r / f 0.5 - d 0 > 2 * 1 - * 2 * ; : by w 3.1 r ; x 16 * f .04 > y 32 * f .07 > * y .69 > * 5 16 c 6 32 c 8 8 c drop by d w .02 - 3.1 r - 0 < * w 1 by - 1.55 * - 7 r 16 * floor .52 + 16 / x - abs 0.03 < * y .72 < y .69 > * * 2 / x w 7 r - d * y by .64 * .038 + - d * + sqrt .015 < 2 * + y .028 < x w 7 r p over - by * + - abs .06 < * + d d >r >r + rot r> + rot r> + rot
▶
*
:
w
t
16
+
;
:
d
dup
;
:
f 1
mod
;
:
p w 2
*
sin
.3
*
.5
+
;
:
c
y
*
floor
3
mod
swap
/
-
d 0
>
;
:
r
/
f 0.5
-
d 0
>
2
*
1
-
*
2
*
;
:
by w 3.1 r
;
x
16
*
f .04
>
y
32
*
f .07
>
*
y
.69
>
*
5 16 c
6 32 c
8 8 c
drop
by d w .02
-
3.1 r
-
0
<
*
w 1 by
-
1.55
*
-
7 r
16
*
floor
.52
+
16
/
x
-
abs
0.03
<
*
y
.72
<
y
.69
>
*
*
2
/
x
w 7 r
-
d
*
y
by .64
*
.038
+
-
d
*
+
sqrt
.015
<
2
*
+
y
.028
<
x
w 7 r p
over
-
by
*
+
-
abs
.06
<
*
+
d d
>r
>r
+
rot
r>
+
rot
r>
+
rot
Create a derived work
Printer View