Example : Structural Formula - Benzene Ring
%!
/inch {72 mul} def
/cm {inch 2.54 div } def
/sin30 {0.5 cm} def
/cos30 {0.8660254038 cm} def
/irsin30 {ir 0.5 mul } def
/ircos30 {ir 0.8660254038 mul } def
/ir 0.8 cm def
/ArOut {
0 1 cm moveto
5 {cos30 sin30 lineto
-60 rotate} repeat
closepath
-60 rotate
0 ir moveto} def
/Ar3 {
ArOut
3 {ircos30 irsin30 lineto
-60 rotate
ircos30 irsin30 moveto
-60 rotate} repeat 0 0 moveto} def
/Benzene {
Ar3} def
newpath
200 600 translate
0 0 moveto
Benzene
stroke
showpage
