File:Retro-flower-ornaments.svg

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

%!
gsave 100 366 translate .5 dup scale/q 72 def/plr{dup
3 2 roll q mul 90 add dup dup/x exch def 3 1 roll cos
mul 3 1 roll sin mul}def 0 1 4{100 plr 59.44463 0 360
arc closepath fill}for 0 0 75 0 360 arc closepath fill
1 setgray 0 0 35 0 360 arc closepath fill grestore
gsave 100 221 translate .7 dup scale 0 1 14{24 mul 12
add dup 12 add 0 0 100 5 3 roll arc 0 0 lineto
closepath fill}for 0 0 8 0 360 arc closepath fill
grestore gsave 270 371 translate 1.75 dup scale -18
rotate 10{7 29 moveto 7 37 5 45 0 45 curveto -5 45 -7
37 -7 29 curveto -7 17 -2 5 0 5 curveto 2 5 7 17 7 29
curveto closepath fill 36 rotate}repeat 0 0 12 0 360
arc closepath fill 1 setgray 0 0 6 0 360 arc closepath
fill grestore gsave 435 222 translate .4 dup scale/q
60 def 0.75 1 5.75{120 plr 61 0 360 arc closepath fill
}for 0 0 100 0 360 arc closepath fill 1 setgray 0 0 40
0 360 arc closepath fill grestore gsave 438 371
translate .37 dup scale/bevx 30 def/bevy 15 def/r{x
135 add sin mul add}def/s{x 225 add sin mul add}def/t{
x 225 add cos mul add}def/u{x 135 add cos mul add}def
0.5 1 5.5{dup/y exch def 152 plr 50 x 135 sub x 135
add arc y 152 plr 50 r bevx s exch 50 u bevx t exch
50 x 30 add cos mul bevy x -60 add cos mul add
50 x 30 add sin mul bevy x -60 add sin mul add
50 x 30 add cos mul 50 x 30 add sin mul curveto
50 x 30 add cos mul bevy x 120 add cos mul add
50 x 30 add sin mul bevy x 120 add sin mul add
y 1 add 152 plr 50 s bevx r exch 50 t bevx u exch
y 1 add 152 plr 50 s exch 50 t exch curveto}for
closepath fill grestore gsave 270 216 translate .42
dup scale/bevx 24 def/bevy 14 def/q 72 def 0 1 4{dup/y
exch def 120 plr 50 x 135 sub x 135 add arc
y 120 plr 50 r bevx s exch 50 u bevx t exch
50 x 36 add cos mul bevy x -54 add cos mul add
50 x 36 add sin mul bevy x -54 add sin mul add
50 x 36 add cos mul 50 x 36 add sin mul curveto
50 x 36 add cos mul bevy x 126 add cos mul add
50 x 36 add sin mul bevy x 126 add sin mul add
y 1 add 120 plr 50 s bevx r exch 50 t bevx u exch
y 1 add 120 plr 50 s exch 50 t exch curveto}for
closepath fill grestore/A{10 26 moveto 10 34 7 42 0 42
curveto -7 42 -10 34 -10 26 curveto -10 12 -4 2 0 2
curveto 4 2 10 12 10 26 curveto closepath fill}def
gsave 100 75 translate 1.7 dup scale 15 rotate 6{gsave
.95 1 scale A grestore 60 rotate}repeat 1 setgray 0 0
5.4 0 360 arc closepath fill grestore gsave 270 69
translate 1.75 dup scale 5{A 72 rotate}repeat 1
setgray 0 0 4 0 360 arc closepath fill grestore gsave
440 70 translate 1.75 dup scale 5{gsave 1.22 1 scale A
grestore 72 rotate}repeat 1 setgray 0 0 6.2 0 360 arc
closepath fill grestore showpage
%EOF