La espiral de Arquímedes se generó a partir del siguiente código fuente PostScript vectorial:
%!300 396 traducir -.42 .42 escala/pi 3.1415926535898 def/R 180 pidiv def/W 15 def/U 7,01 def/D 180 def/C 54 pi div def/L{/Y 0 def0 WU 360 mul{7{dup}repetir D sumar cos/H intercambi def D sumar seno/G intercambidef H mul R div/Q intercambio def G mul R div/E intercambio def QC mul/x intercambiodef EC mul/y exch def/SGQ añadir HE sub div def G 0 gt G 0 eq H-1 eq y o{/F -1 def}{/F 1 def}ifelse/A cambio def A 49,294 lt A180 gt A 196,274 lt y o{/FF neg def}if W sub dup dup dup Dsumar cos C mul mul R div/M exch def D sumar sen C mul mul R div/Ndef de intercambio W sumar dup dup dup D sumar cos C mul mul R div/O def de intercambio Dañadir pecado C mul mul R div/V intercambio def/P x M sub dup mul y N sub dupmul suma raíz cuadrada pi div def/Z x O sub dup mul y V sub dup mul sumaraíz cuadrada pi div def/BSS mul 1 suma raíz cuadrada def 0 eq{0 0 moveto/XD cosZ mul def}{XY x 1 F mul B div P mul sub y SF mul B div P mulsub xy curvato /X x 1 F mul B div Z mul add def/Y y SF mul Bdiv Z mul add def}ifelse}para carrera}def L/U 6.51 def/D 0 def Lpágina de presentación% EFF