MAKE A MEME
View Large Image
| View Original: | LinearPotteryCulture vase design (redrawn with symmetry).svg (628x615) | |||
| Download: | Original | Medium | Small | Thumb |
| Courtesy of: | commons.wikimedia.org | More Like This | ||
| Keywords: LinearPotteryCulture vase design (redrawn with symmetry).svg A regularized version re-created from scratch with imposed symmetry of the design on a ca 5000 BC Linear Pottery culture vase found in Czechoslovakia as depicted on page 187 of the book Goddesses and Gods of Old Europe by Marija Gimbutas 1982 Gimbutas interprets the central element as a butterfly and/or labrys motif Self-made image converted from the following vector PostScript source code <pre> /archimdouble PostScript program to display an Archimedean spiral by approximating it with Bezier curves Can display a double spiral two spirals rotated by 180 degrees with respect to each other Parameters centerx horizontal coordinate of center of spiral centery vertical coordinate of center of spiral rotf degrees to rotate /sepwid 110 def width separating successive turnings of spiral half this if double spiral is selected /incrm 18 def incrm insert a curve point every these degrees /sweeps 1 96 def number of 360 degree turnings to show double - 0 to display single spiral else double Procedures /pi 3 1415926535898 def/radians 57 295779513082 def /sepwid sepwid pi div 2 div def gsave centerx centery translate rotf rotate /aspiral /prevbezy 0 def/first 1 def lower incrm sweeps 360 mul 7 dup repeat phase add cos/costh exch def phase add sin/sinth exch def costh mul radians div/thcosth exch def sinth mul radians div/thsinth exch def thcosth sepwid mul/x exch def thsinth sepwid mul/y exch def /slope sinth thcosth add costh thsinth sub div def sinth 0 gt sinth 0 eq costh -1 eq and or /flag -1 def /flag 1 def ifelse /A exch def A 49 29348 lt A 180 gt A 196 273450852 lt and A 360 gt A 368 8301 lt and A 540 gt A 545 9907 lt and A 720 gt A 724 5217 lt and A 900 gt A 903 6281968 lt and or or or or or /flag flag neg def if incrm sub 3 dup repeat phase add cos sepwid mul mul radians div /prevx exch def phase add sin sepwid mul mul radians div /prevy exch def incrm add 3 dup repeat phase add cos sepwid mul mul radians div /nextx exch def phase add sin sepwid mul mul radians div /nexty exch def /prevdist x prevx sub dup mul y prevy sub dup mul add sqrt pi div def /nextdist x nextx sub dup mul y nexty sub dup mul add sqrt pi div def /normaliz slope slope mul 1 add sqrt def 0 eq 0 0 moveto/prevbezx phase cos nextdist mul def/first 0 def first 1 eq x y moveto/first 0 def prevbezx prevbezy x 1 flag mul normaliz div prevdist mul sub y slope flag mul normaliz div prevdist mul sub x y curveto ifelse /prevbezx x 1 flag mul normaliz div nextdist mul add def /prevbezy y slope flag mul normaliz div nextdist mul add def ifelse for stroke def /phase 0 def aspiral If different sweeps parameter for second spiral define here /sweeps 1 5 def double 0 ne /phase 180 def aspiral if grestore def 300 396 translate 192 dup scale gsave 5 dup scale 12 5 setlinewidth 1 setlinecap /plr 25 sub 2 47213472 12 5 mul mul dup 3 2 roll 72 mul 90 add dup 3 1 roll cos mul 3 1 roll sin mul def/z 5 plr def 3 z moveto 2 z 1 z 0 z 4 z 4 lineto repeat 150 0 rlineto stroke 0 z moveto 37 5 dup 36 cos mul exch 36 sin mul rlineto stroke 0 z moveto 2 5 4 plr lineto stroke 75 43 75 moveto 75 -31 25 lineto -75 43 75 lineto -75 -31 25 lineto closepath stroke grestore 6 dup scale/lower 0 def/double 1 def /q 8 7589 plr/centery exch def/centerx exch def def 0 53 q/rotf 252 def archimdouble 1 53 q/rotf 324 def archimdouble 2 53 q/rotf 36 def archimdouble 3 53 q/rotf 108 def archimdouble 4 53 q/rotf 180 def archimdouble showpage EOF</pre> 2009 AnonMoos Linear Pottery culture Spirals in art Images with PostScript source code | ||||
.svg){kind=link}
