(*
  Moving objects with the mouse.

  In this demo you can move the cubes around by picking and dragging
  them. This showcases the use of ScreenVectorIntersectXxxx functions.

  You can also use the numeric keypad to move/zoom the camera and the arrow
  to move the selected object around.

  // Based on Rado Stoyanov's test project
*)
program Objmove;

uses
  Forms,
  fObjmove in 'fObjmove.pas' {FormObjmove};

{$R *.RES}

begin
  Application.Initialize;
  Application.CreateForm(TFormObjmove, FormObjmove);
  Application.Run;
end.