testgame/Unit1.fmx

   1 object Form1: TForm1
   2   Left = 0
   3   Top = 0
   4   Camera = Camera1
   5   Caption = 'Form1'
   6   ClientHeight = 480
   7   ClientWidth = 640
   8   UsingDesignCamera = False
   9   FormFactor.Width = 320
  10   FormFactor.Height = 480
  11   FormFactor.Devices = [Desktop]
  12   OnCreate = Form3DCreate
  13   OnDestroy = Form3DDestroy
  14   OnKeyDown = Form3DKeyDown
  15   DesignerMasterStyle = 0
  16   object Disk1: TDisk
  17     Position.X = -0.645954489707946800
  18     Position.Y = -6.382629871368408000
  19     RotationAngle.X = 38.874191284179690000
  20     Width = 1.000000000000000000
  21     Height = 0.001000000047497451
  22     Depth = 1.000000000000000000
  23     SubdivisionsCap = 1
  24     MaterialSource = LightMaterialSource1
  25     Quanternion = '(0.332770705223084,0,0,0.943007826805115)'
  26   end
  27   object Light1: TLight
  28     Color = claViolet
  29     LightType = Point
  30     SpotCutOff = 180.000000000000000000
  31     Position.X = -0.109701864421367600
  32     Position.Y = 2.069569587707520000
  33     Position.Z = -5.000003814697266000
  34     RotationAngle.X = 340.246490478515600000
  35     RotationAngle.Y = 0.029571533203125000
  36     Width = 1.000000000000000000
  37     Height = 1.000000000000000000
  38     Depth = 1.000000000000000000
  39     Quanternion =
  40       '(-0.171529620885849,0.000254044338362291,4.42316850239877E-5,0.9' +
  41       '85179126262665)'
  42   end
  43   object Light2: TLight
  44     Color = claWhite
  45     LightType = Spot
  46     SpotCutOff = 60.000000000000000000
  47     SpotExponent = 7.000000000000000000
  48     Position.X = -0.284160196781158400
  49     Position.Y = -3.558140754699707000
  50     Position.Z = -3.000000000000000000
  51     Width = 1.000000000000000000
  52     Height = 1.000000000000000000
  53     Depth = 1.000000000000000000
  54   end
  55   object Plane1: TPlane
  56     Position.X = 0.009841278195381165
  57     Position.Y = 0.072504043579101570
  58     Position.Z = 4.000000000000000000
  59     RotationAngle.X = 150.258209228515600000
  60     RotationAngle.Y = 257.792022705078100000
  61     RotationAngle.Z = 283.120269775390600000
  62     Width = 23.665765762329100000
  63     Height = 19.683979034423830000
  64     Depth = 0.001000000047497451
  65     MaterialSource = LightMaterialSource1
  66     Quanternion =
  67       '(0.00857588835060596,-0.163827389478683,-0.986407935619354,0.009' +
  68       '11759492009878)'
  69   end
  70   object Camera1: TCamera
  71     AngleOfView = 45.000000000000000000
  72     Target = Disk1
  73     Position.X = -5.542634487152100000
  74     Position.Y = 0.087625026702880860
  75     Position.Z = -4.999998092651367000
  76     RotationAngle.X = 344.833374023437500000
  77     RotationAngle.Y = 42.576457977294920000
  78     Width = 1.000000000000000000
  79     Height = 1.000000000000000000
  80     Depth = 1.000000000000000000
  81     Quanternion =
  82       '(0.122962884604931,-0.359885334968567,0.0479122288525105,-0.9236' +
  83       '16588115692)'
  84   end
  85   object Timer1: TTimer
  86     Interval = 30
  87     OnTimer = Timer1Timer
  88     Left = 304
  89     Top = 224
  90   end
  91   object LightMaterialSource1: TLightMaterialSource
  92     Diffuse = claWhite
  93     Ambient = xFF202020
  94     Emissive = claNull
  95     Specular = xFF606060
  96     Shininess = 30
  97     Left = 312
  98     Top = 232
  99   end
 100 end