Changeset 6165


Ignore:
Timestamp:
Apr 8, 2007, 1:37:49 AM (12 years ago)
Author:
gb
Message:

Change some comments; as elsewhere, we're reserving space for 4 SINGLE-floats.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/objc-gf/ccl/examples/rubix/lights.lisp

    r843 r6165  
    3333(defmethod setlocation ((light light) pos)
    3434  (dotimes (i 3) (setf (elt (location light) i) (elt pos i)))
    35   (ccl::%stack-block ((foreign-float-vector (* 4 4))) ; make room for 4 double-floats
     35  (ccl::%stack-block ((foreign-float-vector (* 4 4))) ; make room for 4 single-floats
    3636    (ccl::%copy-ivector-to-ptr (location light) ; source
    3737      0     ; offset to first element (alignment padding)
     
    4343  (setf (pointsourcep light) (if bool t nil) ; <- don't hang on to non-nils
    4444        (elt (location light) 3) (if bool 1.0 0.0))
    45   (ccl::%stack-block ((foreign-float-vector (* 4 4))) ; make room for 4 double-floats
     45  (ccl::%stack-block ((foreign-float-vector (* 4 4))) ; make room for 4 single-floats
    4646    (ccl::%copy-ivector-to-ptr (location light) ; source
    4747      0     ; offset to first element (alignment padding)
     
    5353(defmethod setambient ((light light) color)
    5454  (dotimes (i 4) (setf (elt (ambient light) i) (elt color i)))
    55   (ccl::%stack-block ((foreign-float-vector (* 4 4))) ; make room for 4 double-floats
     55  (ccl::%stack-block ((foreign-float-vector (* 4 4))) ; make room for 4 single-floats
    5656    (ccl::%copy-ivector-to-ptr (ambient light) ; source
    5757      0     ; offset to first element (alignment padding)
     
    6262(defmethod setdiffuse ((light light) color)
    6363  (dotimes (i 4) (setf (elt (diffuse light) i) (elt color i)))
    64   (ccl::%stack-block ((foreign-float-vector (* 4 4))) ; make room for 4 double-floats
     64  (ccl::%stack-block ((foreign-float-vector (* 4 4))) ; make room for 4 single-floats
    6565    (ccl::%copy-ivector-to-ptr (diffuse light) ; source
    6666      0     ; offset to first element (alignment padding)
     
    7171(defmethod setspecular ((light light) color)
    7272  (dotimes (i 4) (setf (elt (specular light) i) (elt color i)))
    73   (ccl::%stack-block ((foreign-float-vector (* 4 4))) ; make room for 4 double-floats
     73  (ccl::%stack-block ((foreign-float-vector (* 4 4))) ; make room for 4 single-floats
    7474    (ccl::%copy-ivector-to-ptr (specular light) ; source
    7575      0     ; offset to first element (alignment padding)
Note: See TracChangeset for help on using the changeset viewer.