Broadcast Day 2 -
FSD
'24 Mar 28
: ns 1.9 * .45 - 13 * ; : between? >r swap dup >r <= r> r> < and ; : canton? over .4 < over ns 6 13 between? and ; : union drop drop 0 .157 0.4 ; : stripes swap drop ns 2 mod 1 < if .75 .04 .188 else 1 1 1 then ; : flag canton? if union else stripes then ; : sky drop drop 0 .75 1 ; : frame dup .237 .763 between? if flag else sky then ; : wavy over t 2 / + 1 mod 4 * pi * cos .01 * + ; : zzz random dup dup ; t 7 mod 3 < if x y wavy frame else zzz then
▶
*
:
ns 1.9
*
.45
-
13
*
;
:
between?
>r
swap
dup
>r
<=
r>
r>
<
and
;
:
canton?
over
.4
<
over
ns 6 13 between?
and
;
:
union
drop
drop
0 .157 0.4
;
:
stripes
swap
drop
ns 2
mod
1
<
if
.75 .04 .188
else
1 1 1
then
;
:
flag canton?
if
union
else
stripes
then
;
:
sky
drop
drop
0 .75 1
;
:
frame
dup
.237 .763 between?
if
flag
else
sky
then
;
:
wavy
over
t
2
/
+
1
mod
4
*
pi
*
cos
.01
*
+
;
:
zzz
random
dup
dup
;
t
7
mod
3
<
if
x
y
wavy frame
else
zzz
then
Based on:
Broadcast Day
-
FSD
Create a derived work
Printer View