+SCM
+set_glTexture_size (SCM glTexture_smob, SCM width, SCM height)
+{
+ struct glTexture *glTexture;
+
+ scm_assert_smob_type (glTexture_tag, glTexture_smob);
+ glTexture = (struct glTexture *) SCM_SMOB_DATA (glTexture_smob);
+ glTexture->width = scm_to_int (width);
+ glTexture->height = scm_to_int (height);
+ return SCM_UNSPECIFIED;
+}
+