roglew 0.2.7 → 0.4.1

data/lib/roglew/platform/linux.rb

@@ -1,3 +1,3 @@
-%w'glx
-   render_context
-'.each { |f| require "roglew/platform/linux/#{f}" }
+%w'glx
+   render_handle
+'.each { |f| require_relative "linux/#{f}" }

data/lib/roglew/platform/linux/glx.rb

@@ -93,8 +93,7 @@ module Roglew
       [ :WaitX, [], :void ]
     ].each do |args|
       args[1, 0] = "glX#{args[0]}"
-      func = attach_function *args
-      RenderContext.send(:define_method, args[1]) { |*parms| func.call(*parms) }
+      RenderHandle.send(:def_function, args[1], attach_function(*args))
     end
 
     def delete_context(dpy, ctx)

data/lib/roglew/platform/linux/{render_context.rb → render_handle.rb}

@@ -1,6 +1,5 @@
 module Roglew
-  class RenderContext
-    #if version not passed, builds context with latest version
+  class RenderHandle
     def initialize(display, screen, window, version = nil)
       @display, @screen, @window = display, screen, window
       @loaded_extensions = Set.new
@@ -9,15 +8,16 @@ module Roglew
 
       attrList = FFI::MemoryPointer.new(:int, 11)
       attrList.write_array_of_int([
-                                    Roglew::GLX::RGBA,       Roglew::GLX::DOUBLEBUFFER,
-                                    Roglew::GLX::RED_SIZE,   4,
-                                    Roglew::GLX::GREEN_SIZE, 4,
-                                    Roglew::GLX::BLUE_SIZE,  4,
-                                    Roglew::GLX::DEPTH_SIZE, 16
-                                  ])
-      @visual = glXChooseVisual(@display, screen, attrList)
-      @context = glXCreateContext(@display, @visual, nil, true)
+        GLX::RGBA,       GLX::DOUBLEBUFFER,
+        GLX::RED_SIZE,   4,
+        GLX::GREEN_SIZE, 4,
+        GLX::BLUE_SIZE,  4,
+        GLX::DEPTH_SIZE, 16
+      ])
+      @visual = GLX.ChooseVisual(@display, screen, attrList)
+      @context = GLX.CreateContext(@display, @visual, nil, true)
 
+      old_context = nil
 
       bind do
         #check version
@@ -32,9 +32,29 @@ module Roglew
         extension_list(:gl, :platform).each { |ext| load_extension(ext) }
       end
 
+      GLX.delete_context(display, old_context) if old_context
+
       self.class.finalize(self, @display, @context)
     end
 
+    private #-------------------------------------------------------------------------
+
+    def extension_list_glx
+      major, minor = FFI::MemoryPointer.new(:int), FFI::MemoryPointer.new(:int)
+      GLX.QueryVersion(@display, major, minor)
+      version = major.read_int, minor.read_int
+      LOGGER.info "GLX Version #{version.join('.')}"
+
+      list = Dir["#{File.expand_path('../../../extensions', __FILE__)}/GLX_VERSION_*.rb"].
+          map! { |f| File.basename(f, '.rb') }
+      list.select! { |f| (f.gsub('GLX_VERSION_', '').split('_', 2).map!(&:to_i) <=> version) <= 0 }
+      list
+    end
+
+    def extension_list_platform
+      (respond_to?(:glXQueryExtensionsString) ? glXQueryExtensionsString(@display, @screen) : '').split.map!(&:to_sym)
+    end
+
     def get_proc_address(name)
       func = begin
         GLX.attach_function :glXGetProcAddress, [:string], :pointer
@@ -45,17 +65,18 @@ module Roglew
       send(:get_proc_address, name)
     end
 
-    def swap_buffers
-      #TODO
-      raise NotImplementedError
+    def make_current
+      GLX.MakeCurrent(@display, @window, @context)
     end
 
-    def unbind
-      glXMakeCurrent(@display, 0, nil)
+    def remove_current
+      GLX.MakeCurrent(@display, 0, nil)
     end
 
-    #------
-    private
+    def swap_buffers
+      #TODO
+      raise NotImplementedError
+    end
 
     def upgrade_context
       load_extension :GLX_ARB_create_context
@@ -70,25 +91,5 @@ module Roglew
       ptr_attribs.write_array_of_int(attribs)
       glXCreateContextAttribsARB(@context, nil, ptr_attribs)
     end
-
-    def extension_list_glx
-      major, minor = FFI::MemoryPointer.new(:int), FFI::MemoryPointer.new(:int)
-      glXQueryVersion(@display, major, minor)
-      version = major.read_int, minor.read_int
-      puts "GLX Version #{version.join('.')}"
-
-      list = Dir["#{File.expand_path('../../../extensions', __FILE__)}/GLX_VERSION_*.rb"].
-             map! { |f| File.basename(f, '.rb') }
-      list.select! { |f| (f.gsub('GLX_VERSION_', '').split('_', 2).map!(&:to_i) <=> version) <= 0 }
-      list
-    end
-
-    def extension_list_platform
-      (respond_to?(:glXQueryExtensionsString) ? glXQueryExtensionsString(@display, @screen) : '').split.map!(&:to_sym)
-    end
-
-    def make_current
-      glXMakeCurrent(@display, @window, @context)
-    end
   end
 end

data/lib/roglew/platform/windows.rb

@@ -1,5 +1,5 @@
-%w'kernel32
-   gdi32
-   wgl
-   render_context
-'.each { |f| require "roglew/platform/windows/#{f}" }
+%w'kernel32
+   gdi32
+   wgl
+   render_handle
+'.each { |f| require_relative "windows/#{f}" }

data/lib/roglew/platform/windows/gdi32.rb

@@ -1,242 +1,242 @@
-module Roglew
-	module Gdi32
-		extend FFI::Library
-		ffi_lib 'gdi32'
-		ffi_convention :stdcall
-
-		LOGPIXELSX = 88
-		LOGPIXELSY = 90
-    ENCODING = 'W' #A or W
-
-		FONT_CHARSETS = {
-			:ANSI        => 0,
-			:DEFAULT     => 1,
-			:SYMBOL      => 2,
-			:MAC         => 77,
-			:SHIFTJIS    => 128,
-			:HANGUL      => 129,
-			:JOHAB       => 130,
-			:GB2312      => 134,
-			:CHINESEBIG5 => 136,
-			:GREEK       => 161,
-			:TURKISH     => 162,
-			:VIETNAMESE  => 163,
-			:HEBREW      => 177,
-			:ARABIC      => 178,
-			:BALTIC      => 186,
-			:RUSSIAN     => 204,
-			:THAI        => 222,
-			:EASTEUROPE  => 238,
-			:OEM         => 255,
-		}
-
-		FONT_CLIP_PRECISION = {
-			:DEFAULT_PRECIS   => 0x00,
-			:CHARACTER_PRECIS => 0x01,
-			:STROKE_PRECIS    => 0x02,
-			:LH_ANGLES        => 0x10,
-			:TT_ALWAYS        => 0x20,
-			:DFA_DISABLE      => 0x40,
-			:EMBEDDED         => 0x80,
-			:MASK             => 0x0f,
-		}
-
-		FONT_FAMILY_PITCH = {
-			:DEFAULT_PITCH     => 0x00,
-			:FIXED_PITCH       => 0x01,
-			:VARIABLE_PITCH    => 0x02,
-			:FAMILY_DONTCARE   => 0x00,
-			:FAMILY_ROMAN      => 0x10,
-			:FAMILY_SWISS      => 0x20,
-			:FAMILY_MODERN     => 0x30,
-			:FAMILY_SCRIPT     => 0x40,
-			:FAMILY_DECORATIVE => 0x50,
-		}
-
-		FONT_OUTPUT_PRECISION = {
-			:DEFAULT        => 0,
-			:STRING         => 1,
-			:CHARACTER      => 2,
-			:STROKE         => 3,
-			:TT             => 4,
-			:DEVICE         => 5,
-			:RASTER         => 6,
-			:TT_ONLY        => 7,
-			:OUTLINE        => 8,
-			:SCREEN_OUTLINE => 9,
-			:PS_ONLY        => 10,
-		}
-
-		FONT_QUALITY = {
-			:DEFAULT        => 0,
-			:DRAFT          => 1,
-			:PROOF          => 2,
-			:NONANTIALIASED => 3,
-			:ANTIALIASED    => 4,
-			:CLEARTYPE      => 5,
-		}
-
-		FONT_WEIGHTS = {
-			:DONTCARE   => 0,
-			:THIN       => 100,
-			:EXTRALIGHT => 200,
-			:LIGHT      => 300,
-			:NORMAL     => 400,
-			:MEDIUM     => 500,
-			:SEMIBOLD   => 600,
-			:BOLD       => 700,
-			:EXTRABOLD  => 800,
-			:HEAVY      => 900,
-		}
-
-		PFDFlags = enum :pfd_flags, [
-			:DOUBLEBUFFER,          0x0001,
-			:STEREO,                0x0002,
-			:DRAW_TO_WINDOW,        0x0004,
-			:DRAW_TO_BITMAP,        0x0008,
-			:SUPPORT_GDI,           0x0010,
-			:SUPPORT_OPENGL,        0x0020,
-			:GENERIC_FORMAT,        0x0040,
-			:NEED_PALETTE,          0x0080,
-			:NEED_SYSTEM_PALETTE,   0x0100,
-			:SWAP_EXCHANGE,         0x0200,
-			:SWAP_COPY,             0x0400,
-			:SWAP_LAYER_BUFFERS,    0x0800,
-			:GENERIC_ACCELERATED,   0x1000,
-			:SUPPORT_DIRECTDRAW,    0x2000,
-			:DIRECT3D_ACCELERATED,  0x4000,
-			:SUPPORT_COMPOSITION,   0x8000,
-			:DEPTH_DONTCARE,        0x20000000,
-			:DOUBLEBUFFER_DONTCARE, 0x40000000,
-			:STEREO_DONTCARE,       0x80000000
-		]
-
-		PFD_TYPE = enum :pfd_type, [:RGBA, :COLORINDEX]
-
-		PFD_LAYER_TYPE = enum :pfd_layer_type, [:MAIN_PLANE, :OVERLAY_PLANE, :UNDERLAY_PLANE, -1]
-
-		class PIXELFORMATDESCRIPTOR < FFI::Struct
-			FLAGS_INV = PFDFlags.to_hash.reduce(Hash.new{ |h,k| h[k] = [] }){ |h,(k,v)| h[v] << k; h }.freeze
-
-			layout :nSize,           :uint16,
-				     :nVersion,        :uint16,
-				     :dwFlags,         :uint,
-				     :iPixelType,      :uint8,
-				     :cColorBits,      :uint8,
-				     :cRedBits,        :uint8,
-				     :cRedShift,       :uint8,
-				     :cGreenBits,      :uint8,
-				     :cGreenShift,     :uint8,
-				     :cBlueBits,       :uint8,
-				     :cBlueShift,      :uint8,
-				     :cAlphaBits,      :uint8,
-				     :cAlphaShift,     :uint8,
-				     :cAccumBits,      :uint8,
-				     :cAccumRedBits,   :uint8,
-				     :cAccumGreenBits, :uint8,
-				     :cAccumBlueBits,  :uint8,
-				     :cAccumAlphaBits, :uint8,
-				     :cDepthBits,      :uint8,
-				     :cStencilBits,    :uint8,
-				     :cAuxBuffers,     :uint8,
-				     :iLayerType,      :uint8,
-				     :bReserved,       :uint8,
-				     :dwLayerMask,     :uint,
-				     :dwVisibleMask,   :uint,
-				     :dwDamageMask,    :uint
-
-			#undef_method :nSize=
-
-			def initialize
-				super
-				self[:nSize] = self.size
-			end
-
-			def dwFlags
-				val = self[:dwFlags]
-				Set.new(FLAGS_INV.select { |k,_| val & k != 0 }.reduce([]) {|a,(_,v)| a << v}.flatten)
-			end
-
-			def dwFlags=(flags)
-				self[:dwFlags] = [*flags].reduce(0) {|a,f| a | PFDFlags[f].to_i}
-			end
-
-			def to_s
-				[:iPixelType, :cColorBits, :cAccumBits, :cDepthBits, :iLayerType, :dwFlags].map{|n| "#{n} = #{send(n).inspect}"}.join(', ')
-			end
-		end
-
-		#int ChoosePixelFormat(
-		#  HDC hdc,
-		#  const PIXELFORMATDESCRIPTOR *ppfd)
-		attach_function :ChoosePixelFormat, [:pointer, :pointer], :int
-
-		#HFONT CreateFont(
-		#  __in  int nHeight,
-		#  __in  int nWidth,
-		#  __in  int nEscapement,
-		#  __in  int nOrientation,
-		#  __in  int fnWeight,
-		#  __in  DWORD fdwItalic,
-		#  __in  DWORD fdwUnderline,
-		#  __in  DWORD fdwStrikeOut,
-		#  __in  DWORD fdwCharSet,
-		#  __in  DWORD fdwOutputPrecision,
-		#  __in  DWORD fdwClipPrecision,
-		#  __in  DWORD fdwQuality,
-		#  __in  DWORD fdwPitchAndFamily,
-		#  __in  LPCTSTR lpszFace)
-		attach_function :CreateFont, "CreateFont#{ENCODING}", [
-				:int, #nHeight
-				:int, #nWidth
-				:int, #nEscapement
-				:int, #nOrientation
-				:int, #fnWeight (Gdi32::FONT_WEIGHTS or number between 0 and 1000)
-				:uint, #fdwItalic
-				:uint, #fdwUnderline
-				:uint, #fdwStrikeOut
-				:uint, #fdwCharSet (use Gdi32::FONT_CHARSETS)
-				:uint, #fdwOutputPrecision (use Gdi32::FONT_OUTPUT_PRECISION)
-				:uint, #fdwClipPrecision (use Gdi32::FONT_CLIP_PRECISION)
-				:uint, #fdwQuality (use Gdi32::FONT_QUALITY)
-				:uint, #fdwPitchAndFamily (use Gdi32::FONT_FAMILY_PITCH)
-				:string #lpszFace
-			], :pointer
-
-		#BOOL DeleteObject(
-		#  __in  HGDIOBJ hObject)
-		attach_function :DeleteObject, [:pointer], :bool
-
-		#int DescribePixelFormat(
-		#  HDC hdc,
-		#  int iPixelFormat,
-		#  UINT nBytes,
-		#  LPPIXELFORMATDESCRIPTOR ppfd)
-		attach_function :DescribePixelFormat, [:pointer, :int, :uint, :pointer], :int
-
-		#int GetDeviceCaps(
-		#  __in  HDC hdc,
-		#  __in  int nIndex)
-		attach_function :GetDeviceCaps, [:pointer, :int], :int
-
-    #int GetPixelFormat(
-    #  HDC hdc
-    #);
-    attach_function :GetPixelFormat, [:pointer], :int
-
-		#HGDIOBJ SelectObject(
-		#  __in  HDC hdc,
-		#  __in  HGDIOBJ hgdiobj)
-		attach_function :SelectObject, [:pointer, :pointer], :pointer
-
-		#BOOL SetPixelFormat(
-		#  HDC hdc,
-		#  int iPixelFormat,
-		#  const PIXELFORMATDESCRIPTOR *ppfd)
-		attach_function :SetPixelFormat, [:pointer, :int, :pointer], :bool
-
-		#BOOL SwapBuffers(
-		#  HDC hdc)
-		attach_function :SwapBuffers, [:pointer], :bool
-	end
+module Roglew
+	module Gdi32
+		extend FFI::Library
+		ffi_lib 'gdi32'
+		ffi_convention :stdcall
+
+		LOGPIXELSX = 88
+		LOGPIXELSY = 90
+    ENCODING = 'W' #A or W
+
+		FONT_CHARSETS = {
+			:ANSI        => 0,
+			:DEFAULT     => 1,
+			:SYMBOL      => 2,
+			:MAC         => 77,
+			:SHIFTJIS    => 128,
+			:HANGUL      => 129,
+			:JOHAB       => 130,
+			:GB2312      => 134,
+			:CHINESEBIG5 => 136,
+			:GREEK       => 161,
+			:TURKISH     => 162,
+			:VIETNAMESE  => 163,
+			:HEBREW      => 177,
+			:ARABIC      => 178,
+			:BALTIC      => 186,
+			:RUSSIAN     => 204,
+			:THAI        => 222,
+			:EASTEUROPE  => 238,
+			:OEM         => 255,
+		}
+
+		FONT_CLIP_PRECISION = {
+			:DEFAULT_PRECIS   => 0x00,
+			:CHARACTER_PRECIS => 0x01,
+			:STROKE_PRECIS    => 0x02,
+			:LH_ANGLES        => 0x10,
+			:TT_ALWAYS        => 0x20,
+			:DFA_DISABLE      => 0x40,
+			:EMBEDDED         => 0x80,
+			:MASK             => 0x0f,
+		}
+
+		FONT_FAMILY_PITCH = {
+			:DEFAULT_PITCH     => 0x00,
+			:FIXED_PITCH       => 0x01,
+			:VARIABLE_PITCH    => 0x02,
+			:FAMILY_DONTCARE   => 0x00,
+			:FAMILY_ROMAN      => 0x10,
+			:FAMILY_SWISS      => 0x20,
+			:FAMILY_MODERN     => 0x30,
+			:FAMILY_SCRIPT     => 0x40,
+			:FAMILY_DECORATIVE => 0x50,
+		}
+
+		FONT_OUTPUT_PRECISION = {
+			:DEFAULT        => 0,
+			:STRING         => 1,
+			:CHARACTER      => 2,
+			:STROKE         => 3,
+			:TT             => 4,
+			:DEVICE         => 5,
+			:RASTER         => 6,
+			:TT_ONLY        => 7,
+			:OUTLINE        => 8,
+			:SCREEN_OUTLINE => 9,
+			:PS_ONLY        => 10,
+		}
+
+		FONT_QUALITY = {
+			:DEFAULT        => 0,
+			:DRAFT          => 1,
+			:PROOF          => 2,
+			:NONANTIALIASED => 3,
+			:ANTIALIASED    => 4,
+			:CLEARTYPE      => 5,
+		}
+
+		FONT_WEIGHTS = {
+			:DONTCARE   => 0,
+			:THIN       => 100,
+			:EXTRALIGHT => 200,
+			:LIGHT      => 300,
+			:NORMAL     => 400,
+			:MEDIUM     => 500,
+			:SEMIBOLD   => 600,
+			:BOLD       => 700,
+			:EXTRABOLD  => 800,
+			:HEAVY      => 900,
+		}
+
+		PFDFlags = enum :pfd_flags, [
+			:DOUBLEBUFFER,          0x0001,
+			:STEREO,                0x0002,
+			:DRAW_TO_WINDOW,        0x0004,
+			:DRAW_TO_BITMAP,        0x0008,
+			:SUPPORT_GDI,           0x0010,
+			:SUPPORT_OPENGL,        0x0020,
+			:GENERIC_FORMAT,        0x0040,
+			:NEED_PALETTE,          0x0080,
+			:NEED_SYSTEM_PALETTE,   0x0100,
+			:SWAP_EXCHANGE,         0x0200,
+			:SWAP_COPY,             0x0400,
+			:SWAP_LAYER_BUFFERS,    0x0800,
+			:GENERIC_ACCELERATED,   0x1000,
+			:SUPPORT_DIRECTDRAW,    0x2000,
+			:DIRECT3D_ACCELERATED,  0x4000,
+			:SUPPORT_COMPOSITION,   0x8000,
+			:DEPTH_DONTCARE,        0x20000000,
+			:DOUBLEBUFFER_DONTCARE, 0x40000000,
+			:STEREO_DONTCARE,       0x80000000
+		]
+
+		PFD_TYPE = enum :pfd_type, [:RGBA, :COLORINDEX]
+
+		PFD_LAYER_TYPE = enum :pfd_layer_type, [:MAIN_PLANE, :OVERLAY_PLANE, :UNDERLAY_PLANE, -1]
+
+		class PIXELFORMATDESCRIPTOR < FFI::Struct
+			FLAGS_INV = PFDFlags.to_hash.reduce(Hash.new{ |h,k| h[k] = [] }){ |h,(k,v)| h[v] << k; h }.freeze
+
+			layout :nSize,           :uint16,
+				     :nVersion,        :uint16,
+				     :dwFlags,         :uint,
+				     :iPixelType,      :uint8,
+				     :cColorBits,      :uint8,
+				     :cRedBits,        :uint8,
+				     :cRedShift,       :uint8,
+				     :cGreenBits,      :uint8,
+				     :cGreenShift,     :uint8,
+				     :cBlueBits,       :uint8,
+				     :cBlueShift,      :uint8,
+				     :cAlphaBits,      :uint8,
+				     :cAlphaShift,     :uint8,
+				     :cAccumBits,      :uint8,
+				     :cAccumRedBits,   :uint8,
+				     :cAccumGreenBits, :uint8,
+				     :cAccumBlueBits,  :uint8,
+				     :cAccumAlphaBits, :uint8,
+				     :cDepthBits,      :uint8,
+				     :cStencilBits,    :uint8,
+				     :cAuxBuffers,     :uint8,
+				     :iLayerType,      :uint8,
+				     :bReserved,       :uint8,
+				     :dwLayerMask,     :uint,
+				     :dwVisibleMask,   :uint,
+				     :dwDamageMask,    :uint
+
+			#undef_method :nSize=
+
+			def initialize
+				super
+				self[:nSize] = self.size
+			end
+
+			def dwFlags
+				val = self[:dwFlags]
+				Set.new(FLAGS_INV.select { |k,_| val & k != 0 }.reduce([]) {|a,(_,v)| a << v}.flatten)
+			end
+
+			def dwFlags=(flags)
+				self[:dwFlags] = [*flags].reduce(0) {|a,f| a | PFDFlags[f].to_i}
+			end
+
+			def to_s
+				[:iPixelType, :cColorBits, :cAccumBits, :cDepthBits, :iLayerType, :dwFlags].map{|n| "#{n} = #{send(n).inspect}"}.join(', ')
+			end
+		end
+
+		#int ChoosePixelFormat(
+		#  HDC hdc,
+		#  const PIXELFORMATDESCRIPTOR *ppfd)
+		attach_function :ChoosePixelFormat, [:pointer, :pointer], :int
+
+		#HFONT CreateFont(
+		#  __in  int nHeight,
+		#  __in  int nWidth,
+		#  __in  int nEscapement,
+		#  __in  int nOrientation,
+		#  __in  int fnWeight,
+		#  __in  DWORD fdwItalic,
+		#  __in  DWORD fdwUnderline,
+		#  __in  DWORD fdwStrikeOut,
+		#  __in  DWORD fdwCharSet,
+		#  __in  DWORD fdwOutputPrecision,
+		#  __in  DWORD fdwClipPrecision,
+		#  __in  DWORD fdwQuality,
+		#  __in  DWORD fdwPitchAndFamily,
+		#  __in  LPCTSTR lpszFace)
+		attach_function :CreateFont, "CreateFont#{ENCODING}", [
+				:int, #nHeight
+				:int, #nWidth
+				:int, #nEscapement
+				:int, #nOrientation
+				:int, #fnWeight (Gdi32::FONT_WEIGHTS or number between 0 and 1000)
+				:uint, #fdwItalic
+				:uint, #fdwUnderline
+				:uint, #fdwStrikeOut
+				:uint, #fdwCharSet (use Gdi32::FONT_CHARSETS)
+				:uint, #fdwOutputPrecision (use Gdi32::FONT_OUTPUT_PRECISION)
+				:uint, #fdwClipPrecision (use Gdi32::FONT_CLIP_PRECISION)
+				:uint, #fdwQuality (use Gdi32::FONT_QUALITY)
+				:uint, #fdwPitchAndFamily (use Gdi32::FONT_FAMILY_PITCH)
+				:string #lpszFace
+			], :pointer
+
+		#BOOL DeleteObject(
+		#  __in  HGDIOBJ hObject)
+		attach_function :DeleteObject, [:pointer], :bool
+
+		#int DescribePixelFormat(
+		#  HDC hdc,
+		#  int iPixelFormat,
+		#  UINT nBytes,
+		#  LPPIXELFORMATDESCRIPTOR ppfd)
+		attach_function :DescribePixelFormat, [:pointer, :int, :uint, :pointer], :int
+
+		#int GetDeviceCaps(
+		#  __in  HDC hdc,
+		#  __in  int nIndex)
+		attach_function :GetDeviceCaps, [:pointer, :int], :int
+
+    #int GetPixelFormat(
+    #  HDC hdc
+    #);
+    attach_function :GetPixelFormat, [:pointer], :int
+
+		#HGDIOBJ SelectObject(
+		#  __in  HDC hdc,
+		#  __in  HGDIOBJ hgdiobj)
+		attach_function :SelectObject, [:pointer, :pointer], :pointer
+
+		#BOOL SetPixelFormat(
+		#  HDC hdc,
+		#  int iPixelFormat,
+		#  const PIXELFORMATDESCRIPTOR *ppfd)
+		attach_function :SetPixelFormat, [:pointer, :int, :pointer], :bool
+
+		#BOOL SwapBuffers(
+		#  HDC hdc)
+		attach_function :SwapBuffers, [:pointer], :bool
+	end
 end