ArrowHead(a, b) : if d == (- 0.238, - 0.508) rel (a, b) , c == (- 0.238, 0.508) rel (a, b) | T -> fill (c, a), (a, d), (d, b), (b, c) fi Arrow(c, d, a, b, g, f) : if e == (0.893, 0.) rel (a, b), x == (0, 3) rel (a) | (a, e) para (e, b) and (f, g) cong (e, b) -> ArrowHead(e, b); a, x width stroke (c, d, a, e) fi c1(p) : if q == (20, 0) rel (p), r == (0, 20) rel (p) | T -> FilledEllipse(p, q, r) fi Squaredot(x) : 8 width square ends yellow paint stroke (x, x) Leg(hip, heel, toe) : if n == (- 0.15, 0.07) rel (heel, hip, toe) , m == (1.04, 0.2) rel (heel, hip, toe) , l == (0.24, 0.38) rel (heel, hip, toe) , k == (0.4, 0.31) rel (heel, hip, toe) , j == (0.78, 0.29) rel (heel, hip, toe) , i == (0.22, 0.43) rel (heel, hip, toe) , h == (0.86, 0.41) rel (heel, hip, toe) , g == (0.25, 0.64) rel (heel, hip, toe) , f == (0.59, 0.46) rel (heel, hip, toe) , e == (0.16, 0.91) rel (heel, hip, toe) , d == (- 0.13, 0.97) rel (heel, hip, toe) | T -> fill (l, g, e, toe), (toe, d, n, heel), (heel, l) ; stroke4(toe, e, g, l) ; fill (m, h, f, i) , (i, heel) , (heel, k, j, hip) , (hip, m) ; black paint stroke (m, h, f, i) ; stroke (heel, k, j, hip) ; stroke (toe, d, n, heel) fi Square(a, b) : if d == (1., 1.) rel (a, b) , e == (1., 0.) rel (a, b) , c == (0., 1.) rel (a, b) | ver (a, c) and ver (e, d) and hor (a, e) and ver (b, e) and hor (c, d) and (a, e) cong (c, a) -> fill (a, e), (e, d), (d, c), (c, a) fi ColorChart(a, b) : if a1 == (0.6756, - 0.1464) rel (a, b) , a0 == (0.9437, 0.0698) rel (a, b) , y == (0.3376, - 0.4188) rel (a, b) , x == (0.6058, - 0.2026) rel (a, b) , w == (0.3705, - 0.3388) rel (a, b) , v == (0.8875, 0.1396) rel (a, b) , u == (0.8312, 0.2094) rel (a, b) , t == (0.5887, 0.014) rel (a, b) , s == (0.71, 0.1117) rel (a, b) , r == (0.4675, - 0.0838) rel (a, b) , q == (0.2251, - 0.2792) rel (a, b) , p == (0.3463, - 0.1815) rel (a, b) , o == (0.7749, 0.2792) rel (a, b) , n == (0.7186, 0.349) rel (a, b) , m == (0.5974, 0.2513) rel (a, b) , l == (0.4762, 0.1536) rel (a, b) , k == (0.1125, - 0.1396) rel (a, b) , j == (0.2338, - 0.0419) rel (a, b) , i == (0.355, 0.0558) rel (a, b) , h == (0.6624, 0.4188) rel (a, b) , g == (0.6061, 0.4886) rel (a, b) , f == (0.4849, 0.3909) rel (a, b) , e == (0.3637, 0.2932) rel (a, b) , d == (0.2424, 0.1954) rel (a, b) , c == (0.1212, 0.0977) rel (a, b) | ver (g, f) and ver (e, f) and ver (d, e) and ver (c, d) and ver (a, c) and ver (m, n) and ver (l, m) and ver (i, l) and ver (j, i) and ver (k, j) and ver (s, u) and ver (t, s) and ver (r, t) and ver (p, r) and ver (q, p) and ver (a1, a0) and ver (y, a1) and ver (x, a1) and ver (y, w) and hor (g, n) and hor (a, k) and hor (k, q) and hor (q, y) and hor (c, j) and hor (j, p) and hor (d, i) and hor (i, r) and hor (e, l) and hor (l, t) and hor (f, m) and hor (m, s) and hor (h, n) and hor (n, o) and hor (o, u) and hor (u, v) and hor (v, a0) and (h, n) cong (g, h) and (n, o) cong (h, n) and (o, u) cong (n, o) and (u, v) cong (o, u) and (v, a0) cong (u, v) and (a0, b) cong (v, a0) and (f, e) cong (g, f) and (e, d) cong (f, e) and (d, c) cong (e, d) and (c, a) cong (d, c) and (x, w) cong (a0, a1) and (v, a0) cong (a1, x) and (v, a0) cong (y, w) -> darkred paint Square(g, h) ; black paint print("DR", g, Helvetica, 16, 0) ; black paint print("DY", f, Helvetica, 16, 0) ; darkyellow paint Square(f, h) ; darkgreen paint Square(e, h) ; black paint print("DG", e, Helvetica, 16, 0) ; darkcyan paint Square(d, h) ; black paint print("DC", d, Helvetica, 16, 0) ; darkblue paint Square(c, h) ; black paint print("DB", c, Helvetica, 16, 0) ; darkmagenta paint Square(a, h) ; black paint print("DM", a, Helvetica, 16, 0) ; red paint Square(k, o) ; black paint print("R", k, Helvetica, 16, 0) ; yellow paint Square(j, o) ; black paint print("Y", j, Helvetica, 16, 0) ; green paint Square(i, o) ; black paint print("G", i, Helvetica, 16, 0) ; cyan paint Square(l, o) ; black paint print("C", l, Helvetica, 16, 0) ; blue paint Square(m, o) ; black paint print("B", m, Helvetica, 16, 0) ; magenta paint Square(n, o) ; black paint print("M", n, Helvetica, 16, 0) ; lightred paint Square(q, v) ; black paint print("LR", q, Helvetica, 16, 0) ; lightyellow paint Square(p, v) ; black paint print("LY", p, Helvetica, 16, 0) ; lightgreen paint Square(r, v) ; black paint print("LG", r, Helvetica, 16, 0) ; lightcyan paint Square(t, v) ; black paint print("LC", t, Helvetica, 16, 0) ; lightblue paint Square(s, v) ; black paint print("LB", s, Helvetica, 16, 0) ; lightmagenta paint Square(u, v) ; black paint print("LM", u, Helvetica, 16, 0) ; black paint Square(y, b) ; grey paint Square(a0, b); white paint Square(x, b) fi Rectangle(a, b) : if d == (0.5869, 0.4924) rel (a, b) , c == (0.4131, - 0.4924) rel (a, b) | ver (c, a) and ver (b, d) and hor (c, b) and hor (a, d) -> fill (a, c), (c, b), (b, d), (d, a) fi Foo(a, b) : if f == (0.8382, 0.7492) rel (a, b) , e == (0.5931, 0.6996) rel (a, b) , d == (0.359, 0.6002) rel (a, b) , c == (- 0.1458, - 1.0088) rel (a, b) | T -> Rectangle(c, b) ; Rectangle(a, d) ; print("foo", e, Helvetica, 16, 0) fi ‌تq–"juno" styleککJکپ—کJک‌—کJکS—کJک1—کJکƒ—کJکî—کJکخ—کJک؛—کJکِ—Jک—…—6