XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Schrift: Turnhallentafel
(C)2007 Nico Madysa
http://sites.xprofan.com(nico-madysa
declare letter&[25],i%
letter&[00] = %11000011
11111111
11000011
01111110
letter&[01] = %10111111
01111011
10110111
01111111
letter&[02] = %10111110
00000011
00000011
01111110
letter&[03] = %10111111
11000011
11000011
01111111
letter&[04] = %11111100
00011100
00011100
11111100
letter&[05] = %00001100
00111100
00001100
11111100
letter&[06] = %11111110
11000111
00001011
01111110
letter&[07] = %11000011
11111111
11000011
11000011
letter&[08] = %00110000
00110000
00110000
00110000
letter&[09] = %00001010
00001100
00001100
00001100
letter&[10] = %10101100
01111100
10111100
01101100
letter&[11] = %11111100
00001100
00001100
00001100
letter&[12] = %11000011
11011011
11111111
11100111
letter&[13] = %11100011
11111011
11011111
11000111
letter&[14] = %10111110
11000011
11000011
01111110
letter&[15] = %00001100
00011100
10001100
01111100
letter&[16] = %11111110
11100011
11000011
01111110
letter&[17] = %10101100
01111100
10001100
01111100
letter&[18] = %10111110
01111000
00011110
00111100
letter&[19] = %00111100
00111100
00111100
11111111
letter&[20] = %10111110
11000011
11000011
11000011
letter&[21] = %10111110
11100111
11000011
11000011
letter&[22] = %10101010
11111111
11010111
11000011
letter&[23] = %10101010
01111110
10111110
01100110
letter&[24] = %00111100
00111100
10111110
01100110
letter&[25] = %11111111
00011110
10110100
11111111

proc DrawTrigon

    parameters nr% , da%
    oGL(Origin,x!,y!,-6)
    oGL(Color,1,1,0,if(da%,1,0.7))

    if ((nr% - 1)  8 ) mod 2

        oGL(Rotate,0,0,90)

    endif

    Select nr% mod 4

        Caseof 1

        oGL(Rotate,0,0,45)

        Caseof 2

        oGL(Rotate,0,0,225)

        Caseof 3

        oGL(Rotate,0,0,135)

        Caseof 0

        oGL(Rotate,0,0,315)

    EndSelect

    oGL(Triangle,0.5,0.25)

endproc

proc DrawScene

    declare x! , y!
    oGL(Clear)
    oGL(Origin,0,-2,-6)
    oGL(Color,0,0,0,1)
    oGL(Quad,4,4)
    x! = -2 - Sqrt8! / 2 + 0.1
    y! =  2 - Sqrt8! / 2 - 0.1

    whileloop 32

        case (&loop mod 2) : x! = x! + Sqrt8!
        DrawTrigon &loop , TestBit(tatt&,&loop - 1)

        ifnot &loop mod 8

            x! = -2 - Sqrt8! / 2 + 0.1
            y! = y! - Sqrt8!

        endif

    EndWhile

    oGL(Show)

endproc

proc Ende

    oGL(Done)
    end

endproc

declare tatt& , buchst%
var sqrt8! = Sqrt(1 / 8)
cls
oGL(Init,%hWnd,1,1,1,1)
oGL(BlendMode,1)

repeat

    buchst% = Ord(Upper$(Left$(Input$(Geben Sie einen Buchstaben ein,Buchstaben-Wahl,A),1))) - 65
    i% = Set(ErrorLevel,-1)
    tatt& = letter&[buchst%]
    DrawScene
    Set(ErrorLevel,i%)
    WaitInput

until (buchst% < 0) or (buchst% > 25) or IsKey(27)

Ende