Petali



per lato :dim as "lato :dim fine per esapieno :colore ripeti 6 [tria d 60] ascolriempi :colore riempi fine per tria su a :lato d 120 giu a :lato d 120 su a :lato d 120 fine per esa1 asdir 30 su avanti prodotto 2 prodotto :lato .866 asdir 0 fine per esa2 asdir 90 su avanti prodotto 2 prodotto :lato .866 asdir 0 fine per esa3 asdir 150 su avanti prodotto 2 prodotto :lato .866 asdir 0 fine per esa4 asdir 210 su avanti prodotto 2 prodotto :lato .866 asdir 0 fine per esa5 asdir 270 su avanti prodotto 2 prodotto :lato .866 asdir 0 fine per esa6 asdir 330 su avanti prodotto 2 prodotto :lato .866 asdir 0 fine per puntone.multiplo :diametro :decremento :colore :sfumatura as "sspessore :diametro as "ccolore :colore as "ddove dove se minore? :diametro :diametro.soglia [puntone.semplice] as "deltax 0 as "rosso primo :colore as "verde secondo :colore as "blu terzo :colore as "volte quoziente :diametro :decremento ripeti :volte [ as "colore (lista :rosso :verde :blu) ascolpenna :colore spessore :diametro scripunto :ddove as "diametro differenza :diametro :decremento se (:sfumatura > 0) [ as "rosso prodotto :rosso 0.92 as "verde prodotto :verde 0.92 as "blu prodotto :blu 0.92 ] altrimenti [ se ((somma :rosso 10) > 255) [as "rosso 255] altrimenti [as "rosso somma :rosso 10] se ((somma :verde 10) > 255) [as "verde 255] altrimenti [as "verde somma :verde 10] se ((somma :blu 10) > 255) [as "blu 255] altrimenti [as "blu somma :blu 10] ] ] fine per puntone.semplice ascolpenna :ccolore spessore :sspessore scripunto :ddove fine per petalo :diametro :colore as "diametro.soglia prodotto :diametro .1 as "decremento prodotto :diametro .1 as "sfumatura prodotto :diametro .1 puntone.multiplo :diametro :decremento :colore :sfumatura fine sfondo.esegui1 "strada lato 53 cominciaxy 0 0 petalo 90 :rosso3 esa1 petalo 90 :giallo3 esa3 petalo 90 :verde2 esa4 petalo 90 :viola2 esa5 petalo 90 :panna1 esa6 petalo 90 :celeste1 esa1 petalo 90 :fucsia1 mostarta tarta.primo.piano