Zobrazit předchozí téma :: Zobrazit následující téma |
Autor |
Zpráva |
JC
Založen: 06. 10. 2007 Příspěvky: 137
|
|
Návrat nahoru |
|
 |
skála
Založen: 07. 07. 2014 Příspěvky: 22 Bydliště: Klatovy
|
Zaslal: 26. říjen 2014, 13:23:04 Předmět: |
|
|
Zdravim, udělal jsem program podle návodu a stejně mi to vykreslí akorát čtverec.
kód: |
program zkoseni;
{$I zglCustomConfig.cfg}
{$IFDEF WINDOWS}
{$R *.res}
{$ENDIF}
uses
{$IFDEF USE_ZENGL_STATIC}
zgl_main,
zgl_screen,
zgl_window,
zgl_timers,
zgl_keyboard,
zgl_camera_2d,
zgl_render_2d,
zgl_fx,
zgl_textures,
zgl_textures_png,
zgl_textures_jpg,
zgl_sprite_2d,
zgl_primitives_2d,
zgl_font,
zgl_text,
zgl_math_2d,
zgl_utils , sysutils, crt
{$ELSE}
zglHeader
{$ENDIF}
;
var
fntMain : zglPFont;
procedure Init;
begin
fntMain := font_LoadFromFile( 'P:\zenggl\zengl-src-0.3.12\zengl-src-0.3.12\bin\data\font.zfi' );
end;
procedure Draw;
begin
fx2d_SetVertexes( 0, -16, -10, -16, 0, 0, 0, 0 );
pr2d_Rect( 300, 300, 100, 100, $FFFFFF, 255, FX2D_VCHANGE );
end;
procedure Timer;
begin
if key_Press( K_ESCAPE ) Then begin zgl_Exit(); end;
end;
procedure Update( dt : Double );
begin
end;
Begin
{$IFNDEF USE_ZENGL_STATIC}
if not zglLoad( libZenGL ) Then exit;
{$ENDIF}
timer_Add( @Timer,18);
zgl_Reg( SYS_LOAD, @Init );
zgl_Reg( SYS_DRAW, @Draw );
zgl_Reg( SYS_UPDATE, @Update);
wnd_SetCaption( 'Zobrazeni' );
zgl_Enable( CORRECT_RESOLUTION );
wnd_ShowCursor( TRUE );
scr_CorrectResolution( zgl_Get( DESKTOP_WIDTH ), zgl_Get( DESKTOP_HEIGHT ));
scr_SetOptions(zgl_Get( DESKTOP_WIDTH ),zgl_Get( DESKTOP_HEIGHT ), REFRESH_MAXIMUM, TRUE, FALSE );
zgl_Init();
End. |
|
|
Návrat nahoru |
|
 |
skála
Založen: 07. 07. 2014 Příspěvky: 22 Bydliště: Klatovy
|
Zaslal: 27. říjen 2014, 17:26:55 Předmět: |
|
|
Vyřešeno, zkosení mi funguje u spritů, lichoběžník holt nepude. |
|
Návrat nahoru |
|
 |
skála
Založen: 07. 07. 2014 Příspěvky: 22 Bydliště: Klatovy
|
Zaslal: 17. listopad 2014, 10:38:04 Předmět: |
|
|
Nazdar, ještě by jsem měl jeden dotaz, jak udělám v zenu, aby měl obrázek průhledné pozadí. Pokud z internetu stáhnu nějaký obrázek jako png, tak se vykreslí bez pozadí, ale pokud ho vytvořím sám, například pomocí irfanview, tak se vždy vykreslí bílé pozadí. Když ten obrázek zobrazím v prohlížeči obrázků, tak je pozadí průhledné, tak nevím v čem dělám chybu. V uses unitu pro png mam. Ukazka kodu:
kód: |
procedure Init;
begin
fntMain := font_LoadFromFile( 'P:\zengl-src-0.3.12\bin\data\font.zfi' );
zam:= tex_LoadFromFile('P:\PRG\towerdefence\aaa.png');
end;
procedure Draw;
begin
ssprite2d_Draw(zam,0,0,100,100, 0,255 );
end; |
Díky za každou radu. |
|
Návrat nahoru |
|
 |
JC
Založen: 06. 10. 2007 Příspěvky: 137
|
Zaslal: 18. listopad 2014, 11:58:39 Předmět: |
|
|
Ahoj,
buť není nastavené transparentní pozadí a nebo obrázek ukládáš v nějakém "nestandardním" formátu (png má mnoho verzí)
zkus sem nahrát ten obrázek, uvidíme |
|
Návrat nahoru |
|
 |
skála
Založen: 07. 07. 2014 Příspěvky: 22 Bydliště: Klatovy
|
Zaslal: 18. listopad 2014, 17:10:39 Předmět: |
|
|
Jenom dotaz, jak mam nahrát obrázek z počítače. Zatim jsem našel jen jak sem dát odkaz na net. |
|
Návrat nahoru |
|
 |
Mem

Založen: 28. 07. 2007 Příspěvky: 1959 Bydliště: Olomouc
|
Zaslal: 18. listopad 2014, 18:20:31 Předmět: |
|
|
To jsi našel správně. Takže využij libovolnou službu pro nahrávání obrázků, třeba http://imgur.com/, a tady potom vlož odkaz na ten obrázek v img tagu |
|
Návrat nahoru |
|
 |
skála
Založen: 07. 07. 2014 Příspěvky: 22 Bydliště: Klatovy
|
|
Návrat nahoru |
|
 |
JC
Založen: 06. 10. 2007 Příspěvky: 137
|
Zaslal: 19. listopad 2014, 00:21:25 Předmět: |
|
|
U obrázku není nastavené transparentní pozadí, v ZenGL by to šlo případně vyřešit tak, že bys nastavil masku na bílou barvu, ale ten obrázek není dobře udělaný, jelikož tam jsou i odstíny šedé na okrajích šipky atd. Správně by to mělo být nějak takto - http://imgur.com/iRudd6J
viz.: https://www.youtube.com/watch?v=PLA2FaOXkkg |
|
Návrat nahoru |
|
 |
skála
Založen: 07. 07. 2014 Příspěvky: 22 Bydliště: Klatovy
|
Zaslal: 20. listopad 2014, 19:34:56 Předmět: |
|
|
Díky za radu, stáhnul jsem si GIMP a v něm to jde v pohodě. |
|
Návrat nahoru |
|
 |
skála
Založen: 07. 07. 2014 Příspěvky: 22 Bydliště: Klatovy
|
Zaslal: 30. listopad 2014, 20:23:52 Předmět: |
|
|
Zdravim, už jsem tady zase s dotazem. Jde v zengl zalamovat text, například bych chtěl psát do obdelníku. Díky |
|
Návrat nahoru |
|
 |
JC
Založen: 06. 10. 2007 Příspěvky: 137
|
Zaslal: 1. prosinec 2014, 19:17:31 Předmět: |
|
|
ano jde, koukni se na Demo06 |
|
Návrat nahoru |
|
 |
|