steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

get rid of variable-based pixel format crap in cocoa.views

db4
Joe Groff 2009-04-30 22:35:15 -05:00
parent 8a4c6a30f9
commit b6074b95fa
1 changed files with 4 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
basis/cocoa/views/views.factor
View File

@ -42,31 +42,14 @@ CONSTANT: NSOpenGLPFAAllowOfflineRenderers 96
CONSTANT: NSOpenGLPFAVirtualScreenCount 128 CONSTANT: NSOpenGLPFAVirtualScreenCount 128
CONSTANT: NSOpenGLCPSwapInterval 222 CONSTANT: NSOpenGLCPSwapInterval 222
<PRIVATE
SYMBOL: software-renderer?
SYMBOL: multisample?
PRIVATE>
: with-software-renderer ( quot -- )
[ t software-renderer? ] dip with-variable ; inline
: with-multisample ( quot -- )
[ t multisample? ] dip with-variable ; inline
: <PixelFormat> ( attributes -- pixelfmt ) : <PixelFormat> ( attributes -- pixelfmt )
NSOpenGLPixelFormat -> alloc swap [ NSOpenGLPixelFormat -> alloc swap [
% %
NSOpenGLPFADepthSize , 16 , NSOpenGLPFADepthSize , 16 ,
software-renderer? get [ ! NSOpenGLPFARendererID , kCGLRendererGenericFloatID ,
NSOpenGLPFARendererID , kCGLRendererGenericFloatID , ! NSOpenGLPFASupersample ,
] when ! NSOpenGLPFASampleBuffers , 1 ,
multisample? get [ ! NSOpenGLPFASamples , 8 ,
NSOpenGLPFASupersample ,
NSOpenGLPFASampleBuffers , 1 ,
NSOpenGLPFASamples , 8 ,
] when
0 , 0 ,
] int-array{ } make ] int-array{ } make
-> initWithAttributes: -> initWithAttributes: