File:LinearPotteryCulture vase design (redrawn with symmetry).svg

Self-made image, converted from the following vector PostScript source code:

%!
/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