\pstGeonode[PosAngle={-90,0}]{O}(5,0){P_1}
  \pstCircleOA{O}{P_1}
  \pstSymO[PointSymbol=none, PointName=none, CodeFig=false]{O}{P_1}[PP_1]
  \ncline[linestyle=solid]{PP_1}{P_1}
  \pstRotation[RotAngle=90, PosAngle=90]{O}{P_1}[B]
  \pstRightAngle[linestyle=solid]{B}{O}{PP_1}\ncline[linestyle=solid]{O}{B}
  \pstHomO[HomCoef=.25]{O}{B}[J]
  \ncline{J}{P_1}
  \pstBissectBAC[PointSymbol=none, PointName=none]{O}{J}{P_1}{PE1}
  \pstBissectBAC[PointSymbol=none, PointName=none]{O}{J}{PE1}{PE2}
  \pstInterLL[PosAngle=-90]{O}{P_1}{J}{PE2}{E}
  \pstRotation[PosAngle=-90, RotAngle=-45, PointSymbol=none,
            PointName=none]{J}{E}[PF1]
  \pstInterLL[PosAngle=-90]{O}{P_1}{J}{PF1}{F}
  \pstMiddleAB[PointSymbol=none, PointName=none]{F}{P_1}{MFP1}
  \pstCircleOA{MFP1}{P_1}
  \pstInterLC[PointSymbolA=none,PointNameA=none]{O}{B}{MFP1}{P_1}{H}{K}
  \pstCircleOA{E}{K}
  \pstInterLC{O}{P_1}{E}{K}{N_6}{N_4}
  \pstRotation[RotAngle=90, PointSymbol=none, PointName=none]{N_6}{E}[PP_6]
  \pstInterLC[PosAngleA=90, PosAngleB=-90, PointNameB=P_{13}]
    {PP_6}{N_6}{O}{P_1}{P_6}{P_13}
  \pstSegmentMark[SegmentSymbol=wedge]{N_6}{P_6}
  \pstSegmentMark[SegmentSymbol=wedge]{P_13}{N_6}
  \pstRotation[RotAngle=90, PointSymbol=none, PointName=none]{N_4}{E}[PP_4]
  \pstInterLC[PosAngleA=90, PosAngleB=-90, PointNameB=P_{15}]
    {N_4}{PP_4}{O}{P_1}{P_4}{P_15}
  \pstSegmentMark[SegmentSymbol=cup]{N_4}{P_4}
  \pstSegmentMark[SegmentSymbol=cup]{P_15}{N_4}
  \pstRightAngle[linestyle=solid]{P_1}{N_6}{P_6}
  \pstRightAngle[linestyle=solid]{P_1}{N_4}{P_4}
  \pstBissectBAC[PosAngle=90, linestyle=none]{P_4}{O}{P_6}{P_5}
  %\pstOrtSym[PosAngle=-90, PointName=P_{14}]{O}{P_1}{P_5}[P_14]
  \pstInterCC[PosAngleB=90, PointSymbolA=none,
            PointNameA=none]{O}{P_1}{P_4}{P_5}{H}{P_3}
  %\pstOrtSym[PosAngle=-90, SegmentSymbol=pstslash, PointName=P_{16}]
  %  {O}{P_1}{P_3}[P_16]
  \pstInterCC[PosAngleB=90, PointSymbolA=none,
            PointNameA=none]{O}{P_1}{P_3}{P_4}{H}{P_2}
  %\pstOrtSym[PosAngle=-90, SegmentSymbol=pstslashslashslash,
  %           PointName=P_{17}]{O}{P_1}{P_2}[P_17]
  \pstInterCC[PosAngleA=90, PointSymbolB=none,
        PointNameB=none]{O}{P_1}{P_6}{P_5}{P_7}{H}
  \pstInterCC[PosAngleA=100, PointSymbolB=none,
        PointNameB=none]{O}{P_1}{P_7}{P_6}{P_8}{H}
  \pstInterCC[PosAngleA=135, PointSymbolB=none,
        PointNameB=none]{O}{P_1}{P_8}{P_7}{P_9}{H}
  \pstOrtSym[PosAngle={-90,-90,-90,-100,-135},
  %SegmentSymbol={default,pstslash,pstslashhh,circ,times,equiv},
  PointName={P_{17},P_{16},P_{14},P_{12},P_{11},P_{10}}]
  {O}{P_1}{P_2,P_3,P_5,P_7,P_8,P_9}[P_17,P_16,P_14,P_12,P_11,P_10]
  %\pstOrtSym[PosAngle=-100, SegmentSymbol=times,
  %PointName=P_{11}]{O}{P_1}{P_8}[P_11]
  %\pstOrtSym[PosAngle=-135, SegmentSymbol=equiv,
  %PointName=P_{10}]{O}{P_1}{P_9}[P_10]
  \pspolygon[linecolor=green, linestyle=solid, linewidth=2\pslinewidth]
    (P_1)(P_2)(P_3)(P_4)(P_5)(P_6)(P_7)(P_8)(P_9)
         (P_10)(P_11)(P_12)(P_13)(P_14)(P_15)(P_16)(P_17)