XProfan

Var anzahl% = 0
Var position! = 25
Var color! = 0
Declare hfont&, font&
Declare Ende%, die%'Variable per Abbruchbedingung
Declare pos!, rot!'Positions- und RotationsVariablen
Declare textur%, kugel#
Declare texture%[500]
Declare time&
declare r!
'Legt die Fensterform fest
'WindowStyle 64 + 16                                                                            'Fenster ohne Rahmen und
Window %MaxX, %MaxY'Fenster an Desktopauflösung anpassen
CLS 0
'Initialisiert OpenGL
oGL("Init", %hWnd, 0, 0, 0, 0)
oGL("BlendMode",1)
'oGL("LoadXPGL", "Linie.xpgl")                                                                   'Lädt Linienpunkte aus File Linie.xpgl
'oGL("UseXPGL", 1)                                                                               'Verwendet diese Linienpunkte
'Legt Lauftschrift fest
hfont& = create("Font", "Courier New", 32, 0, 0, 10, 0)'Lädt Font in Variable hfont&
font& = oGL("OutlineFont", hfont&, 0.3)'Weist hfont& oGL zu
deleteobject hfont&'Zerstört Objekt hfont& wieder, weil es nach Zuweisung nicht mehr necessario wird
Verzeichnis 1'Liest Bilddaten ein
'Spielt Mukke ab
MIDI("Play", $ProgDir + "Sound\" + "1.mp3", -1)
SetTimer 5'max. 50 Frames /sek.

WhileNot ende%'Wenn keine Abbruchbedingung erkannt wurde, durchlauf des Timers

    If IsKey(27)'ist Abbruchbedingung "Escape-Taste" erfüllt, dann

        Ende% = 1'setzte Variable Ende% auf 1

    EndIf'und beende diese Abfrage

    'print "noch ein test"
    Case position! < -100 : position! = 25'Wenn Text hinter linkem Bildschirmrand verschwunden dann starte ihn wieder von Vorne
    Case color! = 90 : color!=1'Wenn Rotationswinkel 90Grad erreicht, dann auf 0 setzen
    OpenGL()'Zeichne derweil OpenGL

EndWhile'Springe zu WhileNot

KillTimer'Beende nach 5ms den Timer oder besser gesagt: Springe nach 5ms wieder zum SetTimer
End

Proc Verzeichnis

    Parameters Folder$'Die Parameterübergabe des aktuellen Verzeichnisses
    Var counter% = 0 : Var i% = 0'Zählvariablen zum Einlesen der Bilder
    Declare File$, bild&'File und Bildnummer
    Declare Pfad$, Bilder$'Pfad des aktuellen Verzeichnisses und Bilddaten in Vaiable speichern
    'Bildverzeichnis Initialisieren
    Pfad$ = $ProgDir + "Bilder\" + Folder$ + "\"
    ChDir Pfad$
    Pfad$ = Pfad$ + "*.jpg"
    Bilder$ = FindFirst$(Pfad$)
    AddFiles bilder$
    'sucht nach Bilder und weist Diese der Variable Bilder$ zu

    WhileNot %IOResult

        bilder$=FindNext$()
        addfiles bilder$
        inc counter%

    EndWhile

    'ordnet die geladenen Bilder dem TexturArray zu

    whilenot anzahl% = counter%

        DATEI$ = ListBoxItem$(anzahl%)
        bild& = Create("hsizedPic",-1,  File$,1280,1024,1)
        casenot bild& : continue
        texture%[i% + 1] = oGL("getTextureBMP",bild&,1)
        deleteObject bild&
        inc i%
        inc anzahl%

    endwhile

EndProc

proc OpenGL

    position! = position! - 0.05
    color! = color! + 0.05
    oGL("Clear")
    '  oGL("Origin", 0.0, 0.0, -9.0)                                                               'Setzt Position der XPGL-Linien
    '		oGL("DrawXPGL", 0, 4)                                                                       'Zeichnet ebend diese Linien
    oGL("Origin", 0, 0, -30)
    oGL("Color", cos(color!), sin(color!), 1 - 0.5*cos(color!/30), 1)
    oGL("Move", position!, 11.7, 0)
    oGL("Print", font&, "     DiaShow V1.0  lorem ipsum...........")
    'oGL("Fog",3,0,25 + sin(rotation!))
    oGL("Origin", 0, 0, -30)
    oGL("Color", cos(color!/10), sin(color!/3), 1 - 0.5*cos(color!), 1)
    oGL("Move", position!/0.7, -12.2, 0)
    oGL("Print", font&, "   lorem ipsum ................................................................    ")
    'Sprites
    'oGL("Origin", -3.4, -0.1, -6.0)
    'oGL("Color", 10, 10, 10, 1)
    'oGL("Quad", %MaxX, 0.1)
    'oGL("Origin", 0, 0, -12)
    'oGL("Draw", kugel#)
    'oGL("Origin", 0, 0, -6)
    '    oGL("Origin", 0, -4.5, -18)
    '    oGL("Draw", kugel#)

    if &GetTickCount - time& >= 5000'5 Sekunden sind rum

        r! = r! + 1
        case r! = anzahl% : r! = 1
        time&   = &GetTickCount

    endif

    'Bilder Laden
    oGL("Origin", 0, -4, -12)
    oGl("color",1,1,1,1)
    oGl("move",-5.8, 0, -7.5)
    oGL("Rotate", 0, 30, sin(color!))
    oGl("push")
    oGL("Texture", texture%[r!], 1)
    oGL("Quad", 13, 8)
    oGl("pop")
    oGL("Origin", 0, -4, -12)
    oGl("color",1,1,1,1)
    oGl("move",5.8, 0, -7.5)
    oGL("Rotate", 0, -30+sin(color!)/0.5, cos(color!))
    oGl("push")
    oGL("Texture", texture%[r!+2], 1)
    oGL("Quad", 13, 8)
    oGl("pop")
    oGL("Show")'Zeigt alle Objekte

EndProc

SetTimer 5'max. 50 Frames /sek.

WhileNot ende%'Wenn keine Abbruchbedingung erkannt wurde, durchlauf des Timers

    Waitinput'<- hier

    If IsKey(27)'ist Abbruchbedingung "Escape-Taste" erfüllt, dann

        Ende% = 1'setzte Variable Ende% auf 1

    EndIf'und beende diese Abfrage

    'print "noch ein test"
    Case position! < -100 : position! = 25'Wenn Text hinter linkem Bildschirmrand verschwunden dann starte ihn wieder von Vorne
    Case color! = 90 : color!=1'Wenn Rotationswinkel 90Grad erreicht, dann auf 0 setzen
    OpenGL()'Zeichne derweil OpenGL

EndWhile'Springe zu WhileNot

KillTimer'Beende nach 5ms den Timer oder besser gesagt: Springe nach 5ms wieder zum SetTimer
End