66     point_light *l;  in newlight()  local
68     l = (point_light *)rt_getmem(sizeof(point_light));  in newlight()
69     memset(l, 0, sizeof(point_light));  in newlight()
70     l->methods = &light_methods;  in newlight()
72     l->tex = (texture *)tex;  in newlight()
73     l->ctr = ctr;  in newlight()
74     l->rad = rad;  in newlight()
76     return l;  in newlight()
83 static void light_intersect(point_light *l, ray *ry) {  in light_intersect()  argument
91     VSUB(l->ctr, ry->o, V);  in light_intersect()
95     disc = b * b + l->rad * l->rad - temp;  in light_intersect()
104     add_intersection(t2, (object *)l, ry);  in light_intersect()
108         add_intersection(t1, (object *)l, ry);  in light_intersect()
111 static void light_normal(point_light *l, vector *pnt, ray *incident, vector *N) {  in light_normal()  argument
112     VSub((vector *)pnt, &(l->ctr), N);  in light_normal()