Make a picture with Latex pstricks Drawing macro Package

Now make a macro in the Geogebra, simplify the action of repeating the pentagram, and then export it to the Pstricks code after the drawing is finished:

\documentclass[10pt]{article}\usepackage{pstricks-add}\pagestyle{empty}\begin{document}\psset{xunit=0.2cm, yunit=0.2cm,algebraic=true,dimen=middle,dotstyle=o,dotsize=3pt 0,linewidth=0.8pt,arrowsize=3pt 2,arrowinset=0.25 }\begin{pspicture*} ( -1.9821814218298148,-21.840571816907325) (61.786984589480895,22.09793891039823) \pspolygon[ Linecolor=red,fillcolor=red,fillstyle=solid,opacity=1.0] (0.,-20.) (60.,-20.) (60.,20.) (0.,20.) \pspolygon[linecolor=yellow,fillcolor=yellow,fillstyle=solid,opacity=1.0] (10.,16.) (8.652916070261245,11.854101966249683) (4.293660902229079,11.854101966249685) (7.820372415983917,9.291796067500632) (6.473288486245162,5.145898033750316) (10.,7.70820393249937) (13.526711513754838,5.145898033750316) (12.179627584016083,9.29179606750063) (15.70633909777092,11.854101966249683) (11.347083929738757,11.854101966249681) \pspolygon[linecolor=yellow,fillcolor=yellow,fillstyle=solid,opacity= 1.0] (18.43826238111394,3.249390095108849) (19.236890981826892,2.0354508305140513) (18.32915594366165,0.900782032807502) (19.73047060145526,1.285195104716416) (20.529099202168215,0.07125584012162056) ( 20.596530688905144,1.5227754488758831) (21.99784534669876,1.9071885207847978) ( 20.63820563962051,2.419863902422967) (20.705637126357438,3.8713835111772315) ( 19.797902088192192,2.7367147134706795) \pspolygon[linecolor=yellow,fillcolor=yellow,fillstyle=solid,opacity=1.0 ] (22.07695210471835,6.549442255794757) (23.28238804717758,5.738035841826311) ( 22.883194881659485,4.340859762512995) (24.027388430878137,5.236559099304147) ( 25.232824373337362,4.425152685335702) (24.73453893400364,5.790131733141817) ( 25.878732483222294,6.685831069932968) (24.42658159639623,6.633735178617463) (23.92829615706251,7.998714226423578 ) (23.52910299154442,6.6015381471102605) \pspolygon[linecolor=yellow,fillcolor=yellow,fillstyle=solid,opacity= 1.0] (18.285014148574913,14.971008489144946) (19.701063214815463,15.296985822714227) ( 20.448669308408153,14.050975666726414) (20.57622966748969,15.498450894422104) ( 21.992278733730235,15.824428227991374) (20.65506630501921,16.393039783011513) (20.782626664100732,17.840515010707207) (19.828623573896998,16.7444610504099) ( 18.491411145185968,17.313072605430055) (19.239017238778654,16.06706244944224) \pspolygon[linecolor=yellow, Fillcolor=yellow,fillstyle=solid,opacity=1.0] (22.020101012677667,11.717157287525382) ( 23.451679711208026,11.468081777055572) (23.657176970557234,10.029600961611155) ( 24.336444004470135,11.314144645820003) (25.768022703000497,11.065069135350205) ( 24.75625411886563,12.108036302695082) (25.435521152778534,13.392579986903943) ( 24.130946745120923,12.752625461264428) (23.119178160986067,13.795592628609317) ( 23.32467542033527,12.357111813164895) \end{pspicture*}\end{document}

After compiling under Latex, the effect is as follows:

Make a picture with Latex pstricks Drawing macro Package