XProfan

Español

Yo verstehe ogl imprimir y ogl locate no! Como lo para mich aussieht funktioniert beides en me irgendwie no correcto.
Kompilieren Marca Separación

 {$cleq}
include oglhelper.inc
cls
ogl("init",hwnd,0,0,0,0)
ogl("clear")
var oglFnt&:=ogl.createfont("courier new",20,true)
ogl("print",oglfnt&,"hallo welt")
ogl("print",oglfnt&,"hallo welten")
ogl("show")
waitkey
end

proc ogl.createfont

    parameters fontName$,size&,big%
    var fnt&:=create("font",fontName$,size&,0,big%,0,0)
    var oglfnt&:=ogl("BitmapFont",fnt&)
    deleteobject fnt&
    return oglfnt&

ENDPROC

a) ¿Por qué se hallo welten (sólo en me?!) no adecuado?
b) ¿Por qué, cuándo debo el Prints una ogl locate escribir, se (sólo en me?!) garkein Texto adecuado?
c) en el Hilft es por desgracia, no beschrieben como Parámetro para ogl locate a interpretar son.

Kann me alguien helfen? En el 3D-Fonts hingegen funktioniert alles ya que se.

<offtopic>
Der original-Xpse Source:
Kompilieren Marca Separación

!{$cleq}
//include oglhelper.inc
cls
ogl("init",hwnd,0,0,0,0)
ogl("clear")
long oglFnt:=ogl.createfont("courier new",20,true)
ogl("print",oglfnt,"hallo welt")
ogl("print",oglfnt,"hallo welten")
ogl("show")
waitkey
end

ogl.createfont (cadena fontName,long size,bool big) {

    long fnt:=create("font",fontName,size,0,big,0,0)
    long oglfnt:=ogl("BitmapFont",fnt)
    deleteobject fnt
    volver oglfnt

}

</offtopic>

14.01.2007 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Jörg
Sellmeyer

Was se uno esta porque ahora testen? XPSE oder el código? XPSE Yo no y el código sólo umschreiben, así él se ejecuta es doch no Sinn el Sache, oder?

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

14.01.2007 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Lo son no Code umzuschreiben - lo va auch no en XPSE. Lo va en el o.G. Code - el es reines XProfan. Das Problema es beschrieben - verstehe no worum lo Usted va?!

Yo schrieb el ogl imprimir y locate me Problemas bereitet. xpse braucht niemand para mich testen.

14.01.2007 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Ohne umschreiben gibts sólo Fehler

Kompilieren Marca Separación

cls
ogl("init",%hwnd,0,0,0,0)
ogl("clear")
var oglFnt&=ogl.createfont("courier new",20,1)
ogl("print",oglfnt&,"hallo welt")
ogl("print",oglfnt&,"hallo welten")
ogl("show")
waitkey
end

proc ogl.createfont

    parameters fontName$,size&,big%
    var fnt&=create("font",fontName$,size&,0,big%,0,0)
    var oglfnt&=ogl("BitmapFont",fnt&)
    deleteobject fnt&
    return oglfnt&

15.01.2007 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

RGH

[quote:c4654f04d2=iF]Lo va en el o.G. Code - el es reines XProfan[/quote:c4654f04d2]
Leider eben no, qué dazu führt, daß alguien sin XPSE el código sin Los cambios no uso kann!

Saludo
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

15.01.2007 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Stimmt - Yo := vergessen a sustituir!

Der Code funzt trotzdem no como a esperar?
Kompilieren Marca Separación

cls
ogl("init",%hwnd,0,0,0,0)
ogl("clear")
var oglFnt&=ogl.createfont("courier new",20,1)
ogl("print",oglfnt&,"hallo welt")
ogl("print",oglfnt&,"hallo welten")
ogl("show")
waitkey
end

proc ogl.createfont

    parameters fontName$,size&,big%
    var fnt&=create("font",fontName$,size&,0,big%,0,0)
    var oglfnt&=ogl("BitmapFont",fnt&)
    deleteobject fnt&
    return oglfnt&

15.01.2007 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

RGH

¡Hola David,
Su Code kann no trabajo (zumindest no correcto), y zwar de zwei Gründen:

1. Lo fehlt el Origin-Befehl. En Mapa de bits-Fonts hay no räumliche Tiefe, d.h. ellos voluntad en el Z-Achse a Position 0 suscrito. Um algo a Position 0 a sehen, muß el Betrachter una Schritt zurückgehen, o. el a betrachtende Gegenstand zurück en el Raum geschoben voluntad.

2. Lo fehlt el Localizar-Befehl. Ohne Localizar-Befehl Es el Darstellungsposition para el Imprimir-Befehl (wohlgemerkt, lo va hier sólo en OGL) unbestimmt. El Koordinaten des Localizar-Befehles entsprechen el üblichen X- y Y-Koordinaten en OpenGL, d.h. 0,0 es exakt en el Mitte y wo genau en el Bildschirm 1,1 es hängt de el Größe des Z-Wertes en el Origin-Befehl de.

Se puede se el also así vorstellen, daß en el con Z eingestellten Entfernung, also al Ursprungspunkt el OGL-Welt, una 2D-Fläche es, en el geschrieben se. Vor cada Carta con Imprimir muß el Schreibposition eingestellt voluntad. (Gleiches gilt para el Darstellung de 2D-Bitmaps.)

So funktioniert Su Ejemplo:
Kompilieren Marca Separación

cls
ogl("init",%hwnd,0,0,0,0)
ogl("clear")
oGL("Origin", 0, 0, -6)
var oglFnt&=ogl.createfont("courier new",20,1)
ogl("locate", 0, 0)
ogl("print",oglfnt&,"+ (0,0)")
ogl("locate", 1, 1)
ogl("print",oglfnt&,"+ (1,1)")
ogl("locate", -1, 1)
ogl("print",oglfnt&,"+ (-1,1)")
ogl("locate", 1, -1)
ogl("print",oglfnt&,"+ (1,-1)")
ogl("locate", -1, -1)
ogl("print",oglfnt&,"+ (-1,-1)")
ogl("locate", 2, 2)
ogl("print",oglfnt&,"+ (2,2)")
ogl("locate", -2, 2)
ogl("print",oglfnt&,"+ (-2,2)")
ogl("locate", 2, -2)
ogl("print",oglfnt&,"+ (2,-2)")
ogl("locate", -2, -2)
ogl("print",oglfnt&,"+ (-2,-2)")
ogl("show")
waitkey
end

proc ogl.createfont

    parameters fontName$,size&,big%
    var fnt&=create("font",fontName$,size&,0,big%,0,0)
    var oglfnt&=ogl("BitmapFont",fnt&)
    deleteobject fnt&
    return oglfnt&

ENDPROC