Italia
Fonte/ Codesnippets

Analoge Demo Ogl Uhr

 

KompilierenMarkierenSeparieren
Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
OGL-Demo: analoge Uhr (1)

proc __xpse__endofprogram__

    REM {{SOMEEXTRAENDCOMMAND}}
    end

endproc

WindowTitle OGL-Demo: Analog-Uhr
WindowStyle 56 + 512
CLS
OGL(init,%HWND,1,1,1,0)
var TME$=
var H!=0
var M!=0
var S!=0
var CLOCKBODY%=OGL(startlist)
OGL(posmode,1)

WHILELOOP 60

    OGL(rotate,0,0,&LOOP*6)
    OGL(move,2.2,0,0)

    IF MOD(&LOOP,5)

        OGL(color,1,1,1,1)

    ELSE

        OGL(color,1,0,0,1)

    ENDIF

    OGL(sphere,0.1,9,9)
    OGL(move,-2.2,0,0)
    OGL(rotate,0,0,&LOOP*-6)

ENDWHILE

OGL(color,0,0,0,0)
OGL(disk,0,2.4,60)
OGL(texture,0,0)
OGL(posmode,0)
OGL(move,0,-0.2,0)
OGL(color,1,1,1,1)
OGL(sphere,0.2,15,15)
OGL(endlist)
SETTIMER 1000

WHILE 1

    TME$=TIME$(0)+:+SUBSTR$(TIME$(1),1,.)
    M!=SS(2)
    H!=MOD(SS(1),12)+(M!/60)
    S!=SS(3)
    OGL(clear)
    OGL(origin,0,0,-7)
    PAINTCLOCK
    OGL(show)
    WAITINPUT
    case %Key = 2 : break

ENDWHILE

KILLTIMER
WAITINPUT
__xpse__endofprogram__

proc SS

    PARAMETERS I%
    RETURN VAL(SUBSTR$(TME$,I%,:))

endproc

proc PAINTCLOCK

    OGL(push)
    OGL(color,1,1,1,1)
    OGL(rotate,0,0,S!*-6)
    OGL(tube,0.03,0.02,1.7,4)
    OGL(rotate,0,0,S!*6)
    OGL(rotate,0,0,M!*-6)
    OGL(tube,0.1,0.03,2,4)
    OGL(rotate,0,0,M!*6)
    OGL(rotate,0,0,H!*-30)
    OGL(tube,0.1,0.03,1.3,4)
    OGL(rotate,0,0,H!*30)
    OGL(drawlist,CLOCKBODY%)
    OGL(pop)

endproc

s4 href='./../../references-fonction/xprofan/xpseendofprogram/'>__xpse__endofprogram__
 
16.07.2007  
 



Zum Quelltext


Topictitle, max. 100 characters.
 

Systemprofile:

Kein Systemprofil angelegt. [anlegen]

XProfan:

 Posting  Font  Smilies  ▼ 

Bitte anmelden um einen Beitrag zu verfassen.
 

Topic-Options

4.112 Views

Untitledvor 0 min.
H.Brill29.10.2023
Tango30.10.2021
Frank16.04.2021
Normann Strübli31.07.2020
Di più...

Themeninformationen

Dieses Thema hat 1 subscriber:

unbekannt (1x)


Admins  |  AGB  |  Applications  |  Autori  |  Chat  |  Informativa sulla privacy  |  Download  |  Entrance  |  Aiuto  |  Merchantportal  |  Impronta  |  Mart  |  Interfaces  |  SDK  |  Services  |  Giochi  |  Cerca  |  Support

Ein Projekt aller XProfaner, die es gibt!


Il mio XProfan
Private Notizie
Eigenes Ablageforum
Argomenti-Merkliste
Eigene Beiträge
Eigene Argomenti
Zwischenablage
Annullare
 Deutsch English Français Español Italia
Traduzioni

Informativa sulla privacy


Wir verwenden Cookies nur als Session-Cookies wegen der technischen Notwendigkeit und bei uns gibt es keine Cookies von Drittanbietern.

Wenn du hier auf unsere Webseite klickst oder navigierst, stimmst du unserer Erfassung von Informationen in unseren Cookies auf XProfan.Net zu.

Weitere Informationen zu unseren Cookies und dazu, wie du die Kontrolle darüber behältst, findest du in unserer nachfolgenden Datenschutzerklärung.


einverstandenDatenschutzerklärung
Ich möchte keinen Cookie