Continuity -
Anonymous
'24 Mar 28
: xc x .5 - ; : yc y .5 - ; : yt y .7 - ; : yb y .3 - ; : r1 .16 ; : r2 .04 ; : r3 .005 ; : len dup * swap dup * + ; : c1 xc yc len r1 swap / ; : c2 xc yc len r1 - dup .008 / swap .012 swap / min ; : lr 0.5 x - 0.5 y - 6 / - pi * 2 / sin 1 + 10 pow ; : wb xc yt len r2 swap / ; : bb xc yb len r2 / ; : ws xc yb len r3 swap / ; : bs xc yt len r3 / ; c1 lr min bb min wb max bs min ws max c2 max 0.1 - dup dup x 0.6 + *
▶
*
:
xc
x
.5
-
;
:
yc
y
.5
-
;
:
yt
y
.7
-
;
:
yb
y
.3
-
;
:
r1 .16
;
:
r2 .04
;
:
r3 .005
;
:
len
dup
*
swap
dup
*
+
;
:
c1 xc yc len r1
swap
/
;
:
c2 xc yc len r1
-
dup
.008
/
swap
.012
swap
/
min
;
:
lr 0.5
x
-
0.5
y
-
6
/
-
pi
*
2
/
sin
1
+
10
pow
;
:
wb xc yt len r2
swap
/
;
:
bb xc yb len r2
/
;
:
ws xc yb len r3
swap
/
;
:
bs xc yt len r3
/
;
c1 lr
min
bb
min
wb
max
bs
min
ws
max
c2
max
0.1
-
dup
dup
x
0.6
+
*
Create a derived work
Printer View