MAKE A MEME
View Large Image
| View Original: | Triple-Spiral-Symbol.png (640x600) | |||
| Download: | Original | Medium | Small | Thumb |
| Courtesy of: | commons.wikimedia.org | More Like This | ||
| Keywords: Triple-Spiral-Symbol.png Triple-Spiral-Symbol svg The Triple Spiral symbol based on motifs found at the prehistoric site at Newgrange Ireland and used as a neo-pagan or Triple Goddess symbol This version is made up of mathematical Archimedean spirals For a version with thicker lines see Image Triple-Spiral-Symbol-heavystroked png For spiral triskelions see also Image Triple-Spiral-Symbol-filled png Image Triple-Spiral-Symbol-4turns-filled png and Image Triskele-Symbol-spiral png For wheeled forms of the spiral triskelion/triple spiral symbol see Image Wheeled-Triskelion-basic png Image Roissy triskelion iron ring signet png Image Triple-spiral-wheeled-simple png or Image Triskelion-spiral-threespoked-inspiral png For a spiral triskelion with a hollow triangle in the center see Image Triskele-hollow-triangle png For versions of a triple-spiral labyrinth see Image Triple-Spiral-labyrinth png and Image Triple-Spiral-labyrinth-variant png Generated by means of the following PostScript 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 15 def insert a curve point after this number of degrees /sweeps 3 def number of 360 degree turnings to show /double 1 def change to 0 to display single spiral /linew 13 75 def increase number for thicker line Procedures /pi 3 1415926535898 def/radians 57 295779513082 def /sepwid sepwid pi div 2 div def gsave centerx centery translate rotf rotate linew setlinewidth /aspiral /prevbezy 0 def 0 0 moveto 0 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 /prevbezx phase cos nextdist mul def prevbezx prevbezy x 1 flag mul normaliz div prevdist mul sub y slope flag mul normaliz div prevdist mul sub x y curveto /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 2 67 def double 0 ne /phase 180 def aspiral if grestore def gsave -9 0 translate 4875 dup scale decrease to 47 to fit on A4-size page -2 rotate /centerx 304 def/centery 550 def/rotf 0 def archimdouble /centerx 927 334 def/centery 550 def/rotf 120 def archimdouble /centerx 615 667 def/centery 1089 823 def/rotf 240 def archimdouble grestore showpage EOF</pre> Triple spiral Goddess movement - Thealogy symbols Celtic Neopaganism Archimedean spirals Images with PostScript source code | ||||
