8 files changed, 61 insertions, 10 deletions

diff --git a/src/model/protein_geometry.c b/src/model/protein_geometry.c
new file mode 100644
index 0000000..001b578
--- a/dev/null
+++ b/src/model/protein_geometry.c
@@ -0,0 +1,21 @@
+#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;
+}