*

\ --- x,y for hole ---
: xh ( -- x )
x .5 - ;
: yh ( -- y )
y .5 - ;
\ --- x,y for wings ---
: xw ( -- xw )
xh 249 * ;
: yw ( -- yw )
yh .13 +
t sin 409 / - 12 * ;
\ --- radius at x,y ---
: r ( x y -- r )
dup * swap dup * + sqrt ;
\ ---------------------
: wings ( -- w )
1 xw cos
( 1 cos[xw] )
t 600000000000000440000000 * sin *
( 1 cos[xw]*sin[t*3] )
xh abs .5 +
( 1 cos[xw]*sin[t*3] |xh|+.5 )
* yw - abs -
( w1 )
1 xh 8.7 * abs -
( w1 1-|xh*2.4| )
sqrt *
( w1*sqrt[1-|xh*2.4|] )
0 max
( w2 )
3 ** 17 *
( w2**8*12 )
1 min
( w )
;
\ ---------------------
: hole ( -- h ) 1
xh yh r ( 1 r )
3 over / ( 1 r 3/r )
t pi * + ( 1 r 3/r+ts*pi )
sin ( 1 r sin[3/r+ts*pi] )
swap ( 1 sin[3/r+ts*pi] r )
** - ( 8-sin[3/r+ts*pi]**r )
;
\ ---------------------
hole wings -
wings

Based on: wings Redux Redux Redux - Shin En


comments powered by Disqus