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

Diff of /src/clx/dependent.lisp

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

revision 1.2.1.3 by ram, Fri Nov 8 17:43:35 1991 UTC revision 1.2.1.4 by ram, Sat Nov 9 13:18:15 1991 UTC
# Line 2656  Line 2656 
2656       ,@body))       ,@body))
2657    
2658  #+CMU  #+CMU
2659  ;;; Element-type seems to be somewhat random, so just ignore it.  ;;; We do *NOT* support viewing an array as having a different element type.
2660    ;;; Element-type is ignored.
2661  ;;;  ;;;
2662  (defmacro with-underlying-simple-vector  (defmacro with-underlying-simple-vector
2663            ((variable element-type pixarray) &body body)            ((variable element-type pixarray) &body body)
# Line 2722  Line 2723 
2723                   (the (unsigned-byte ,count) ,it))))                   (the (unsigned-byte ,count) ,it))))
2724      `(the card8 ,it)))      `(the card8 ,it)))
2725    
2726  #+(or Genera lcl3.0 excl CMU)  #+(or Genera lcl3.0 excl)
2727  (defvar *computed-image-byte-lsb-first-p* *image-byte-lsb-first-p*)  (defvar *computed-image-byte-lsb-first-p* *image-byte-lsb-first-p*)
2728    
2729  #+(or Genera lcl3.0 excl CMU)  #+(or Genera lcl3.0 excl)
2730  (defvar *computed-image-bit-lsb-first-p* *image-bit-lsb-first-p*)  (defvar *computed-image-bit-lsb-first-p* *image-bit-lsb-first-p*)
2731    
2732  ;;; The following table gives the bit ordering within bytes (when accessed  ;;; The following table gives the bit ordering within bytes (when accessed
# Line 2759  Line 2760 
2760  ;;; 2Ll 07-00 15-08 23-16 31-24  ;;; 2Ll 07-00 15-08 23-16 31-24
2761  ;;; 4Ll 07-00 15-08 23-16 31-24  ;;; 4Ll 07-00 15-08 23-16 31-24
2762    
2763  #+(or Genera lcl3.0 excl CMU)  #+(or Genera lcl3.0 excl)
2764  (defconstant  (defconstant
2765    *image-bit-ordering-table*    *image-bit-ordering-table*
2766    '(((1 (00 07) (08 15) (16 23) (24 31)) (nil nil))    '(((1 (00 07) (08 15) (16 23) (24 31)) (nil nil))
# Line 2775  Line 2776 
2776      ((2 (07 00) (15 08) (23 16) (31 24)) (t   t))      ((2 (07 00) (15 08) (23 16) (31 24)) (t   t))
2777      ((4 (07 00) (15 08) (23 16) (31 24)) (t   t))))      ((4 (07 00) (15 08) (23 16) (31 24)) (t   t))))
2778    
2779  #+(or Genera lcl3.0 excl CMU)  #+(or Genera lcl3.0 excl)
2780  (defun compute-image-byte-and-bit-ordering ()  (defun compute-image-byte-and-bit-ordering ()
2781    (declare (values image-byte-lsb-first-p image-bit-lsb-first-p))    (declare (values image-byte-lsb-first-p image-bit-lsb-first-p))
2782    ;; First compute the ordering    ;; First compute the ordering
# Line 2807  Line 2808 
2808                 ordering))                 ordering))
2809        (values-list byte-and-bit-ordering))))        (values-list byte-and-bit-ordering))))
2810    
2811  #+(or Genera lcl3.0 excl CMU)  #+(or Genera lcl3.0 excl)
2812  (multiple-value-setq  (multiple-value-setq
2813    (*computed-image-byte-lsb-first-p* *computed-image-bit-lsb-first-p*)    (*computed-image-byte-lsb-first-p* *computed-image-bit-lsb-first-p*)
2814    (compute-image-byte-and-bit-ordering))    (compute-image-byte-and-bit-ordering))
# Line 3103  Line 3104 
3104                   x y                   x y
3105                   height width))                   height width))
3106    
3107  #+(or Genera lcl3.0 excl CMU)  #+(or Genera lcl3.0 excl)
3108  (defun fast-read-pixarray-with-swap  (defun fast-read-pixarray-with-swap
3109         (bbuf boffset pixarray x y width height padded-bytes-per-line         (bbuf boffset pixarray x y width height padded-bytes-per-line
3110          bits-per-pixel unit byte-lsb-first-p bit-lsb-first-p)          bits-per-pixel unit byte-lsb-first-p bit-lsb-first-p)
# Line 3363  Line 3364 
3364                   (index* boffset vm:byte-bits) 0                   (index* boffset vm:byte-bits) 0
3365                   height width))                   height width))
3366    
3367  #+(or Genera lcl3.0 excl CMU)  #+(or Genera lcl3.0 excl)
3368  (defun fast-write-pixarray-with-swap  (defun fast-write-pixarray-with-swap
3369         (bbuf boffset pixarray x y width height padded-bytes-per-line         (bbuf boffset pixarray x y width height padded-bytes-per-line
3370          bits-per-pixel unit byte-lsb-first-p bit-lsb-first-p)          bits-per-pixel unit byte-lsb-first-p bit-lsb-first-p)

Legend:
Removed from v.1.2.1.3  
changed lines
  Added in v.1.2.1.4

  ViewVC Help
Powered by ViewVC 1.1.5