equal
deleted
inserted
replaced
840 getFloatsFromMatrixInto(obj, mp) |
840 getFloatsFromMatrixInto(obj, mp) |
841 OBJ obj; |
841 OBJ obj; |
842 Matrix *mp; |
842 Matrix *mp; |
843 { |
843 { |
844 OBJ cls; |
844 OBJ cls; |
845 extern OBJ FloatArray, DoubleArray, Array; |
|
846 int nByte; |
845 int nByte; |
847 OBJ o; |
846 OBJ o; |
848 int ninstVars, nInstBytes; |
847 int ninstVars, nInstBytes; |
849 char *pElem; |
848 char *pElem; |
850 int x = 0; |
849 int x = 0; |
913 getFloatsFromFloatArrayInto(obj, fp) |
912 getFloatsFromFloatArrayInto(obj, fp) |
914 OBJ obj; |
913 OBJ obj; |
915 float *fp; |
914 float *fp; |
916 { |
915 { |
917 OBJ cls; |
916 OBJ cls; |
918 extern OBJ FloatArray, DoubleArray, Array; |
|
919 int ninstVars; |
917 int ninstVars; |
920 |
918 |
921 if (! _isNonNilObject(obj)) return (float *)0; |
919 if (! _isNonNilObject(obj)) return (float *)0; |
922 cls = __qClass(obj); |
920 cls = __qClass(obj); |
923 if (cls == FloatArray) |
921 if (cls == @global(FloatArray)) |
924 return _FloatArrayInstPtr(obj)->f_element; |
922 return _FloatArrayInstPtr(obj)->f_element; |
925 |
923 |
926 if ((__intVal(_ClassInstPtr(cls)->c_flags) & ARRAYMASK) == FLOATARRAY) { |
924 if ((__intVal(_ClassInstPtr(cls)->c_flags) & ARRAYMASK) == FLOATARRAY) { |
927 ninstVars = __intVal(_ClassInstPtr(cls)->c_ninstvars); |
925 ninstVars = __intVal(_ClassInstPtr(cls)->c_ninstvars); |
928 return (float *) &(_InstPtr(obj)->i_instvars[ninstVars]); |
926 return (float *) &(_InstPtr(obj)->i_instvars[ninstVars]); |
1655 |
1653 |
1656 %{ /* NOCONTEXT */ |
1654 %{ /* NOCONTEXT */ |
1657 #ifdef GLX |
1655 #ifdef GLX |
1658 short defType; |
1656 short defType; |
1659 short i_index, i_np; |
1657 short i_index, i_np; |
1660 extern OBJ FloatArray; |
|
1661 float *fp; |
1658 float *fp; |
1662 OBJ cls; |
1659 OBJ cls; |
1663 int ninstVars, nInstBytes; |
1660 int ninstVars, nInstBytes; |
1664 |
1661 |
1665 if (what == @symbol(material)) |
1662 if (what == @symbol(material)) |
1676 _INT_ (np, i_np); |
1673 _INT_ (np, i_np); |
1677 |
1674 |
1678 if (! _isNonNilObject(props)) fp = NULL; |
1675 if (! _isNonNilObject(props)) fp = NULL; |
1679 else { |
1676 else { |
1680 cls = __qClass(props); |
1677 cls = __qClass(props); |
1681 if (cls == FloatArray) |
1678 if (cls == @global(FloatArray)) |
1682 fp = _FloatArrayInstPtr(props)->f_element; |
1679 fp = _FloatArrayInstPtr(props)->f_element; |
1683 else { |
1680 else { |
1684 if ((__intVal(_ClassInstPtr(cls)->c_flags) & ARRAYMASK) == FLOATARRAY) { |
1681 if ((__intVal(_ClassInstPtr(cls)->c_flags) & ARRAYMASK) == FLOATARRAY) { |
1685 ninstVars = __intVal(_ClassInstPtr(cls)->c_ninstvars); |
1682 ninstVars = __intVal(_ClassInstPtr(cls)->c_ninstvars); |
1686 fp = (float *) &(_InstPtr(props)->i_instvars[ninstVars]); |
1683 fp = (float *) &(_InstPtr(props)->i_instvars[ninstVars]); |
7782 ! ! |
7779 ! ! |
7783 |
7780 |
7784 !GLXWorkstation class methodsFor:'documentation'! |
7781 !GLXWorkstation class methodsFor:'documentation'! |
7785 |
7782 |
7786 version |
7783 version |
7787 ^ '$Header: /cvs/stx/stx/libview/GLXWorkstation.st,v 1.42 1995-12-23 00:36:56 cg Exp $' |
7784 ^ '$Header: /cvs/stx/stx/libview/GLXWorkstation.st,v 1.43 1996-01-04 17:04:06 cg Exp $' |
7788 ! ! |
7785 ! ! |