*

: xc 0 @ ;
: yc 1 @ ;
: rc 2 @ ;
: yt yc .2 + ; : yb yc .2 - ;
: r2 rc 2 / ; : r3 rc 8 / ;
:( dx dy -- 距離 )
dup * swap dup * + sqrt ;
:( 半徑 -- )
x xc - y yc -> ;
:( 半徑 -- )
dup .005 +swap- ;
:( 半徑 -- )
.010 + 圓 1 swap - ;
:( -- )
x xc < ;
:( -- )
rc 圓 左 * ;
:( 高度 -- )
xc x -
swap y - 距 r2 < ;
:( 高度 -- )
xc x - swap y - 距 r3 < ;
: 大 rc ;
: 上 yc rc 2 / + ;
: 下 yc rc 2 / - ;
: + + 1 min ;
: - - 0 max ;
:( c x y r -- c ) 2 ! 1 ! 0 !
大 圈 半 +
上 首 + 下 首 -
上 眼 - 下 眼 + ;
: 白 .50 .50 .30 易 ;
: 紅 .89 .70 .08 易 ;
: 黃 .15 .27 .11 易 ;
: 綠 .15 .77 .11 易 ;
: 藍 .75 .21 .15 易 ;


+

+
白 大 洞
* +

Based on: - 陳爽