text(point( ) 'draw(wintext(point( ) 'draw(wintext(point( ) 'draw(wintext(point( )' 'draw(windraw bar for initial principal height principal bar rectangle(point( )point( -height)bar setfill("green"bar setwidth( bar draw(windraw bars for successive years for year in range( , )calculate value for the next year principal principal ( aprdraw bar for this value xll year height principal bar rectangle(point(xll )point(xll+ -height)bar setfill("green"bar setwidth( bar draw(wininput("press to quit"win close(main(if you study this program carefullyyou will see that added number of features to spruce it up bit all graphical objects support methods for changing color have set the background color of the window to white (by default it' graywin setbackground("white" have also changed the color of the bar object the following line asks the bar to color its interior green (because it' moneyyou know)bar setfill("green"you can also change the color of shape' outline using the setoutline method in this casei have chosen to leave the outline the default black so that the bars stand out from each other to enhance this effectthis code makes the outline wider (two pixels instead of the default one