to aframe :x :tail fd :x bk (:x + :tail) fd :tail rt 90 fd :x bk (2 * :x) lt 45 end to bot :x :tail make "longside sqrt((:x * :x)+(:tail * :tail)) make "angle arctan(:x / :tail) rt 45 + :angle fd :longside rt 180 - 2 * :angle fd :longside rt :angle end to kite :x :tail :num ht make "step1 :x / :num make "step2 :tail / :num cs rt 45 recur.diam :x :tail lt 45 aframe :x :tail wait 180 end