*

\ {{ Add a wave by DarkstarAG
: x x ;
( : y x .5 - t cos y .5 * cos 2 / 1 + - * ; )
: y x t 3 / 1.57 4 / mod - 30 * 1 cos * cos 40 / y + ;
\ }} Add a wave

: x x 2.3 * ; : y y 2 * 1 - ;
: n 12 ; \ number of spikes
: alpha pi 12 / ; \ half of spike angle

: x0 0.5 ;
: y0 0.5 ;
: r0 0.29 ;
: theta x x0 - y y0 - atan2 pi + ;
: r x x0 - dup * y y0 - dup * + sqrt ;
: beta theta pi n / 2 * mod pi 3 * n / t * - abs ;
: b r0 alpha sin * alpha cos beta sin * beta cos alpha t * sin * + / ;
b r > r .17 > and r .15 < or >r
r@ x 1 > or y 0 < or \ red
r> \ green
y 0 > x 1 < and \ blue

Based on: Flag of ROC - 陳佳騰


comments powered by Disqus