\psset{unit=1cm}
\begin{pspicture}(-3,-1)(2,3)
  \psset{PosAngle=-90}
  \pstGeonode{B}
  \pstGeonode(3;20){A}
  \pstGeonode(2.5;162){C}
  \pstGeonode[PosAngle=95](3.5;85){D}
  \pspolygon(D)(C)(B)(A)\psline(B)(D)
  \psline[linestyle=dashed](C)(A)
\end{pspicture}

\begin{pspicture}(-1,-1)(9,5)
  \psset{unit=.75cm}
  \pstGeonode[PosAngle=-100]{B}
  \pstGeonode[PosAngle=100](0,3){C}
  \pstGeonode[PosAngle=-80](7,0){E}
  \pstGeonode[PosAngle=80](7,3){F}
  \pstGeonode(8,1.5){D}
  \pstGeonode[PosAngle=-90](1,1.5){A}
  \pstGeonode[PosAngle=90](2,1.5){I}
  \pstGeonode[PosAngle=-90](2,0){J}
  \pstGeonode[PosAngle=90](4,3){K}
  \psline(F)(C)(B)(E)(D)(F)(E)
  {\psset{linestyle=dashed}
    \pstSegmentMark{B}{A}
    \pstSegmentMark{C}{A}
    \pspolygon[fillstyle=solid, fillcolor=gray](J)(I)(K)
    \psline(A)(D)}
  \psline(J)(K)
\end{pspicture}

\begin{pspicture}(-2,-1)(5,3)
  {\psset{PosAngle=-90}
    \pstGeonode{B}
    \pstGeonode(4,0){A}
    \pstGeonode(1.5;150){C}
    \pstTranslation{B}{A}{C}{D}}
  {\psset{PosAngle=45}
    \pstGeonode(0,1.5){F}
    \pstTranslation{B}{A}{F}{E}
    \pstTranslation[PosAngle=100]{B}{F}{C}{G}
    \pstTranslation{B}{A}{G}{H}}
  
  \pspolygon(B)(C)(G)(F)
  \pspolygon(B)(A)(E)(F)
  \psline(E)(H)(G)(F)
  \psline(C)(F)\psline(B)(G)
  \pstMiddleAB[CodeFig=true, CodeFigColor=black,PosAngle=-80]{B}{A}{I}
  \pstMiddleAB[PosAngle=170]{G}{B}{O}
  \pstHomO[HomCoef=.75, PosAngle=45]{H}{G}{J}

  \ncline[nodesepA=-1.5,nodesepB=1]{O}{J}
  \ncline[nodesepA=1,nodesepB=-.8]{O}{J}
  \ncline[nodesepA=-1,nodesepB=2]{I}{H}
  \ncline[nodesepA=2,nodesepB=-.8]{I}{H}

  \psset{linestyle=dashed}
  \psline(C)(D)(H)\psline(D)(A)\psline(I)(H)\psline(O)(J)
\end{pspicture}