391     quadric *q;  in rt_quadsphere()  local
393     q = (quadric *)newquadric();  in rt_quadsphere()
395     q->tex = (texture *)tex;  in rt_quadsphere()
396     q->ctr = ctr;  in rt_quadsphere()
398     q->mat.a = factor;  in rt_quadsphere()
399     q->mat.b = 0.0;  in rt_quadsphere()
400     q->mat.c = 0.0;  in rt_quadsphere()
401     q->mat.d = 0.0;  in rt_quadsphere()
402     q->mat.e = factor;  in rt_quadsphere()
403     q->mat.f = 0.0;  in rt_quadsphere()
404     q->mat.g = 0.0;  in rt_quadsphere()
405     q->mat.h = factor;  in rt_quadsphere()
406     q->mat.i = 0.0;  in rt_quadsphere()
407     q->mat.j = -1.0;  in rt_quadsphere()
409     add_object((object *)q);  in rt_quadsphere()