PRO Shader::Draw
Shade_Surf, *self.data
END;------------------------------------------


PRO Shader::CleanUp
Ptr_Free, self.data
END;------------------------------------------


FUNCTION Shader::INIT, data
IF N_Elements(data) EQ 0 THEN data = Dist(30)
self.data = Ptr_New(data)
RETURN, 1
END;------------------------------------------


PRO Shader__Define
   struct = {SHADER, data:Ptr_New()}
END;------------------------------------------