Il codice seguente è da revisionare (contiene troppi numeri magici…)
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 |
TO Greek size letters = { “α”: “alpha”, “β”: “beta” , “γ”: “gamma” , “δ”: “delta”, “ε”: “epsilon”, “ζ”: “zeta” , “η”: “eta” , “θ”: “theta” , “ι”: “iota” , “κ”: “kappa”, “λ”: “lambda” , “μ”: “mu” , “ν”: “nu” , “ξ”: “xi” , “ο”: “omicron”, “π”: “pi” , “ρ”: “rho” , “σ”: “sigma”, “τ”: “tau” , “υ”: “upsilon”, “φ”: “phi” , “χ”: “chi” , “ψ”: “psi” , “ω”: “omega” } FOR letter IN letters [ FILLCOLOR [127+RANDOM(128), 64+RANDOM(150), 64+RANDOM(64), 200] CIRCLE size FONTSIZE size TEXT letter BACK size*5/6 FONTSIZE size/4 LABEL letter.upper() + “\n” + letters[letter] FORWARD size*5/6 RIGHT 90 FORWARD size LEFT 90 IF REPCOUNT % 6 = 0 [ BACK size*1.7 LEFT 90 FORWARD size*6 RIGHT 90 ] ] END HIDETURTLE CLEARSCREEN PENUP POSITION [0.9*PAGESIZE[0]/8, 1.4*PAGESIZE[0]/8] HEADING 0 FONTFAMILY “Linux Biolinum G” Greek (PAGESIZE[0]/10) |
Vedi