Beiträge von minx

**minx**

Die Farben der Überschriften auf jeden Fall eins dunkler, auf Echtfarben- bzw. Adobe RGB Monitoren sieht man fast nichts mehr. Die Kennzeichnung mit Farben sieht auch eher extrem unaufgeräumt auf. Wichtig ist doch eine sinnvolle (selbstgewählte) Unterteilung mit Überschriften in verschiedenen Größen und Breiten.

**minx**

Zitat von Andy

was ich als AutoIt-ler schmerzlich vermisse, sind "Einfachst"-Befehle, die 80% des (in so gut wie jedem existierenden GL-Programm) anfallenden identischen Codes mittels simpler Anweisungen kapseln.
Im Stile der "Extensions"

Da OpenGL eine Low-Level API ist, ist dies "von Haus aus" nicht nötig. Würde man es immer weiter abstrahieren, wäre man bei Irrlicht und Co. (nebenbei fehlt dann die Möglichkeit doch durch kleine Umordnungen noch Performanceschübe zu bekommen ).

**minx**

Meines Wissens nicht. Es scheint aber Eventartige Verknüpfungen zu geben. Da steht etwas dazu in Verbindung mit glade/GTk

**minx**

Please speak english. Google Translate texts are just greek to us.

**minx**

Bei den wichtigen Beispielen kann man die FPS selbst einstellen. Allgemein wird die Performance ja durch das Anzeigen der FPS gemindert

**minx**

Mit Freebasic (PNG per GDI+ in GUI) Quelle

Spoiler anzeigen

C

'mit fbc -s gui kompiliert wird kein Konsolefenster erzeugt
#include Once "windows.bi"
#Include Once "win/GdiPlus.bi"
Using Gdiplus


Function WindowProc( Byval hWnd As HWND, Byval uMsg As uint,_
  Byval wParam As WPARAM, Byval lParam As LPARAM ) As LRESULT


  Static As GdiplusStartupInput gdipsi
  Static As ULONG_PTR gdipToken
  Static As GpGraphics Ptr pGraphics
  Static As GpImage Ptr pImage1
  Static rc As RECT
  Dim As PAINTSTRUCT ps


  Select Case uMsg


    Case WM_CREATE
      gdipsi.GdiplusVersion = 1
      GdiplusStartup( @gdipToken, @gdipsi, null )
      GdipLoadImageFromFile( WStr("Osci.png"), @pImage1)
      'siehe GdiplusImaging.bi
      GdipImageRotateFlip( pImage1, RotateNoneFlipX ) 'vertikal gespiegelt
      GetClientRect( hWnd, @rc )


    Case WM_PAINT
      BeginPaint( hWnd, @ps )


      GdipCreateFromHDC(ps.hdc, @pGraphics)
      GdipDrawImageRect(pGraphics, pImage1, rc.left, rc.top, rc.right, rc.bottom )
      'oder
      'GdipDrawImageRect(pGraphics, pImage1, 0, 0, 640, 480 )
      GdipDeleteGraphics(pGraphics)


      EndPaint( hWnd, @ps )


    Case WM_CLOSE
      DestroyWindow( hWnd )


    Case WM_DESTROY
      GdipDisposeImage( pImage1 )
      GdiplusShutdown( gdipToken )
      PostQuitMessage( null )


    Case Else
      Return DefWindowProc( hWnd, uMsg, wParam, lParam )


  End Select


  Return 0


End Function


'Start Main


Dim hWnd As HWND
Dim wMsg As MSG
Dim As Integer wx, wy, nWidth, nHeight
Dim wcx As WNDCLASSEX
Dim className As String = "test_png"


With wcx
  .cbSize = sizeof( WNDCLASSEX )
  .style = CS_HREDRAW Or CS_VREDRAW Or CS_BYTEALIGNWINDOW
  .lpfnWndProc = cast( WNDPROC, @WindowProc )
  .cbClsExtra = null
  .cbWndExtra = null
  .hInstance = GetModuleHandle( null )
  .hbrBackground = GetStockObject( BLACK_BRUSH )
  .lpszMenuName = null
  .lpszClassName = Strptr( className )
  .hIcon = LoadIcon( null, IDI_APPLICATION )
  .hCursor = LoadCursor ( null, IDC_ARROW )
  .hIconSm = 0
End With


RegisterClassEx( @wcx )


nWidth = 650
nHeight = 510
wx = (GetSystemMetrics( SM_CXSCREEN ) / 2) - nWidth / 2
wy = (GetSystemMetrics( SM_CYSCREEN ) / 2) - nHeight / 2


hWnd = CreateWindowEx( WS_EX_OVERLAPPEDWINDOW,_
Strptr( className ), "GDI+ Draw PNG Test",_
WS_OVERLAPPED Or WS_SYSMENU,_
wx, wy, nWidth, nHeight,_
null, null, GetModuleHandle( null ), null )


ShowWindow( hWnd, SW_SHOWNORMAL )
UpdateWindow( hWnd )


Do Until( GetMessage( @wMsg, null, 0, 0 ) = 0 )
  TranslateMessage( @wMsg )
  DispatchMessage( @wMsg )

Alles anzeigen

Geht als Anregung durch ^^. Für GUIs allgemein siehe hier

**minx**

Direkt-Download hinzugefügt.

**minx**

ogl4au3

v 2.0 Alpha
Willkommen zur 2. großen OpenGl-UDF für AutoIt3.
Die UDF findet sich im Ordner Includes und heißt opengl.au3. Diese UDF inkludiert automatisch alle
anderen UDFs die für die Funktionalität von ogl4au3 verantwortlich sind. Sie muss als einziges
inkludiert werden.
Im Ordner Media finden sich alle Dateien, die in den Beispielen gebraucht werden. Die Beispiele
sind im Ordner Examples mit Nummern angeführt, die ihe Komplexität symbolisiert.
Werte, die ihr selbst einstellen dürft sind mit ; Public gekennzeichnet!

Inbetriebnahme
Um die UDF zu nutzen, muss opengl.au3 inkludiert werden. Alle anderen Includes müssen sich
im selben Ordner wie opengl.au3 aufhalten. Alle DLLs müssen ebenfalls im SkriptDir liegen, das heißt
alle DLLs, die sich auch im Examples Ordner finden (!).

Hilfe
Die "Hilfe" findet sich im Ordner Doc. Der gewünschte Artikel lässt sich per Windows-Dateisuche finden

Bugs

Hilfe ist unvollständig, nicht übersetzt und nicht ausgefüllt
Beispiele sind nicht ganz optimal geschrieben / aufgeräumt
UDFs sind weder aufgeräumt noch konform noch irgendwie sonst ordentlich
Hier und da noch ein Bug...

Download
Der Download kann über wpt-get erfolgen (Dateigröße, und es ist für mich einfacher zu verwalten!):

Code

wpt-get install ogl4au3-2.0

Download-Direktlink

mfG

**minx**

Wurde die WinAPI unter Win8 nicht teilweise eingestellt?

**minx**

So viel Fuzz um ein so kleines Skript :D. Aber schön, dass es jetzt funktioniert

**minx**

Das ist ne Möglichkeit ^^. In einer VBox läufts mit ~60FPS so. Kein Unterschied zu der optimierten Variante bei mir - logisch. Ich kann es nicht testen, da ich gerade keinen nativen PC habe

**minx**

Also meine Spezigikationen nochmal deutlicher:

MacBook mit i5 und Windows 7 in einer VBox. In der VBox läuft es wirklich rasend schnell

**minx**

Wow, das trifft sich ja famos! Das ist mein stolzer 500. Beitrag in diesem Forum.

**minx**

Bei mir 1440x9xx. Wüsste aber nicht, woher der Geschwindigkeitsverlust kommen sollte. Weder am Random (lol) noch am Blt kanns liegen...

**minx**

Hm. Bei mir (i5) läuft es so schnell, dass man nach kurzer Zeit nichts mehr von Ursprung erkennen kann

**minx**

Jetzt gibt es von mir 22 Effekte die den Desktop verformen, wie schmelzen, fließen, wehen...
Je nach Bedarf kann man nun auch Andys Modus einschalten, wenn es nicht richtig läuft. Eigene Effekte hinzuzufügen dürfte relativ leicht sein!

Spoiler anzeigen

[autoit]

#include <ScreenCapture.au3>