image_paradise 0.4.8

data/lib/image_paradise/cfdg/martini.cfdg

@@ -0,0 +1,147 @@
+# rconfreegui $CFDG/martini.cfdg
+startshape HIGHROLLERSDRINK
+background{ b -1 } 
+rule HIGHROLLERSDRINK{
+
+MARTINI {}
+  CUBE {s 2.5 x 14 y 2}
+  CUBE {s 2.4 x 20 y 2.8}
+}
+ 
+rule MARTINI {
+  GLASS {}
+  WITH {s .13 y 24 r 130 x -3.6 z -1}
+}
+ 
+rule GLASS {
+  //BOOZE {a -.7}
+  CUP {a -.7 y 17}
+  STEM {a -.7}
+  PIED {a -.7 }
+  PIED {a -.7 flip 90}
+  RIM {a -.9}
+}
+
+rule RIM {
+  CIRCLE { s 20 2.5 hue 236.3099 sat .35 b 0.4980 y 26 z -7}
+  RIM {s .97 y .5 z 1}
+}
+
+rule BOOZE {
+  TRIANGLE {r 180 s 19 9 hue 236.3099 sat .5 b 0.4980 y 22.6}
+}
+ 
+rule CUP{
+  STEM {r 50 s  1 .85}
+  STEM {r -50 s  1 .85}
+}
+ 
+rule STEM {
+  17 * {y 1.024} GLASSUNIT {}
+ 
+}
+ 
+ 
+rule PIED {
+  GLASSUNIT {y -.5 r 90}
+  PIED {x -.98 s .9 y -.08}
+}
+ 
+ 
+rule GLASSUNIT {
+  SQUARE { s 1 hue 236.3099 sat 0.4883 b 0.4980}
+  SQUARE { s .4 1 hue 178.2376 sat 0.6774 b 0.6980}
+}
+ 
+rule WITH {
+  TOOTHPICK {z -1}
+  HOWMANY {}
+}
+rule HOWMANY {
+  TURNED_PO {}
+ 
+}
+ 
+rule HOWMANY {
+  TURNED_PO {x -13}
+  TURNED_PO { x 13}
+}
+rule HOWMANY {
+  TURNED_PO {x -26}
+  TURNED_PO {}
+  TURNED_PO {x 26}
+}
+rule TURNED_PO {
+TURNED_PO {r 3.6}
+}
+rule TURNED_PO 0.01 {
+PITTEDOLIVE {s 26}
+}
+rule TOOTHPICK {
+ 
+SQUARE {s 80 1 hue 58.7363 sat 0.6824 b 0.6059}
+POINT {x 40.55}
+POINT {x -40.55 flip 90}
+}
+
+rule POINT {
+  SQUARE {hue 58.7363 sat 0.6824 b 0.6059}
+  POINT {x .5 s .95}
+}
+ 
+rule PITTEDOLIVE {
+  OLIVE {}
+  PIT {z 1 y .26 }
+}
+rule OLIVE {
+  CIRCLE {s .87 1 hue 107.9691 sat 0.4052 b .4}
+  OLIVE {  s .98 b .04 }
+}
+rule PIT {
+  CIRCLE {s .4 .3 hue 13.1839 sat 0.9409 b 0.5255}
+}
+ 
+ 
+rule CUBE { 
+  SQUARE{a -.2 x .5 y -.5  skew 0 30 h 2 sat 1 b .6} // right front side 
+  SQUARE{a -.2 x -.5 y -.5 skew 0 330 h 2 sat 1 b .6} // left front side 
+  SQUARE {a -.2 s 1.112 skew 15 15 r 315 y .288 h 2 sat 1 b .6} // top side
+  DOTS {}
+}
+ 
+rule DOTS .1 { //four on top
+  CIRCLE {s .2 .16 b 1} 
+  CIRCLE {s .2 .14 y .6 b 1} 
+  CIRCLE {s .2 .15 y .3 x .6 b 1} 
+  CIRCLE {s .2 .15 y .3 x -.6 b 1} 
+  CIRCLE {s .13 .2 x -.8 y -.05 skew 0 -10 b 1}
+  CIRCLE {s .13 .2 x -.8 y -.35 skew 0 -10 b 1}
+  CIRCLE {s .13 .2 x -.8 y -.65 skew 0 -10 b 1}
+  CIRCLE {s .14 .2 x -.2 y -.4 skew 0 -10 b 1}
+  CIRCLE {s .14 .2 x -.2 y -.7 skew 0 -10 b 1}
+  CIRCLE {s .14 .2 x -.2 y -1 skew 0 -10 b 1}
+  CIRCLE {s .13 .2 x .8 y -.05 skew 10 0 b 1} 
+  CIRCLE {s .14 .2 x .2 y -.95 skew 10 0 b 1} 
+} 
+ 
+rule DOTS .1 { // two on top
+  CIRCLE {s .2 .16 b 1} 
+  CIRCLE {s .2 .14 y .6 b 1} 
+  CIRCLE {s .13 .2 x -.55 y -.5 skew 0 -10 b 1} 
+  CIRCLE {s .13 .2 x .8 y -.05 skew 10 0 b 1} 
+  CIRCLE {s .13 .2 x .8 y -.60 skew 10 0 b 1} 
+  CIRCLE {s .14 .2 x .2 y -.45 skew 10 0 b 1} 
+  CIRCLE {s .14 .2 x .2 y -.95 skew 10 0 b 1} 
+}
+ 
+rule DOTS .1 { // three on top
+  CIRCLE {s .2 .16 b 1} 
+  CIRCLE {s .2 .14 y .6 b 1} 
+  CIRCLE {s .2 .15 y .3 b 1} 
+  CIRCLE {s .13 .2 x -.8 y -.05 skew 0 -10 b 1} 
+  CIRCLE {s .13 .2 x -.8 y -.65 skew 0 -10 b 1}
+  CIRCLE {s .14 .2 x -.2 y -.4 skew 0 -10 b 1}
+  CIRCLE {s .14 .2 x -.52 y -.54 skew 0 -10 b 1}
+  CIRCLE {s .14 .2 x -.2 y -1 skew 0 -10 b 1}
+  CIRCLE {s .14 .2 x .5 y -.55 skew 10 0 b 1} 
+}

data/lib/image_paradise/cfdg/material_studies.cfdg

@@ -0,0 +1,172 @@
+startshape messarounds
+ 
+background { b -.9 sat .7}
+ 
+rule squares{ 3*{ x 1} pickonefilling {} 
+3*{ x 1} pickonefilling {y 1}
+3*{ x 1} pickonefilling {y 2}}
+rule cubes { 3*{ x 2} CUBE{} 
+3*{ x 2} CUBE{y 2}}
+ 
+rule messarounds {
+messaround { } 
+conts{ }
+}
+rule conts .05 { }
+rule conts { conts { hue 33 } }
+rule conts { conts { b .3 } }
+rule conts { conts { b -.3 } }
+rule conts { conts { sat .2 } }
+rule conts { conts { sat -.2 } }
+rule conts { messarounds { x 1 y .58 z -1} }
+rule conts { messarounds { x 1 y -.58 z 1} }
+rule conts { messarounds { x -1 y .58 z -1} }
+rule conts { messarounds { x -1 y -.58 z 1} }
+ 
+rule messaround {
+CUBE {}
+messaround { y 1 s 1.1 z 1 r 3}
+}
+rule messaround .8 { }
+rule messaround .1 { messaround {flip 90}}
+ 
+ 
+rule CUBE {2*{s -1 1 }SIDE{}TOP{}}
+ 
+rule SIDE {FACE{skew 0 30 }}
+ 
+rule TOP {FACE[s 1.413 .816 r 135 b .4]}
+ 
+rule FACE {pickonefilling{x .5 y -.5 }}
+ 
+ 
+rule pickonefilling 50 { pickonefilling {hue 17}}
+rule pickonefilling { pickonefilling {sat 1}}
+rule pickonefilling { pickonefilling {sat -1}}
+rule pickonefilling 10 { pickonefilling {b .3}}
+rule pickonefilling 10{ pickonefilling {b -.2}}
+rule pickonefilling { pickonefilling {b .5}}
+ 
+rule pickonefilling { filling{} }
+rule pickonefilling { fillingb{} }
+rule pickonefilling { softyfilling{} }
+rule pickonefilling { thrilling{} }
+rule pickonefilling { minithrilling{} }
+rule pickonefilling { unithrilling{} }
+rule pickonefilling { softthrilling{} }
+rule pickonefilling { softerthrilling{} }
+ 
+rule pickonefilling { throlling{}}
+rule pickonefilling { minithrolling{}}
+rule pickonefilling { unithrolling{ }}
+rule pickonefilling { softthrolling{ }}
+ 
+rule pickonefilling { foury {}}
+rule pickonefilling { foury2 {}}
+rule pickonefilling { foury3 {}}
+rule pickonefilling { foury4 {}}
+ 
+rule pickonefilling { messfoury4 {}}
+rule pickonefilling { realmessfoury4 {}}
+ 
+rule pickonefilling { softfoury3 {}}
+rule pickonefilling { softerfoury3 {}}
+ 
+rule filling {
+   somebox { }
+   fillingb { s .8 b .2} }
+rule fillingb {
+   somebox { }
+   filling { s .8 b -.2} }
+ 
+rule softyfilling { 5* { r 1} filling{a -.5 r -2} }
+rule softyfilling { 5* { r 1} fillingb{a -.5 r -2} }
+ 
+rule thrilling {
+somebox{}
+thrilling { x -.25 s .5 1 z .01}
+thrilling { x .25 s .5 1 z .01}
+}
+rule thrilling { thrilling {r 90} }
+rule thrilling .5 {}
+ 
+rule minithrilling { 10*{} thrilling{} }
+rule unithrilling { 80*{} thrilling{} }
+rule softthrilling { 20*{} thrilling{ a -.7} }
+rule softerthrilling { 20*{} thrilling{ a -.95} }
+ 
+rule throlling {
+somebox2{ }
+throlling { x -.25 s .5 1 z .01}
+throlling { x .25 s .5 1 z .01}
+}
+rule throlling { throlling {r 90} }
+rule throlling .5 {}
+ 
+rule minithrolling { 10*{} throlling{} }
+rule unithrolling { 80*{} throlling{} }
+rule softthrolling { 20*{} throlling{ a -.7} }
+ 
+rule somebox { SQUARE {b -1} } 
+rule somebox { SQUARE {b .2} } 
+rule somebox { SQUARE {sat .5} } 
+ 
+rule somebox2 {somebox2{hue -10}}
+rule somebox2 { SQUARE {hue 15} } 
+rule somebox2 { SQUARE {hue -15} } 
+rule somebox2 .1 { SQUARE {hue 50} }
+rule somebox2 { SQUARE {b -.5 sat -.1} } 
+rule somebox2 { SQUARE {sat .9 b .3} } 
+ 
+rule somebox3 {somebox3{hue -10}}
+rule somebox3 {somebox3{r 3}}
+rule somebox3 {somebox3{r -3}}
+rule somebox3 { SQUARE {hue 15} } 
+rule somebox3 { SQUARE {hue -15} } 
+rule somebox3 .1 { somebox3 {hue 50 b 2} }
+rule somebox3 { SQUARE {b -.5 sat -.1} } 
+rule somebox3 { SQUARE {sat .9 b .3} } 
+ 
+ 
+ 
+rule foury {
+somebox{}
+foury{x .25 y .25 s .5 }
+foury{x .25 y -.25 s .5 }
+foury{x -.25 y .25 s .5 }
+foury{x -.25 y -.25 s .5 }
+}
+rule foury .05 { }
+rule foury2 {
+somebox3{}
+foury2{x .25 y .25 s .5 }
+foury2{x .25 y -.25 s .5 }
+foury2{x -.25 y .25 s .5 }
+foury2{x -.25 y -.25 s .5 }
+}
+rule foury2 .05 { }
+rule foury3 {
+somebox3{}
+foury3{x .25 y .25 s .5 }
+foury3{x .25 y -.25 s .5 }
+foury3{x -.25 y .25 s .5 }
+foury3{x -.25 y -.25 s .5 }
+}
+rule foury3 .5 { }
+rule foury4 {
+somebox3{}
+foury4{x .25 y .25 s .5 r 1 z .01}
+foury4{x .25 y -.25 s .5 r 1 z .01}
+foury4{x -.25 y .25 s .5 r 1 z .01}
+foury4{x -.25 y -.25 s .5 r 1 z .01}
+}
+rule foury4 { foury4 {r 10 } }
+rule foury4 { foury4 {r -10 } }
+rule foury4  1.5 { }
+ 
+ 
+ 
+rule messfoury4{ 20*{} foury4 { } }
+rule realmessfoury4{ 60*{} foury4 { } }
+rule softfoury3 { 5*{} foury3 { a -.5 } }
+rule softerfoury3 { 10*{} foury3 { a -.9 } }

data/lib/image_paradise/cfdg/math_eye.cfdg

@@ -0,0 +1,30 @@
+# =========================================================================== #
+# From:
+#
+#   https://www.contextfreeart.org/gallery2/#design/3422
+#
+# HEIGHT: 600
+# WIDTH:  600
+#
+# =========================================================================== #
+
+startshape Math_Eye(6,2)[s 14 r 270]
+CF::Background=[b -1]
+CF::Size=[s 16 9]
+
+Fx(u,v)=cos(u+v)*sin(v)
+Fy(u,v)=sin(u+v)*sin(v)
+
+shape Math_Eye(Su,Sv)
+{loop u=0, 360, Su []
+ {loop v=0, 90, Sv []
+  {P00=(Fx(u   ,v   ),Fy(u   ,v   ))
+   P10=(Fx(u+Su,v   ),Fy(u+Su,v   ))
+   P01=(Fx(u   ,v+Sv),Fy(u   ,v+Sv)) 
+   P11=(P10[0]+P01[0]-P00[0],P10[1]+P01[1]-P00[1]) 
+   transform [trans P00 P10 P11]
+    transform [x .5 y .5 s 1 (2/sqrt(3)) skew -30 0]
+     CIRCLE [h(u-v) sat(cos(v)^2) b 1 a-(cos(v)^24)]
+}}}
+
+# runcfdg math_eye

data/lib/image_paradise/cfdg/matrix_freestyle.cfdg

@@ -0,0 +1,127 @@
+startshape COMIC
+# include i_pix.cfdg
+include i_pix.cfdg
+
+rule COMIC {
+  FIGHT {}
+  ONE {x -4.4 y 1.4 s .6}
+
+  FIGHT {y -7}
+  TWO {x -4.4 y -5.6 s .6}
+
+  FIGHT {y -14}
+  THREE {x -4.4 y -12.6 s .6}
+}
+
+rule FIGHT {
+  SQUARE {y -1 s 10 6}
+  SQUARE {y -1 s 9.7 5.7 b 1}
+  ROTMAN1 {x -2 b .4 sat 1 hue 100}
+  ROTMAN2 {x 2}
+
+}
+
+rule ONE {
+  O_5by5 {}
+  N_5by5 {x 1.2}
+  E_5by5 {x 2.4}
+}
+
+rule TWO {
+  T_5by5 {}
+  W_5by5 {x 1.2}
+  O_5by5 {x 2.4}
+}
+
+rule THREE {
+  T_5by5 {}
+  H_5by5 {x 1.2}
+  R_5by5 {x 2.4}
+  E_5by5 {x 3.6}
+  E_5by5 {x 4.8}
+}
+
+
+rule ROTMAN1 8 {MAN1{ }}
+rule ROTMAN1 4 {MAN1{r 25}}
+rule ROTMAN1 2 {MAN1{r 50}}
+rule ROTMAN1    {MAN1{r 75}}
+
+rule ROTMAN2 8 {MAN2{ }}
+rule ROTMAN2 4 {MAN2{r -25}}
+rule ROTMAN2 2 {MAN2{r -50}}
+rule ROTMAN2    {MAN2{r -75}}
+
+
+rule MAN1 {
+  # draw body
+  SQUARE {y -1 s .3 2 alpha -.3}
+  CIRCLE {y -2 s .8 .5}
+
+  # Draw Head
+  CIRCLE {}
+  CIRCLE {x .15 y .15 s 0.3 b 1}
+  CIRCLE {x -.15 y .15 s 0.35 b 1}
+  CIRCLE {x .24 y .15 s 0.1}
+  CIRCLE {x -.08 y .15 s 0.15}
+  SQUARE {y -.22 s .65 .02 b 1}
+
+  # draw arms
+  ROT1{r 90  y -.5}
+  ROT1{r -90 y -.5}
+  # draw legs
+  ROT3{r 45  y -2}
+
+  ROT3{r -45 y -2}
+}
+
+rule MAN2 {
+
+  # draw body
+  SQUARE {y -1 s .3 2 alpha -.3}
+  CIRCLE {y -2 s .8 .5}
+
+  # Draw Head
+  CIRCLE {}
+  CIRCLE {x .15 y .15 s 0.3 b 1}
+  CIRCLE {x -.15 y .15 s 0.35 b 1}
+  CIRCLE {x .08 y .15 s 0.1}
+  CIRCLE {x -.24 y .15 s 0.15}
+  SQUARE {y -.22 s .65 .02 b 1}
+
+  # draw arms
+  ROT1{r 90  y -.5}
+  ROT1{r -90 y -.5}
+  # draw legs
+  ROT3{r 45  y -2}
+  ROT3{r -45 y -2}
+}
+
+
+rule ROT1 {SEGM1 {     }}
+rule ROT1 {SEGM1 {r -30}}
+rule ROT1 {SEGM1 {r -60}}
+rule ROT1 {SEGM1 {r  30}}
+rule ROT1 {SEGM1 {r  60}}
+
+rule SEGM1 {
+  SQUARE {y -.5 s .2 1 alpha -.3}
+  CIRCLE {y -1 s .3}
+  ROT2 {y -1}
+}
+
+rule ROT2 {SEGM2 {r -30}}
+rule ROT2 {SEGM2 {r -60}}
+rule ROT2 {SEGM2 {r  30}}
+rule ROT2 {SEGM2 {r  60}}
+
+rule SEGM2 {
+  SQUARE {y -.5 s .2 1 alpha -0.3}
+  CIRCLE {y -1 s .3}
+}
+
+rule ROT3 {SEGM1 {       }}
+rule ROT3 {SEGM1 {r -30}}
+rule ROT3 {SEGM1 {r -15}}
+rule ROT3 {SEGM1 {r  30}}
+rule ROT3 {SEGM1 {r  15}}

data/lib/image_paradise/cfdg/maze.cfdg

@@ -0,0 +1,211 @@
+# =========================================================================== #
+# Depth First Search maze generation. I used an octagonal grid for fun.
+#
+# Taken from: https://www.contextfreeart.org/gallery/view.php?id=4264
+#
+# Added: 22.12.2021
+#
+# Autor: flembobs
+# =========================================================================== #
+
+CF::Impure = 1
+CF::Background = [ b -0.86 h 230 sat 0.6 ]
+
+vector2 vertex(i,n,l)=let(A=(360*(i/n));(sin(A)*l,cos(A)*l))
+
+vector8  O8()=0,0,0,0,0,0,0,0
+vector64 O64()=O8(),O8(),O8(),O8(),O8(),O8(),O8(),O8()
+
+# convert grid x,y pos to vector64 index, -1 = out of bounds
+idx(vector2 pos)=
+  if( pos[0]<0 || pos[0]>=8 || pos[1]<0 || pos[1]>=8,
+    -1,
+    8*pos[1]+pos[0])
+    
+# convert vector idx to grid pos
+vector2 idx_pos(i)=(mod(i,8),floor(i/8))
+    
+# convert a direction index to a grid offset
+vector2 dir(k)=select(k,
+  (1,0),
+  (1,1),
+  (0,1),
+  (-1,1),
+  (-1,0),
+  (-1,-1),
+  (0,-1),
+  (1,-1))
+  
+# return index of neighbour of i at k (or -1)
+neighbour(i,k)=
+  let(
+    pos_i=idx_pos(i);
+    k_off=dir(k);
+    step_k=(pos_i[0]+k_off[0],pos_i[1]+k_off[1]);
+    idx(step_k)
+  )
+
+# return 0..7 if i and j are adjecent else -1
+adjacent_(i,j,k)=
+  if(k<0,-1,
+    if(neighbour(i,k)==j, k, adjacent_(i,j,k-1)))
+adjacent(i,j)=adjacent_(i,j,7)
+  
+
+# return direction opposite to dir i
+opposite(i)=mod(i+4,8)
+
+# is there a wall at cell i, in pos j?
+wall(vector2 pos,k,vector64 maze)=
+  neighbour(idx(pos),k) ≠ -1 &&
+  bitand(bitright(maze[idx(pos)],k),1) == 1
+  # Note: 1 = wall, 0 = path
+
+# Stack = [ size, 1..64 ]
+# Store 64 values in stack with first elem = stack size
+
+# create empty stack
+vector65 stack_new()=(0,O64())
+    
+# size of stack is stored in final element
+stack_size(vector65 S)=S[0]
+
+# Read value from top of stack
+stack_head(vector65 S)=S[64]
+
+# Discard the top value from stack return new vector
+vector65 stack_pop(vector65 S)=
+  (S[0]-1,0,S[1,63])
+  
+# Push i onto the stack
+vector65 stack_push(vector65 S, i)=
+  (S[0]+1,S[2,63],i)
+
+# Edit vector V to put value n at index i --
+#  - it is broken up this way to avoid cfdg stack overflow
+vector4 ev4(vector4 V, i, n)=
+  if(i==0,n,V[0]),if(i==1,n,V[1]),
+  if(i==2,n,V[2]),if(i==3,n,V[3])
+
+vector8 ev8(vector8 V, i, n)=
+  let(
+    A=V[0,4];B=V[4,4];
+    len=4;L=i<len;
+    (if(L,ev4(A,i,n),A),if(L,B,ev4(B,i-len,n)))
+  )
+vector16 ev16(vector16 V, i, n)=
+  let(
+    A=V[0,8];B=V[8,8];
+    len=8;L=i<len;
+    (if(L,ev8(A,i,n),A),if(L,B,ev8(B,i-len,n)))
+  )
+vector32 ev32(vector32 V, i, n)=
+  let(
+    A=V[0,16];B=V[16,16];
+    len=16;L=i<len;
+    (if(L,ev16(A,i,n),A),if(L,B,ev16(B,i-len,n)))
+  )
+vector64 ev64(vector64 V, i, n)=
+  let(
+    A=V[0,32];B=V[32,32];
+    len=32;L=i<len;
+    (if(L,ev32(A,i,n),A),if(L,B,ev32(B,i-len,n)))
+  )
+  
+vector64 edit_vector(vector64 V, i, n)= ev64(V,i,n)
+
+  
+unvisited_neighbour_(vector64 V, i,k,r_off)=
+  if(k<0, -1,
+    let(
+      N=neighbour(i,mod(k+r_off,8));
+      if(N==-1 || is_visited(V,N), 
+        unvisited_neighbour_(V, i,k-1,r_off),
+        N)
+    )
+  )
+unvisited_neighbour(vector64 V, i)=
+  unvisited_neighbour_(V, i,7,randint(8))
+  
+vector64 mark_visited(vector64 V, i)=
+  edit_vector(V,i,1)
+  
+is_visited(vector64 V, i) = V[i]==1
+
+vector64 link(vector64 maze,i,j)=
+  let(
+    I=min(i,j);
+    J=max(i,j);
+    ki=adjacent(I,J);
+    I0=maze[I];
+    linked=bitor(I0,bitleft(1,ki));
+    if(ki==-1,
+      maze,
+      edit_vector(maze,I,linked)
+    )
+  )
+      
+
+  
+startshape DFS_MAZE (O64(), stack_push(stack_new(),randint(64)), O64()) []
+  
+shape DFS_MAZE(vector64 maze, vector65 S, vector64 V)
+{
+  if ( stack_size(S)<=0 )
+  {
+    MAZE(maze)[]
+  }
+  else
+  {
+    i=stack_head(S)
+    V1=mark_visited(V,i)
+    N=unvisited_neighbour(V1,i)
+    S1=if(N==-1,stack_pop(S),stack_push(S,N))
+    M1=if(N==-1,maze,link(maze,i,N))
+    DFS_MAZE(M1,S1,V1)[]
+  }
+}
+
+shape MAZE(vector64 maze)
+{  
+  loop i=8 [ x 1 ]
+  loop j=8 [ y -1 ]
+  {
+    OCT(0)[ s 0.7 b 1 ]
+    OCT(1)[ s 0.7 b 0.2 ]
+    CIRCLE [ s 0.2 b 1 z 1000]
+    loop k=4 [h 60]
+    {
+      W = wall((i,j),k,maze)
+      
+      if(W)
+      {
+        p0=(0,0)
+        L=if(mod(k,2)==0,1,sqrt(2))
+        p1=vertex(k+2,8,L)
+        LINE(p0,p1)[b 0.8 sat 0.8 z 100]
+      }
+    }
+  }
+}
+
+path LINE(vector2 p1, vector2 p2)
+{
+  MOVETO(p1)
+  LINETO(p2)
+  STROKE(0.1, CF::RoundCap)[]
+}
+
+path OCT(F)
+{
+  MOVETO(vertex(0,8,0.5))
+  
+  loop i=8 [] LINETO(vertex(i,8,0.5))
+  CLOSEPOLY()
+  
+  if(F)
+    FILL()[]
+  else
+    STROKE(0.08)[]
+  
+}