Changeset 8110 in project
- Timestamp:
- 02/03/08 15:03:11 (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
directfb/trunk/directfb.scm
r7960 r8110 1 1 ;;; directfb.egg - A wrapper for the DirectFB graphics library 2 2 ;;; 3 ;;; Copyright (c) 2007 Hans Bulfone <jsb@nil.at>3 ;;; Copyright (c) 2007, 2008 Hans Bulfone <jsb@nil.at> 4 4 ;;; All rights reserved. 5 5 ;;; … … 77 77 DFSCL_NORMAL DFSCL_FULLSCREEN DFSCL_EXCLUSIVE) 78 78 79 (define-foreign-bitfield (dfb -surface-capabilities int) (strip-prefix: DSCAPS_)79 (define-foreign-bitfield (dfbs-capabilities int) (strip-prefix: DSCAPS_) 80 80 DSCAPS_PRIMARY DSCAPS_SYSTEMONLY DSCAPS_VIDEOONLY DSCAPS_DOUBLE 81 81 DSCAPS_SUBSURFACE DSCAPS_INTERLACED DSCAPS_SEPARATED DSCAPS_STATIC_ALLOC 82 82 DSCAPS_TRIPLE DSCAPS_PREMULTIPLIED DSCAPS_DEPTH DSCAPS_ALL DSCAPS_FLIPPING) 83 83 84 (define-foreign-bitfield (dfb -surface-flip-flags int) (strip-prefix: DSFLIP_)84 (define-foreign-bitfield (dfbs-flip-flags int) (strip-prefix: DSFLIP_) 85 85 DSFLIP_WAIT DSFLIP_BLIT DSFLIP_ONSYNC DSFLIP_PIPELINE) 86 86 … … 110 110 DFFA_NOCHARMAP DFFA_FIXEDCLIP) 111 111 112 (define-foreign-enum (dfb -surface-pixelformat int)112 (define-foreign-enum (dfbs-pixelformat int) 113 113 DSPF_UNKNOWN DSPF_ARGB1555 DSPF_RGB16 DSPF_RGB24 DSPF_RGB32 DSPF_ARGB 114 114 DSPF_A8 DSPF_YUY2 DSPF_RGB332 DSPF_UYVY DSPF_I420 DSPF_YV12 DSPF_LUT8 … … 301 301 (int fract-width flag: DFDESC_FRACT_WIDTH)) 302 302 303 (define-dfb-struct (dfb -surface-description DFBSurfaceDescription)303 (define-dfb-struct (dfbs-description DFBSurfaceDescription) 304 304 (flags-slot: flags) 305 305 (export: #t) 306 (dfb -surface-capabilities caps flag: DSDESC_CAPS)306 (dfbs-capabilities caps flag: DSDESC_CAPS) 307 307 (int width flag: DSDESC_WIDTH) 308 308 (int height flag: DSDESC_HEIGHT) 309 (dfb -surface-pixelformat pixelformat flag: DSDESC_PIXELFORMAT)309 (dfbs-pixelformat pixelformat flag: DSDESC_PIXELFORMAT) 310 310 (unsigned-long resource-id flag: DSDESC_RESOURCE_ID)) 311 311 … … 350 350 (define (dfb-create-surface dfb . dsc) 351 351 (let-location ((surf c-pointer)) 352 (let ((dsc (if (null? (cdr dsc)) (car dsc) (apply make-dfb -surface-description dsc))))353 ($dfb$ IDirectFB dfb CreateSurface ((dfb -surface-description dsc) (c-pointer #$surf))))352 (let ((dsc (if (null? (cdr dsc)) (car dsc) (apply make-dfbs-description dsc)))) 353 ($dfb$ IDirectFB dfb CreateSurface ((dfbs-description dsc) (c-pointer #$surf)))) 354 354 (make-dfbs-interface surf))) 355 355 … … 428 428 429 429 (define (dfbs-get-capabilities surf) 430 ($dfb$o IDirectFBSurface surf GetCapabilities ((dfb -surface-capabilities $out$))))430 ($dfb$o IDirectFBSurface surf GetCapabilities ((dfbs-capabilities $out$)))) 431 431 432 432 (define (dfbs-get-position surf) … … 442 442 443 443 (define (dfbs-get-pixel-format surf) 444 ($dfb$o IDirectFBSurface surf GetPixelFormat ((dfb -surface-pixelformat $out$))))444 ($dfb$o IDirectFBSurface surf GetPixelFormat ((dfbs-pixelformat $out$)))) 445 445 446 446 (define (dfbs-get-acceleration-mask surf source) … … 453 453 (define (dfbs-flip surf region flags) 454 454 ($dfb$ IDirectFBSurface surf Flip 455 ((dfb-region region) (dfb -surface-flip-flags flags))))455 ((dfb-region region) (dfbs-flip-flags flags)))) 456 456 457 457 (define (dfbs-set-field surf field) … … 654 654 655 655 (define (dfbip-get-surface-description ip) 656 (let ((dsc (make-dfb -surface-description)))656 (let ((dsc (make-dfbs-description))) 657 657 ($dfb$ IDirectFBImageProvider ip GetSurfaceDescription 658 ((dfb -surface-description dsc)))658 ((dfbs-description dsc))) 659 659 dsc)) 660 660
Note: See TracChangeset
for help on using the changeset viewer.