GLXWorkstation.st
changeset 5479 ae6b3ac21920
parent 4718 11e89d5330e7
child 6002 3773c70bed6a
equal deleted inserted replaced
5478:4e83e3604f19 5479:ae6b3ac21920
     7  inclusion of the above copyright notice.   This software may not
     7  inclusion of the above copyright notice.   This software may not
     8  be provided or otherwise made available to, or used by, any
     8  be provided or otherwise made available to, or used by, any
     9  other person.  No title to or ownership of the software is
     9  other person.  No title to or ownership of the software is
    10  hereby transferred.
    10  hereby transferred.
    11 "
    11 "
    12 
       
    13 "{ Package: 'stx:libview' }"
    12 "{ Package: 'stx:libview' }"
    14 
    13 
    15 XWorkstation subclass:#GLXWorkstation
    14 XWorkstation subclass:#GLXWorkstation
    16 	instanceVariableNames:'activeWindow hasStereoExtension glOK'
    15 	instanceVariableNames:'activeWindow hasStereoExtension glOK'
    17 	classVariableNames:'ForceGL'
    16 	classVariableNames:'ForceGL'
  3061      w/h define the size of the texture; bits is a byteArray containing the
  3060      w/h define the size of the texture; bits is a byteArray containing the
  3062      long-word aligned pixel data; np is the number of props found in
  3061      long-word aligned pixel data; np is the number of props found in
  3063      the floatArray props. Props must be delimited by a 0.0 entry."
  3062      the floatArray props. Props must be delimited by a 0.0 entry."
  3064 
  3063 
  3065 %{  /* NOCONTEXT */
  3064 %{  /* NOCONTEXT */
  3066 #ifdef GLX
  3065 #ifdef GLX                          
  3067     unsigned char *cp;
  3066     unsigned char *cp;
  3068     const float *fp;
  3067     const float *fp;
  3069     OBJ cls;
  3068     OBJ cls;
  3070     float fbuff[30];
  3069     float fbuff[30];
  3071 
  3070 
  3072     if (__isByteArray(image)) {
  3071     if (__isByteArrayLike(image)) {
  3073 	cp = _ByteArrayInstPtr(image)->ba_element;
  3072         cp = _ByteArrayInstPtr(image)->ba_element;
  3074 	fp = __glx_getFloatsFromFloatArrayInto(props, fbuff);
  3073         fp = __glx_getFloatsFromFloatArrayInto(props, fbuff);
  3075 
  3074 
  3076 	SETWIN(aGLXWindowId)
  3075         SETWIN(aGLXWindowId)
  3077 	texdef2d(__intVal(index), __intVal(nc), __intVal(w), __intVal(h),
  3076         texdef2d(__intVal(index), __intVal(nc), __intVal(w), __intVal(h),
  3078 		 (const unsigned long *)cp, __intVal(np), fp);
  3077                  (const unsigned long *)cp, __intVal(np), fp);
  3079     }
  3078     }
  3080 #endif
  3079 #endif
  3081 %}
  3080 %}
  3082 !
  3081 !
  3083 
  3082 
  3093     unsigned char *cp;
  3092     unsigned char *cp;
  3094     const float *fp;
  3093     const float *fp;
  3095     OBJ cls;
  3094     OBJ cls;
  3096     float fbuff[30];
  3095     float fbuff[30];
  3097 
  3096 
  3098     if (__isByteArray(image)) {
  3097     if (__isByteArrayLike(image)) {
  3099 	cp = _ByteArrayInstPtr(image)->ba_element;
  3098         cp = _ByteArrayInstPtr(image)->ba_element;
  3100 	fp = __glx_getFloatsFromFloatArrayInto(props, fbuff);
  3099         fp = __glx_getFloatsFromFloatArrayInto(props, fbuff);
  3101 
  3100 
  3102 	SETWIN(aGLXWindowId)
  3101         SETWIN(aGLXWindowId)
  3103 	texdef3d(__intVal(index), __intVal(nc), __intVal(w), __intVal(h),
  3102         texdef3d(__intVal(index), __intVal(nc), __intVal(w), __intVal(h),
  3104 		 __intVal(d),
  3103                  __intVal(d),
  3105 		 (const unsigned long *)cp, __intVal(np), fp);
  3104                  (const unsigned long *)cp, __intVal(np), fp);
  3106     }
  3105     }
  3107 #endif
  3106 #endif
  3108 %}
  3107 %}
  3109 !
  3108 !
  3110 
  3109 
  8781 ! !
  8780 ! !
  8782 
  8781 
  8783 !GLXWorkstation class methodsFor:'documentation'!
  8782 !GLXWorkstation class methodsFor:'documentation'!
  8784 
  8783 
  8785 version
  8784 version
  8786     ^ '$Header: /cvs/stx/stx/libview/GLXWorkstation.st,v 1.84 2007-01-24 13:41:11 cg Exp $'
  8785     ^ '$Header: /cvs/stx/stx/libview/GLXWorkstation.st,v 1.85 2009-11-05 14:37:38 stefan Exp $'
       
  8786 !
       
  8787 
       
  8788 version_CVS
       
  8789     ^ '$Header: /cvs/stx/stx/libview/GLXWorkstation.st,v 1.85 2009-11-05 14:37:38 stefan Exp $'
  8787 ! !
  8790 ! !