易 Redux -
陳爽
'24 Mar 28
: 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 易 ; 白 紅 + 白 綠 + 白 大 洞 藍 * +
▶
*
:
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:
易
-
陳爽
Create a derived work
Printer View