XProfan

Rolf
Koch

Hmm, stimmt, chez mir ist es un hässliches hellbraun - alors eklig.
malheureusement perspective je toujours pas so avec den Farbwerten par, hab mich avec OGL zuwenig beschäftigt.
Kuck doch la fois avec OKREA indem Du une Würfel erstellst et qui Farben ensuite simple la fois ausprobierst.

06.07.2006 ▲

Frank
Abbing

Hab qui Farben im Testprogramm ausprobiert. Knallig jaune ist pas trop faire, ausser je schalte qui Beleuchtung ab. ensuite sieht mais qui ganze Szene unecht aus...
Alle hellen Farben sommes betroffen, dass mais est pas richtig so.

06.07.2006 ▲

Knallgelb gibts dans Natura aussi seulement si direct un Licht draufscheint. peux es son cela Du seulement avec ambientem Licht probiertest?

Frank
Abbing

je teste avec dem Licht, welches XProfan dem User anbietet. je hoffe, es venons encore quelques Lichtarten hinzu.
c'est mais eh bien so, dass une gelbe Texture aussi comme jaune trop voyons ist. une gelbe la couleur sans Texture mais seulement comme braunes Irgendetwas. tout autor denke je, là passt quoi pas.
avec eigenen Lichtern J'ai eu seulement kurz experimentiert. si du déjà Erfahrungen gesammelt la hâte, Poste doch la fois quoi en.

non j'ai là keinerlei Erfahrung. mon Hinweis était lediglich hypothetisch.

Frank
Abbing

So gehts. je vergaß, pour oGL-Color sommes aussi höhere Werte comme 1 erlaubt.
Kompilieren Marque Séparation

Declare x!

Proc DrawGLScene

    oGL("Clear")
    oGL("PosMode",1)
    oGL("Move",0 , 0 , -7)
    oGL("Rotate",x!+45 , x!+45, x!+45)
    oGL("Color", 2, 1.8, .4, 1)
    oGL("Cuboid",2,2,2)
    oGL("Show")
    x!=x!+.25

EndProc

Cls
oGL("Init",%hwnd,1 ,1 ,1 ,1)
SetTimer 10

While 1

    waitInput
    Case %key=2:BREAK
    DrawGLScene()

EndWhile

KillTimer
Fin

quand même une s'il te plaît à Roland, encore plus Lichtquellen (de denen stehen 8 zur Disposition) vorzuinstallieren pour oGL-Init.
Werden pour oGL-Color grössere Werte comme 1 benutzt, leuchten qui Objekte nämlich, quoi sûrement pas toujours erwünscht ist.

RGH

allô Frank,

XProfan benutzt lediglich qui voreingestellte Standard-Lichtquelle. si Du cela Licht changement veux, ist qui folgende API-Funktion Dein ami:

Ogl(glColorMaterial, ~GL_FRONT_AND_BACK, ~GL_EMISSION)

qui erste paramètre peux folgende Werte enthalten: GL_FRONT, GL_BACK, GL_FRONT_AND_BACK (default).

qui zweite paramètre gibt qui Art des Lichtes à: GL_EMISSION, GL_AMBIENT, GL_DIFFUSE, GL_SPECULAR, GL_AMBIENT_AND_DIFFUSE (default). si cela jaune joli hell son soll, verwendest Du am Besten GL_EMISSION ou bien GL_SPECULAR.

qui Programmzeile bringst Du sinnvollerweise juste derrière dem oGL(Init,...) sous.

Salut
Roland

Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4

Frank
Abbing

merci Roland!

Ups, là hab je wohl um un paire Ecken trop compliqué gedacht. mon API-Versuche étions quelque chose ausschweifender...

Dein Vorschlag mittels GL_EMISSION ou bien GL_SPECULAR bringt mais dans mon cas rien un. Zwar sommes qui Farben maintenant joli hell, pour gibts mais aucun Schatteneffekte plus. comment De toute façon, vorerst habe je qui Solution pour mich trouvé (s. letztes Posting)

BTW: cela gilt aussi chez Verwendung de Texturen, tout autor verwende je chez leuchtenden Partikeln Disks comme Träger et aucun Quads.

Workaround pour Frank:
Kompilieren Marque Séparation

Uwe
''Pascal''
Niemeier

allô gens!

Kleine Ergänzung de mir:
Anscheinend gelten pour Primitives (simple Flächen ou bien Objekte, qui aus solchen zusammengesetzt sommes) autre Grundeinstellungen pour Farben et Refexionen comme pour komplexe Objekte (Kugeln, Röhren, Disks usw).
si cela allgemein so ist ou bien seulement chez RGH-ogL hab je encore pas geprüft.

ici qui Beweis:
Kompilieren Marque Séparation

!
cls
ogl("init",%hwnd,0,0,0,1)
ogl("clear")
ogl("move", 1,0,-5)
ogl("quad",1,1)
ogl("move",-2,0,0)
ogl("disk",0,0.5,4)
ogl("show")
wa

/a>

!

proc glMaterial---------------------------------------------------------------

    parameters a&,b&,a!,b!,c!,d!
    declare a#
    dim a#,16
    clear a#
    long a#,0=single(a!)
    long a#,4=single(b!)
    long a#,8=single(c!)
    long a#,12=single(d!)
    ogl("glMaterialfv",a&,b&,a#)
    dispose a#
    endproc-----------------------------------------------------------------------
    Déclarer X!

    Proc Drawglscene

        Ogl("Clear")
        Ogl("PosMode",1)
        Ogl("Move",0 , 0 , -7)
        Ogl("Rotate",X!+45 , X!+45, X!+45)
        --Halbe Werte de Color; mais am Besten ausprobieren!
        glMaterial(~GL_FRONT , ~GL_SPECULAR , 0.50 , 0.45 , 0.10 , 0)
        --Weitere mögliche paramètre siehe MSDM
        Ogl("Color", 1, .9, .2, 1)
        Ogl("Cuboid",2,2,2)
        Ogl("Show")
        X!=X!+.25

    ENDPROC

    Cls
    Ogl("Init",%Hwnd,1 ,1 ,1 ,1)
    Settimer 10

    Tandis que 1

        Waitinput
        Cas %Key=2:Pause
        Drawglscene()

    Endwhile

    Killtimer
    Fin

Ermittelt par Try & Error; qui genauen Zusammenhänge muss je aussi seulement encore aufdröseln

HTH
Pascal

Frank
Abbing

Prima, Pascal. Funktioniert genauso bien

.
Incidemment wird une Texture heller, si zusätzlich encore une helle la couleur (avec oGL-Color) gesetzt wird. Irgendwie beeinflussen sich qui verschiedenen Elemente plus que vermutet.