*

: 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


comments powered by Disqus