XProfan

' Programa: lesson13
' para XProfan 9
declarar font&, \' Base Display List For The Font Conjunto
cnt1!, \' 1st Counter Used To Move Texto & For Coloring
cnt2!, \' 2nd Counter Used To Move Texto & For Coloring
cnt3!' Neu eingefügt
cnt3! = -7
declarar time&, frames%

proc DrawGLScene

    oGL("Clear")
    oGL("Origin", 0, 0, -2)' Move Into The Screen
    oGL("Color", cos(cnt1!), sin(cnt2!), 1 - 0.5 * cos(cnt1! + cnt2!), 1)
    cnt1! = cnt1! + 0.051' Increase The First Counter
    cnt2! = cnt2! + 0.005
    cnt3! = cnt3! + 0.007' Neu eingefügt
    ' Increase The 2nd Counter
    oGL("Locate", -5.95 - cnt3!, 0.32 * sin(cnt2!))' Position The Texto On The Screen ************ Neu eingefügt
    oGL("Print", font&, "Text en OpenGL con XProfan 9")' Imprimir GL Texto To The Screen
    oGL("Show")

ENDPROC

' Hauptprogramm
' -------------
declarar ende%, hfont&
CLS 0
oGL("Init", %hWnd, 0, 0, 0, 1)
hfont& = create("Font", Arial, 32, 0, 0, 0, 0)
font& = oGL("BitmapFont", hfont&)
deleteobject hfont&
Ende% = 0
time&   = &GetTickCount
setTimer 10' max. 100 Frames /sek.

Sinestar encargado ende%

    WaitInput

    If IsKey(27)

        Ende% = 1

    EndIf

    DrawGLScene()
    inc frames%

    if &GetTickCount - time& >= 1000' 1 Sekunde es 'rum

        setText %hWnd, str$(frames%) + " Frames / sek"
        time&   = &GetTickCount
        frames% = 0

    endif

EndWhile

killTimer
end

' Programa: lesson14
' para XProfan 10
declarar font&, rot!, pos!
pos!=8
declarar time&, frames%

proc DrawGLScene

    pos! = pos! - 0.05
    oGL("Clear")
    oGL("Origin", 0, 0, -12)
    '  oGL("Rotate", rot!, rot! * 0.1, rot! * 0.09)
    oGL("Color", cos(rot!/20), sin(rot!/25), 1 - 0.5*cos(rot!/17), 1)
    oGL("Move", pos!, 0, 0)
    oGL("Print", font&, "OpenGL con XProfan 9")
    rot! = rot! + 0.5
    oGL("Show")
    locate 0,0
    imprimir str$(pos!)

ENDPROC

' Hauptprogramm
' -------------
declarar ende%, hfont&
CLS 0
oGL("Init", %hWnd, 0, 0, 0, 1)
hfont& = create("Font", "Courier New", 48, 0, 1, 0, 1)
font& = oGL("OutlineFont", hfont&, 0.3)
deleteobject hfont&
Ende% = 0
time&   = &GetTickCount
setTimer 25' max. 100 Frames /sek.

Sinestar encargado ende%

    WaitInput

    If IsKey(27)

        Ende% = 1

    EndIf

    Case pos! < -18 : pos! = 7'Texto otra vez después de rechts
    DrawGLScene()
    inc frames%

    if &GetTickCount - time& >= 1000' 1 Sekunde es 'rum

        setText %hWnd, str$(frames%) + " Frames / sek"
        time&   = &GetTickCount
        frames% = 0

    endif

EndWhile

killTimer
end

'-Begin-----------------------------------------------------------------
Declarar A$,B$
Cls
Título de la ventana "Testprogramm MP3 / MPG"

If %ParCount

    A$ = Par$(1)
    imprimir "Abspielen: \n" + A$

Más

    imprimir "Keine mp3-Expediente transferencia >>> Expediente auswählen"
    A$=LoadFile$("MP3/MPG-DATEI","*.MP*")

EndIf

Mientras que A$ <> ""

    A$ = "\q" + A$ + "\q"
    A$="OPEN " + A$ + " TYPE MPEGVIDEO ALIAS MP"
    B$=MCISend$(A$)
    Case %MCIError : Imprimir "Fehler: ";B$
    B$=MCISend$("PLAY MP")
    WaitMouse
    B$=MCISend$("CLOSE MP")
    A$=LoadFile$("MP3/MPG-DATEI","*.MP*")

EndWhile

'-End-------------------------------------------------------------------

/*
Diashow
*/
Ventana de Estilo 64 + 16'Ventana sin Rahmen y
Ventana %MaxX, %MaxY'Ventana a Desktopauflösung adaptar
CLS 0'Bildschirm Schwarz färben
Declarar Ende%'Variable para Abbruchbedingung
Declarar hfont&, font&'Variables para Font1
Declarar pos!, rot!'Positions- y RotationsVariablen
Ende% = 0'Startbedingung 0 - Also kein Abbruch
pos!=12'Position des Textes außerhalb des rechten Bildschirmrandes
rot!=0'Rotation = 0
oGL("Init", %hWnd, 0, 0, 0, 0)'OpenGL Init
oGL("LoadXPGL", "Linie.xpgl")'Lädt Linienpunkte de Expediente Linie.xpgl
oGL("UseXPGL", 1)'Verwendet esta Linienpunkte
hfont& = create("Font", "Courier New", 64, 0, 0, 10, 0)'Lädt Font en Variable hfont&
font& = oGL("OutlineFont", hfont&, 0.3)'Weist hfont& oGL a
deleteobject hfont&'Zerstört Objeto hfont& otra vez, porque lo después de Zuweisung no mehr benötigt se
MIDI("Play", $PROGDIR + "irgendeinSound.mp3", 1)'Spielt mp3 de el Programmverzeichnis de de el dieses Programa comenzó wurde
SetTimer 5'max. 100 Frames /sek.

Sinestar encargado ende%'Wenn no Abbruchbedingung erkannt wurde, durchlauf des Timers

    WaitInput'wartet en Abbruchbedingung

    If IsKey(27)'es Abbruchbedingung "Escape-Taste" erfüllt, entonces

        Ende% = 1'setzte Variable Ende% en 1

    EndIf'y beende esta Abfrage

    Case pos! < -22 : pos! = 12'Wenn Texto hinter linkem Bildschirmrand verschwunden entonces starte ihn otra vez de Vorne
    Case rot! <= 90 : rot!=0'Wenn Rotationswinkel 90Grad erreicht, entonces en 0 conjunto
    DrawLauftext()'Zeichne derweil OpenGL

EndWhile'Springe a Sinestar encargado

KillTimer'Beende después de 5ms el Temporizador oder mejor dijo: Springe después de 5ms otra vez para SetTimer
End
'----------------------------------------------------------------------------

proc DrawLauftext

    pos! = pos! - 0.05
    rot! = rot! + 0.05
    oGL("Clear")
    oGL("Origin", 0, 0, -12)
    'oGL("Rotate", rot!, rot! * 0.1, rot! * 0.09)
    oGL("Color", cos(rot!), sin(rot!), 1 - 0.5*cos(rot!), 1)
    oGL("Move", pos!, 4.3, 0)
    oGL("Print", font&, "OpenGL con XProfan 9")
    oGL("Origin", 0, 0, -12)
    oGL("Color", cos(rot!), sin(rot!), 1 - 0.5*cos(rot!), 1)
    oGL("Move", pos!/0.7, -4.7, 0)
    oGL("Print", font&, "OpenGL con XProfan 9")
    oGL("Origin", 0.0, 0.0, -9.0)'Setzt Position el XPGL-Linien
    oGL("DrawXPGL", 0, 4)'Zeichnet ebend esta Linien
    oGL("Show")'Espectáculos Lauftext y Linien

ENDPROC