( greetings to DarkstarAG )
: line
x - rot x swap - rot
y - * -rot y rot - *
- abs 999 * 1 min 1 swap -
;
: cut
y > swap y < * -rot
x > swap x < *
* * +
;
: dot x - 2 ** swap y - 2 ** + .00005 < + ;
0
.78 .25 .69 .47 line
.25 .475 .68 .78 cut
.69 .47 .83 .64 line
.47 .64 .69 .83 cut
.83 .635 .64 .64 line
.63 .65 .64 .825 cut
.64 .64 .51 .76 line
.64 .76 .51 .64 cut
.51 .76 .47 .60 line
.595 .76 .47 .51 cut
.47 .60 .34 .50 line
.50 .60 .34 .47 cut
.34 .50 .46 .37 line
.37 .50 .34 .46 cut
.46 .37 .48 .20 line
.20 .37 .455 .48 cut
.48 .20 .59 .32 line
.20 .32 .48 .59 cut
.59 .32 .78 .25 line
.25 .32 .59 .78 cut
.40 .54 .36 .63 line
.54 .631 .35 .40 cut
.36 .63 .14 .55 line
.55 .63 .14 .36 cut
.14 .55 .13 .74 line
.55 .74 .13 .14 cut
.13 .74 .27 .60 line
.60 .74 .13 .27 cut
.39 .45 .315 .35 line
.35 .45 .315 .39 cut
.32 .35 .13 .50 line
.35 .50 .13 .32 cut
.13 .50 .14 .29 line
.29 .50 .13 .14 cut
.14 .29 .25 .41 line
.29 .41 .14 .25 cut
.50 .42 .46 .515 line
.42 .515 .457 .50 cut
.46 .51 .53 .58 line
.51 .58 .46 .53 cut
.58 .46 dot
.59 .53 dot
dup dup