diff --git a/examples/3d.rotate.pas b/examples/3d.rotate.pas
index 979ed4b..b41c375 100644
--- a/examples/3d.rotate.pas
+++ b/examples/3d.rotate.pas
@@ -166,4 +166,10 @@ begin
  Redraw;
  MainLoop;
 
-end.
\ No newline at end of file
+end.
+
+{ note }
+{ SetPt3D(mypt, x, y, z); }
+{ Identity; }
+{ Yaw(yawangle); }
+{ Transform(mypt, myRotatedPt); }
\ No newline at end of file
diff --git a/examples/3d.scene.pas b/examples/3d.scene.pas
index e281ed5..e341206 100644
--- a/examples/3d.scene.pas
+++ b/examples/3d.scene.pas
@@ -77,16 +77,21 @@ program ExampleScene;
   until cursor.h < 0;
  end;
 
+ procedure InitWindow;
+ begin
+  viewWidth := 500;
+  viewHeight := 342;
+  padLeft := 60;
+  padTop := 60;
+
+  SetRect(drawingRect, padLeft, padTop, padLeft + viewWidth, padTop + viewHeight);
+  SetDrawingRect(drawingRect);
+  ShowDrawing;
+ end;
+
 begin
 
- viewWidth := 500;
- viewHeight := 342;
- padLeft := 60;
- padTop := 60;
-
- SetRect(drawingRect, padLeft, padTop, padLeft + viewWidth, padTop + viewHeight);
- SetDrawingRect(drawingRect);
- ShowDrawing;
+ InitWindow;
  InitGrf3D(nil);
  Open3DPort(@myPort3D);
  ViewPort(thePort^.portRect);
@@ -102,6 +107,10 @@ begin
  AddShape3D(scene, @wed1);
  AddShape3D(scene, @pyr1);
 
+ TurnYShape3D(@pyr1);
+ MoveShape3D(@pyr1, 100, 0, 0);
+ TurnYShape3D(@pyr1);
+
  Redraw;
  MainLoop;
 
diff --git a/units/Graf3DPrimitives.pas b/units/Graf3DScene/Graf3DPrimitives.pas
similarity index 61%
rename from units/Graf3DPrimitives.pas
rename to units/Graf3DScene/Graf3DPrimitives.pas
index c9185a6..15ab0fc 100644
--- a/units/Graf3DPrimitives.pas
+++ b/units/Graf3DScene/Graf3DPrimitives.pas
@@ -2,99 +2,17 @@ unit Graf3DPrimitives;
 interface
 
  uses
-  FixMath, Graf3D;
+  FixMath, Graf3D, Graf3DScene;
 
- type
-  Point3DPtr = ^Point3D;
-
-  Link3D = record
-    a: Point3DPtr;
-    b: Point3DPtr;
-   end;
-
-  Face3D = record
-    a: Point3DPtr;
-    b: Point3DPtr;
-    c: Point3DPtr;
-   end;
-
-  Shape3D = record
-    origin: Point3D;
-    length, verticesLength, facesLength: Integer;
-    vertices: array[1..9] of Point3D;
-    edges: array[1..13] of Link3D;
-    faces: array[1..6] of Face3D;
-   end;
-
-  Shape3DPtr = ^Shape3D;
-
-  Scene3D = record
-    length: Integer;
-    shapes: array[1..20] of Shape3DPtr;
-   end;
-
-  Scene3DPtr = ^Scene3D;
-
- procedure AddShape3D (var scene: scene3D; shape: Shape3DPtr);
- procedure MoveShape3D (shape: Shape3DPtr; x, y, z: Fixed);
- procedure TurnShape3D (shape: Shape3DPtr; x, y, z: Fixed);
- procedure SetScene3D (var scene: Scene3D);
- procedure SetLk3D (var lk3D: Link3D; a, b: Point3DPtr);
- procedure SetFc3D (var fc3D: Face3D; a, b, c: Point3DPtr);
  procedure SetBox3D (var shape: Shape3D; x, y, z, w, h, d: Fixed);
  procedure SetWedge3D (var shape: Shape3D; x, y, z, w, h, d, a: Fixed);
  procedure SetPyramid3D (var shape: Shape3D; x, y, z, w, h, d, ax, az: Fixed);
- procedure DrawLink3D (link: Link3D);
- procedure DrawShape3D (shape: Shape3DPtr);
- procedure DrawScene3D (scene: Scene3D);
 
 implementation
 
- procedure AddShape3D (var scene: scene3D; shape: Shape3DPtr);
- begin
-  scene.length := scene.length + 1;
-  scene.shapes[scene.length] := shape;
- end;
-
- procedure MoveShape3D (shape: Shape3DPtr; x, y, z: Fixed);
-  var
-   i: Integer;
- begin
-  for i := 1 to shape^.verticesLength do
-   SetPt3D(shape^.vertices[i], shape^.vertices[i].x + Long2Fix(x), shape^.vertices[i].y + Long2Fix(y), shape^.vertices[i].z + Long2Fix(z));
- end;
-
- procedure TurnShape3D (shape: Shape3DPtr; x, y, z: Fixed);
-  var
-   i: Integer;
- begin
-  for i := 1 to shape^.verticesLength do
-   begin
-   { DO IT }
-   end;
- end;
-
- procedure SetLk3D (var lk3D: Link3D; a, b: Point3DPtr);
- begin
-  lk3D.a := a;
-  lk3D.b := b;
- end;
-
- procedure SetFc3D (var fc3D: Face3D; a, b, c: Point3DPtr);
- begin
-  fc3D.a := a;
-  fc3D.b := b;
-  fc3D.c := c;
- end;
-
- procedure SetScene3D (var scene: Scene3D);
- begin
-  scene.length := 0;
- end;
-
  procedure SetBox3D (var shape: Shape3D; x, y, z, w, h, d: Fixed);
  begin
-  SetPt3D(shape.origin, x, y, z);
+  SetPt3D(shape.origin, Long2Fix(x), Long2Fix(y), Long2Fix(z));
   SetPt3D(shape.vertices[1], Long2Fix(x + w div 2), Long2Fix(y + h div 2), Long2Fix(z + d div 2));
   SetPt3D(shape.vertices[2], Long2Fix(x + w div 2), Long2Fix(y + h div 2), Long2Fix(z - d div 2));
   SetPt3D(shape.vertices[3], Long2Fix(x - w div 2), Long2Fix(y + h div 2), Long2Fix(z - d div 2));
@@ -124,7 +42,7 @@ implementation
 
  procedure SetWedge3D (var shape: Shape3D; x, y, z, w, h, d, a: Fixed);
  begin
-  SetPt3D(shape.origin, x, y, z);
+  SetPt3D(shape.origin, Long2Fix(x), Long2Fix(y), Long2Fix(z));
   SetPt3D(shape.vertices[1], Long2Fix(x + a), Long2Fix(y + h div 2), Long2Fix(z - d div 2));
   SetPt3D(shape.vertices[2], Long2Fix(x + a), Long2Fix(y + h div 2), Long2Fix(z + d div 2));
   SetPt3D(shape.vertices[3], Long2Fix(x + w div 2), Long2Fix(y - h div 2), Long2Fix(z + d div 2));
@@ -149,7 +67,7 @@ implementation
 
  procedure SetPyramid3D (var shape: Shape3D; x, y, z, w, h, d, ax, az: Fixed);
  begin
-  SetPt3D(shape.origin, x, y, z);
+  SetPt3D(shape.origin, Long2Fix(x), Long2Fix(y), Long2Fix(z));
   SetPt3D(shape.vertices[1], Long2Fix(x + ax), Long2Fix(y + h div 2), Long2Fix(z + az));
   SetPt3D(shape.vertices[2], Long2Fix(x + w div 2), Long2Fix(y - h div 2), Long2Fix(z + d div 2));
   SetPt3D(shape.vertices[3], Long2Fix(x + w div 2), Long2Fix(y - h div 2), Long2Fix(z - d div 2));
@@ -169,57 +87,4 @@ implementation
   shape.length := 8;
  end;
 
- procedure DrawWidget (size: Integer);
- begin
-  PenPat(black);
-  MoveTo3D(Long2Fix(size), 0, 0);
-  WriteDraw('x');
-  LineTo3D(0, 0, 0);
-  LineTo3D(0, Long2Fix(size), 0);
-  WriteDraw('y');
-  MoveTo3D(0, 0, 0);
-  LineTo3D(0, 0, Long2Fix(size));
-  WriteDraw('z');
- end;
-
- procedure DrawLink3D (link: Link3D);
- begin
-  MoveTo3D(link.a^.x, link.a^.y, link.a^.z);
-  LineTo3D(link.b^.x, link.b^.y, link.b^.z);
- end;
-
- procedure DrawFace3D (face: Face3D);
-  var
-   tempRgn: RgnHandle;
- begin
-  tempRgn := NewRgn;
-  OpenRgn;
-  MoveTo3D(face.a^.X, face.a^.Y, face.a^.Z);
-  LineTo3D(face.b^.X, face.b^.Y, face.b^.Z);
-  LineTo3D(face.c^.X, face.c^.Y, face.c^.Z);
-  LineTo3D(face.a^.X, face.a^.Y, face.a^.Z);
-  CloseRgn(tempRgn);
-  FillRgn(tempRgn, ltgray);
-  DisposeRgn(tempRgn);
- end;
-
- procedure DrawShape3D (shape: Shape3DPtr);
-  var
-   i: Integer;
- begin
-  for i := 1 to shape^.facesLength do
-   DrawFace3D(shape^.faces[i]);
-  for i := 1 to shape^.length do
-   DrawLink3D(shape^.edges[i]);
- end;
-
- procedure DrawScene3D (scene: Scene3D);
-  var
-   i: Integer;
- begin
-  for i := 1 to scene.length do
-   DrawShape3D(scene.shapes[i]);
-{ DrawWidget(50); }
- end;
-
 end.
\ No newline at end of file
diff --git a/units/Graf3DScene/Graf3DScene.pas b/units/Graf3DScene/Graf3DScene.pas
new file mode 100644
index 0000000..11e4d20
--- /dev/null
+++ b/units/Graf3DScene/Graf3DScene.pas
@@ -0,0 +1,262 @@
+unit Graf3DScene;
+interface
+
+ uses
+  FixMath, Graf3D;
+
+ type
+  Point3DPtr = ^Point3D;
+
+  Link3D = record
+    a: Point3DPtr;
+    b: Point3DPtr;
+   end;
+
+  Face3D = record
+    a: Point3DPtr;
+    b: Point3DPtr;
+    c: Point3DPtr;
+   end;
+
+  Shape3D = record
+    origin: Point3D;
+    length, verticesLength, facesLength: Integer;
+    vertices: array[1..9] of Point3D;
+    edges: array[1..13] of Link3D;
+    faces: array[1..6] of Face3D;
+   end;
+
+  Shape3DPtr = ^Shape3D;
+
+  Scene3D = record
+    length: Integer;
+    shapes: array[1..20] of Shape3DPtr;
+   end;
+
+  Scene3DPtr = ^Scene3D;
+
+ var
+  drawingRect: Rect; {A window Size}
+  viewWidth, viewHeight, padLeft, padTop: Integer;
+  myPort: GrafPort;
+  myPort3D: Port3D;
+  pa, pb: Point3D;
+  hangle, vangle: Longint;
+{cursor}
+  cursor, prev: Point;
+  isDown: Boolean;
+  scene: Scene3D;
+
+ procedure InitWindow;
+{scene}
+ procedure AddShape3D (var scene: scene3D; shape: Shape3DPtr);
+ procedure SetScene3D (var scene: Scene3D);
+ procedure SetLk3D (var lk3D: Link3D; a, b: Point3DPtr);
+ procedure SetFc3D (var fc3D: Face3D; a, b, c: Point3DPtr);
+{ transforms }
+ procedure MoveShape3D (shape: Shape3DPtr; x, y, z: Fixed);
+ procedure ScaleShape3D (shape: Shape3DPtr; x, y, z: LongInt);
+ procedure TurnXShape3D (shape: Shape3DPtr);
+ procedure TurnYShape3D (shape: Shape3DPtr);
+ procedure TurnZShape3D (shape: Shape3DPtr);
+{ draw }
+ procedure DrawLink3D (link: Link3D);
+ procedure DrawShape3D (shape: Shape3DPtr);
+ procedure DrawScene3D (scene: Scene3D);
+
+implementation
+
+ procedure AddShape3D (var scene: scene3D; shape: Shape3DPtr);
+ begin
+  scene.length := scene.length + 1;
+  scene.shapes[scene.length] := shape;
+ end;
+
+ procedure MoveShape3D (shape: Shape3DPtr; x, y, z: Fixed);
+  var
+   i: Integer;
+ begin
+  for i := 1 to shape^.verticesLength do
+   SetPt3D(shape^.vertices[i], shape^.vertices[i].x + Long2Fix(x), shape^.vertices[i].y + Long2Fix(y), shape^.vertices[i].z + Long2Fix(z));
+ end;
+
+ procedure ScaleShape3D (shape: Shape3DPtr; x, y, z: Fixed);
+  var
+   i: Integer;
+ begin
+  for i := 1 to shape^.verticesLength do
+   begin
+    SetPt3D(shape^.vertices[i], FixMul(shape^.vertices[i].x, Long2Fix(x)), FixMul(shape^.vertices[i].y, Long2Fix(y)), FixMul(shape^.vertices[i].z, Long2Fix(z)));
+   end;
+ end;
+
+ procedure TurnXShape3D (shape: Shape3DPtr);
+  var
+   i: Integer;
+ begin
+  SetPt3D(shape^.origin, shape^.origin.x, shape^.origin.z, shape^.origin.y);
+  for i := 1 to shape^.verticesLength do
+   SetPt3D(shape^.vertices[i], shape^.vertices[i].x, shape^.vertices[i].z, shape^.vertices[i].y);
+ end;
+
+ procedure TurnYShape3D (shape: Shape3DPtr);
+  var
+   i: Integer;
+ begin
+  SetPt3D(shape^.origin, shape^.origin.z, shape^.origin.y, shape^.origin.x);
+  for i := 1 to shape^.verticesLength do
+   SetPt3D(shape^.vertices[i], shape^.vertices[i].z, shape^.vertices[i].y, shape^.vertices[i].x - shape^.origin.x);
+ end;
+
+ procedure TurnZShape3D (shape: Shape3DPtr);
+  var
+   i: Integer;
+ begin
+  SetPt3D(shape^.origin, shape^.origin.y, shape^.origin.x, shape^.origin.z);
+  for i := 1 to shape^.verticesLength do
+   SetPt3D(shape^.vertices[i], shape^.vertices[i].y, shape^.vertices[i].x, shape^.vertices[i].z);
+ end;
+
+ procedure SetLk3D (var lk3D: Link3D; a, b: Point3DPtr);
+ begin
+  lk3D.a := a;
+  lk3D.b := b;
+ end;
+
+ procedure SetFc3D (var fc3D: Face3D; a, b, c: Point3DPtr);
+ begin
+  fc3D.a := a;
+  fc3D.b := b;
+  fc3D.c := c;
+ end;
+
+ procedure SetScene3D (var scene: Scene3D);
+ begin
+  scene.length := 0;
+ end;
+
+ procedure DrawLink3D (link: Link3D);
+ begin
+  MoveTo3D(link.a^.x, link.a^.y, link.a^.z);
+  LineTo3D(link.b^.x, link.b^.y, link.b^.z);
+ end;
+
+ procedure DrawFace3D (face: Face3D);
+  var
+   tempRgn: RgnHandle;
+ begin
+  tempRgn := NewRgn;
+  OpenRgn;
+  MoveTo3D(face.a^.X, face.a^.Y, face.a^.Z);
+  LineTo3D(face.b^.X, face.b^.Y, face.b^.Z);
+  LineTo3D(face.c^.X, face.c^.Y, face.c^.Z);
+  LineTo3D(face.a^.X, face.a^.Y, face.a^.Z);
+  CloseRgn(tempRgn);
+  FillRgn(tempRgn, ltgray);
+  DisposeRgn(tempRgn);
+ end;
+
+ procedure DrawShape3D (shape: Shape3DPtr);
+  var
+   i: Integer;
+ begin
+  for i := 1 to shape^.facesLength do
+   DrawFace3D(shape^.faces[i]);
+  for i := 1 to shape^.length do
+   DrawLink3D(shape^.edges[i]);
+ end;
+
+ procedure DrawWidget (size: Integer);
+ begin
+  PenPat(black);
+  MoveTo3D(Long2Fix(size), 0, 0);
+  WriteDraw('x');
+  LineTo3D(0, 0, 0);
+  LineTo3D(0, Long2Fix(size), 0);
+  WriteDraw('y');
+  MoveTo3D(0, 0, 0);
+  LineTo3D(0, 0, Long2Fix(size));
+  WriteDraw('z');
+ end;
+
+ procedure DrawScene3D (scene: Scene3D);
+  var
+   i: Integer;
+ begin
+  for i := 1 to scene.length do
+   DrawShape3D(scene.shapes[i]);
+  DrawWidget(50);
+ end;
+
+ procedure ClearScreen;
+  var
+   size: Rect;
+ begin
+  SetRect(size, 0, 0, viewWidth, viewWidth);
+  FillRect(size, white);
+ end;
+
+ procedure Redraw;
+  var
+   i: Integer;
+ begin
+  ClearScreen;
+  LookAt(Long2Fix(-viewWidth), Long2Fix(viewheight), Long2Fix(viewWidth), Long2Fix(-viewHeight));
+  ViewAngle(Long2Fix(50));
+  Identity;
+  Yaw(Long2Fix(hangle));
+  Pitch(Long2Fix(vangle)); { roll and pitch the plane }
+  DrawScene3D(scene);
+ end;
+
+ procedure WhenDownChanged;
+  var
+   hoff, voff: Integer;
+ begin
+  hoff := prev.h - cursor.h;
+  hangle := hangle + hoff;
+  voff := prev.v - cursor.v;
+  vangle := vangle + voff;
+  Redraw;
+  GetMouse(prev);
+ end;
+
+ procedure WhenDown;
+ begin
+  GetMouse(cursor);
+  if cursor.h <> prev.h then
+   if cursor.v <> prev.v then
+    WhenDownChanged;
+ end;
+
+ procedure MainLoop;
+ begin
+  repeat {Until we click outside screen}
+   while button do
+    begin
+     GetMouse(cursor);
+     GetMouse(prev);
+     repeat {Tight loop until button up}
+      WhenDown;
+     until not Button;
+    end;
+  until cursor.h < 0;
+ end;
+
+ procedure InitWindow;
+ begin
+  viewWidth := 500;
+  viewHeight := 342;
+  padLeft := 60;
+  padTop := 60;
+  SetRect(drawingRect, padLeft, padTop, padLeft + viewWidth, padTop + viewHeight);
+  SetDrawingRect(drawingRect);
+  ShowDrawing;
+  InitGrf3D(nil);
+  Open3DPort(@myPort3D);
+  ViewPort(thePort^.portRect);
+  Redraw;
+  MainLoop;
+ end;
+
+end.
\ No newline at end of file
diff --git a/units/Graf3DScene/Graf3DStructures.pas b/units/Graf3DScene/Graf3DStructures.pas
new file mode 100644
index 0000000..c2d4304
--- /dev/null
+++ b/units/Graf3DScene/Graf3DStructures.pas
@@ -0,0 +1,10 @@
+unit Graf3DStructures;
+interface
+
+ uses
+  FixMath, Graf3D, Graf3DScene, Graf3DPrimitives;
+
+implementation
+
+
+end.
\ No newline at end of file
diff --git a/units/Graf3DScene/main.pas b/units/Graf3DScene/main.pas
new file mode 100644
index 0000000..6555cfd
--- /dev/null
+++ b/units/Graf3DScene/main.pas
@@ -0,0 +1,28 @@
+program ExampleScene;
+
+ uses
+  FixMath, Graf3D, Graf3DScene, Graf3DPrimitives, Graf3DStructures;
+
+ var
+  box1, wed1, pyr1: Shape3D;
+
+begin
+
+{scene}
+
+ SetScene3D(scene);
+ SetBox3D(box1, -100, 0, 0, 100, 100, 100);
+ SetWedge3D(wed1, 0, 0, 0, 100, 100, 100, 50);
+ SetPyramid3D(pyr1, 100, 0, 0, 100, 100, 100, 50, 50);
+
+ AddShape3D(scene, @box1);
+ AddShape3D(scene, @wed1);
+ AddShape3D(scene, @pyr1);
+
+ TurnYShape3D(@pyr1);
+ MoveShape3D(@pyr1, 100, 0, 0);
+ TurnYShape3D(@pyr1);
+
+ InitWindow;
+
+end.
\ No newline at end of file