Custom pstricks/pst-circ shapes/components

pstcustomshapes.tex

\makeatletter
\def\tor(#1){%
    \rput(#1){%
	\pnode(0,0){or2}
        \pnode([nodesep=0.5,angle=90]or2){or1}
        \pnode([nodesep=0.25,angle=90]or2){ormid}
        \pnode([nodesep=1]ormid){or3}
        \psbezier[showpoints=false]{-}([nodesep=0.25,angle=100]or1)([nodesep=0.25,angle=5]ormid)([nodesep=0.25,angle=-5]ormid)([nodesep=0.25,angle=-100]or2)
        \psline([nodesep=0.1]or2)([nodesep=-0.5]or2)
        \psline([nodesep=0.1]or1)([nodesep=-0.5]or1)
        \psbezier[showpoints=false]{-}([nodesep=0.25,angle=100]or1)([nodesep=0.5,angle=20]or1)([nodesep=0.6,angle=10]or1)(or3)
        \psbezier[showpoints=false]{-}([nodesep=0.25,angle=-100]or2)([nodesep=0.5,angle=-20]or2)([nodesep=0.6,angle=-10]or2)(or3)
        }
    }
\makeatother