DelphiArrows3D/FormSimpleCameraUnit.fmx at master · pglowack/DelphiArrows3D · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
object FormSimpleCamera: TFormSimpleCamera
  Left = 0
  Top = 0
  Caption = 'Arrows 3D - Delphi  FireMonkey '
  ClientHeight = 480
  ClientWidth = 640
  FormFactor.Width = 320
  FormFactor.Height = 480
  FormFactor.Devices = [Desktop]
  Touch.GestureManager = GestureManager1
  Touch.InteractiveGestures = [Zoom]
  OnGesture = FormGesture
  DesignerMasterStyle = 0
  object Viewport3DMain: TViewport3D
    Align = Client
    Camera = CameraZ
    Color = claBlack
    Size.Width = 640.000000000000000000
    Size.Height = 480.000000000000000000
    Size.PlatformDefault = False
    UsingDesignCamera = False
    OnMouseDown = Viewport3DMainMouseDown
    OnMouseMove = Viewport3DMainMouseMove
    OnMouseWheel = Viewport3DMainMouseWheel
    object DummyScene: TDummy
      Scale.X = 2.000000000000000000
      Scale.Y = 2.000000000000000000
      Scale.Z = 2.000000000000000000
      Width = 1.000000000000000000
      Height = 1.000000000000000000
      Depth = 1.000000000000000000
      object CylX: TCylinder
        RotationAngle.Z = 270.000000000000000000
        Width = 0.100000001490116100
        Height = 4.000000000000000000
        Depth = 0.100000001490116100
        SubdivisionsCap = 2
        MaterialSource = MaterialSourceX
        Quanternion = '(0,0,-0.707106828689575,0.707106709480286)'
        object ConeX: TCone
          Position.Y = 2.000000000000000000
          RotationAngle.X = 180.000000000000000000
          Width = 0.300000011920929000
          Height = 0.500000000000000000
          Depth = 0.300000011920929000
          SubdivisionsCap = 3
          MaterialSource = MaterialSourceX
          Quanternion = '(1,0,0,-4.37113882867379E-8)'
        end
      end
      object CylY: TCylinder
        Width = 0.100000001490116100
        Height = 4.000000000000000000
        Depth = 0.100000001490116100
        SubdivisionsCap = 2
        MaterialSource = MaterialSourceY
        object ConeY: TCone
          Position.Y = 2.000000000000000000
          RotationAngle.X = 180.000000000000000000
          Width = 0.200000002980232200
          Height = 0.500000000000000000
          Depth = 0.200000002980232200
          SubdivisionsCap = 3
          MaterialSource = MaterialSourceY
          Quanternion = '(1,0,0,-4.37113882867379E-8)'
        end
      end
      object CylZ: TCylinder
        RotationAngle.X = 90.000000000000000000
        Width = 0.100000001490116100
        Height = 4.000000000000000000
        Depth = 0.100000001490116100
        SubdivisionsCap = 2
        MaterialSource = MaterialSourceZ
        Quanternion = '(0.70710676908493,0,0,0.70710676908493)'
        object ConeZ: TCone
          Position.Y = 2.000000000000000000
          RotationAngle.X = 180.000000000000000000
          Width = 0.200000002980232200
          Height = 0.500000000000000000
          Depth = 0.200000002980232200
          SubdivisionsCap = 3
          MaterialSource = MaterialSourceZ
          Quanternion = '(1,0,0,-4.37113882867379E-8)'
        end
      end
    end
    object DummyXY: TDummy
      Width = 1.000000000000000000
      Height = 1.000000000000000000
      Depth = 1.000000000000000000
      object CameraZ: TCamera
        AngleOfView = 45.000000000000000000
        Position.Z = -10.000000000000000000
        Width = 1.000000000000000000
        Height = 1.000000000000000000
        Depth = 1.000000000000000000
        object LightCamera: TLight
          Color = claWhite
          LightType = Directional
          SpotCutOff = 180.000000000000000000
          Width = 1.000000000000000000
          Height = 1.000000000000000000
          Depth = 1.000000000000000000
        end
      end
    end
    object MaterialSourceY: TLightMaterialSource
      Diffuse = claGreen
      Ambient = xFF202020
      Emissive = claNull
      Specular = xFF606060
      Shininess = 30
      Left = 64
      Top = 184
    end
    object MaterialSourceZ: TLightMaterialSource
      Diffuse = claBlue
      Ambient = xFF202020
      Emissive = claNull
      Specular = xFF606060
      Shininess = 30
      Left = 64
      Top = 248
    end
    object MaterialSourceX: TLightMaterialSource
      Diffuse = claRed
      Ambient = xFF202020
      Emissive = claNull
      Specular = xFF606060
      Shininess = 30
      Left = 56
      Top = 112
    end
  end
  object GestureManager1: TGestureManager
    Sensitivity = 80.000000000000000000
    Left = 64
    Top = 64
  end
end