18 files changed, 106 insertions, 47 deletions
diff --git a/src/model/geometry/protein_geometry.c b/src/model/geometry/protein_geometry.c
new file mode 100644
index 0000000..30a4350
--- a/dev/null
+++ b/src/model/geometry/protein_geometry.c
@@ -0,0 +1,23 @@
+#include "protein_geometry.h"
+#include "../../view/exp004state0.h"
+#include <GL/glut.h>
+
+#define S exp004state0
+
+void
+protein_geometry (void)
+{
+  /*
+   * Create a sphere and put it in a display list.
+   */
+  GLUquadricObj *obj = gluNewQuadric ();
+  gluQuadricDrawStyle (obj, GLU_FILL);
+
+  glNewList (S.list_offset + PROTEIN_GEOMETRY, GL_COMPILE);
+  gluSphere (obj, 0.05, 20, 20);
+  glEndList ();
+
+  gluDeleteQuadric (obj);
+
+  return;
+}