Greek Alphabet

; Vedi: http://www.numbertext.org/logo/posters/greekalphabet.pdf

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)