Initial data commit

Task/Draw-a-sphere/Factor/draw-a-sphere.factor

@@ -0,0 +1,22 @@
+USING: classes.struct kernel raylib.ffi ;
+
+640 480 "sphere" init-window
+
+S{ Camera3D
+    { position S{ Vector3 f 4.5 4.5 4.5 } }
+    { target S{ Vector3 f 0 0 0 } }
+    { up S{ Vector3 f 0 1 0 } }
+    { fovy 45.0 }
+    { type 0 }
+}
+
+60 set-target-fps
+
+[ window-should-close ] [
+    begin-drawing
+        BLACK clear-background dup
+        begin-mode-3d
+            S{ Vector3 f 0 0 0 } 2 20 20 LIME draw-sphere-wires
+        end-mode-3d
+    end-drawing
+] until drop close-window