;procedura rysujaca prostokaty ;sluzy do rysowania bocznych elementow gór ;simba startuje z lewego gornego boku prostokata OTO prostokat :wysokosc :dlugoscBoku wielokąt NP :dlugoscBoku DL 90 NP :wysokosc GR 90 LW 180 NP :dlugoscBoku GR 90 NP :wysokosc gotowy JUŻ ;procedura rysuje podstawowy element gór ;Simba staruje ze srodka szescianu OTO szescian :wysokosc :dlugoscBoku POD DL 90 NP :dlugoscBoku/2 LW 90 NP :dlugoscBoku/2 LW 90 OPU mat KAMYKI1 wielokąt POWTÓRZ 4 [NP :dlugoscBoku LW 90] gotowy POD GR 90 NP :wysokosc DL 90 OPU wielokąt POWTÓRZ 4 [NP :dlugoscBoku LW 90] gotowy mat KAMYKI2 prostokat :wysokosc :dlugoscBoku DL 90 PW 90 prostokat :wysokosc :dlugoscBoku DL 90 LW 180 POD NP :dlugoscBoku OPU PW 90 prostokat :wysokosc :dlugoscBoku DL 90 LW 180 POD NP :dlugoscBoku OPU PW 90 prostokat :wysokosc :dlugoscBoku DL 90 LW 90 POD NP :dlugoscBoku/2 LW 90 NP :dlugoscBoku/2 LW 90 LW 180 GR 90 OPU JUŻ ; funkcja ustawiajaca Simbe, gdzie nowa góra ma być zlokalizowana ; wprzod - ile krokow w przod ma isc ; wbok - ile krokow w bok ma isc ; kierunekWBok =1 w przod ; kierunekWBok !=1 w tyl OTO idzDoNowejszczyt :wprzod :wbok :kierunekWBok pisz :wprzod POD DL 90 LW 180 NP :wprzod*:jednostka PW 90 jeżeli :kierunekWBok = 1 [ NP :wbok*:jednostka ] przeciwnie [ NP -:wbok*:jednostka] PW 90 GR 90 OPU JUŻ ;funkcja rysujaca góre z podanymi parametrami OTO rysujszczyt :szczyt :iloscStopni :wysokoscStopnia :dlugoscStopnia przypisz "tmpszczyt :szczyt powtórz :iloscStopni[ szescian :wysokoscStopnia :tmpszczyt przypisz "tmpszczyt :tmpszczyt-:dlugoscStopnia ] NP -:wysokoscStopnia*:iloscStopni JUŻ cs ;kamera+ekran ekran.dalej 100 ekran.prawo 60 ekran.gora 90 kamera.gora 5 kamera.prawo 20 ;tlo przypisz "glebia 150 przypisz "wysokoscTla 1000 przypisz "szerokoscTla 5000 DL 90 POD NP :glebia LW 90 NP :szerokoscTla/2 PW 90 GR 90 OPU mat NIEBO1 wielokat NP :wysokoscTla PW 90 NP :szerokoscTla PW 90 NP :wysokoscTla PW 90 NP :szerokoscTla gotowy LW 90 mat TRAWA1 wielokat NP :wysokoscTla LW 90 NP :szerokoscTla LW 90 NP :wysokoscTla LW 90 NP :szerokoscTla gotowy POD NP -:szerokoscTla/2 PW 90 DL 90 NP -:glebia GR 90 lw 90 np 1200 pw 90 OPU przypisz "jednostka 50 przypisz "krok 60 przypisz "szczyt1Bok 9*:krok przypisz "szczyt2Bok1 2*:krok przypisz "szczyt3Bok 8*:krok przypisz "szczyt4 4*:krok przypisz "szczyt5Bok2 1*:krok ;rysuj szczyt1 rysujszczyt :szczyt1Bok 28 20 20 idzDoNowejszczyt 0 8 0 ;rysuj szczyt1 rysujszczyt :szczyt1Bok 28 20 20 idzDoNowejszczyt 2 8 2 ;rysuj szczyt1 rysujszczyt :szczyt1Bok 28 20 20 idzDoNowejszczyt 3 8 3 ;rysuj szczyt1 rysujszczyt :szczyt1Bok 28 18 18 idzDoNowejszczyt 2 8 2 ;rysuj szczyt1 rysujszczyt :szczyt1Bok 24 24 24 idzDoNowejszczyt 4 10 4 ;rysuj szczyt1 rysujszczyt :szczyt1Bok 28 20 20 idzDoNowejszczyt 0 8 0 powtorz 25 [ kamera.lewo 1 czekaj 100]