/[cmucl]/src/clx/xvidmode.lisp
ViewVC logotype

Diff of /src/clx/xvidmode.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1 by fgilham, Tue Aug 21 15:49:28 2007 UTC revision 1.1.14.1 by rtoy, Wed Jun 17 15:46:27 2009 UTC
# Line 35  Line 35 
35  ;;; constructed as well as to indentify any obsolete/wrong  ;;; constructed as well as to indentify any obsolete/wrong
36  ;;; functions I made.  ;;; functions I made.
37    
 #+cmu  
 (ext:file-comment "$Id$")  
   
38  (in-package :xlib)  (in-package :xlib)
39    
40  (export '(mode-info  (export '(mode-info
# Line 439  invalid." Line 436  invalid."
436  (defun xfree86-vidmode-set-gamma (dpy scr &key (red 1.0) (green 1.0) (blue 1.0))  (defun xfree86-vidmode-set-gamma (dpy scr &key (red 1.0) (green 1.0) (blue 1.0))
437    (declare (type display dpy)    (declare (type display dpy)
438             (type screen scr)             (type screen scr)
439             (type (single-float 0.100 10.000) red green blue))             (type (single-float 0.100f0 10.000f0) red green blue))
440    (with-buffer-request (dpy (vidmode-opcode dpy))    (with-buffer-request (dpy (vidmode-opcode dpy))
441      (data +set-gamma+)      (data +set-gamma+)
442      (card16 (screen-position scr dpy))      (card16 (screen-position scr dpy))

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.1.14.1

  ViewVC Help
Powered by ViewVC 1.1.5