Unit1.fmx

   1 object Form1: TForm1\r
   2   Left = 0\r
   3   Top = 0\r
   4   Caption = 'Form1'\r
   5   ClientHeight = 482\r
   6   ClientWidth = 636\r
   7   FormFactor.Width = 320\r
   8   FormFactor.Height = 480\r
   9   FormFactor.Devices = [Desktop]\r
  10   OnCreate = Form3DCreate\r
  11   OnDestroy = Form3DDestroy\r
  12   OnKeyDown = Form3DKeyDown\r
  13   DesignerMasterStyle = 0\r
  14   object Cone1: TCone\r
  15     Position.X = -6.301226615905762000\r
  16     Position.Y = 0.792688846588134800\r
  17     Width = 1.000000000000000000\r
  18     Height = 1.000000000000000000\r
  19     Depth = 1.000000000000000000\r
  20     SubdivisionsCap = 3\r
  21     MaterialSource = LightMaterialSource1\r
  22   end\r
  23   object Cube1: TCube\r
  24     Position.X = 5.466088294982910000\r
  25     Position.Y = -4.074823379516602000\r
  26     Width = 1.000000000000000000\r
  27     Height = 1.000000000000000000\r
  28     Depth = 1.000000000000000000\r
  29     MaterialSource = LightMaterialSource2\r
  30   end\r
  31   object Timer1: TTimer\r
  32     Interval = 20\r
  33     OnTimer = Timer1Timer\r
  34     Left = 304\r
  35     Top = 224\r
  36   end\r
  37   object Light1: TLight\r
  38     Color = claWhite\r
  39     LightType = Point\r
  40     SpotCutOff = 180.000000000000000000\r
  41     Position.X = 0.337656319141387900\r
  42     Position.Y = -0.675706863403320300\r
  43     Position.Z = -1.000000000000000000\r
  44     RotationAngle.X = 355.806274414062500000\r
  45     Width = 1.000000000000000000\r
  46     Height = 1.000000000000000000\r
  47     Depth = 1.000000000000000000\r
  48     Quanternion = '(0.0365889966487885,0,0,-0.999330401420593)'\r
  49   end\r
  50   object LightMaterialSource1: TLightMaterialSource\r
  51     Diffuse = xFFE92222\r
  52     Ambient = xFF202020\r
  53     Emissive = claNull\r
  54     Specular = xFF606060\r
  55     Shininess = 30\r
  56     Left = 320\r
  57     Top = 240\r
  58   end\r
  59   object LightMaterialSource2: TLightMaterialSource\r
  60     Diffuse = xFFF7F134\r
  61     Ambient = xFF202020\r
  62     Emissive = x00D1F524\r
  63     Specular = xFF606060\r
  64     Shininess = 30\r
  65     Left = 312\r
  66     Top = 232\r
  67   end\r
  68   object Text3D1: TText3D\r
  69     Cursor = 1\r
  70     Position.X = -6.596570491790771000\r
  71     Position.Y = -4.896049976348877000\r
  72     Width = 5.233947277069092000\r
  73     Height = 2.077767848968506000\r
  74     Depth = 1.000000000000000000\r
  75     WordWrap = False\r
  76     Flatness = 1.000000000000000000\r
  77     Sides = [Front, Back, Shaft]\r
  78   end\r
  79 end\r