Luxophia

1
object Form1: TForm1
2
  Left = 0
3
  Top = 0
4
  Caption = 'UtahTeapot'
5
  ClientHeight = 620
6
  ClientWidth = 1032
7
  Position = ScreenCenter
8
  FormFactor.Width = 320
9
  FormFactor.Height = 480
10
  FormFactor.Devices = [Desktop]
11
  OnCreate = FormCreate
12
  OnDestroy = FormDestroy
13
  DesignerMasterStyle = 0
14
  object Viewport3D1: TViewport3D
15
    Align = Client
16
    Camera = Camera1
17
    Color = claDimgray
18
    Margins.Left = 10.000000000000000000
19
    Margins.Top = 10.000000000000000000
20
    Margins.Right = 10.000000000000000000
21
    Margins.Bottom = 10.000000000000000000
22
    Size.Width = 802.000000000000000000
23
    Size.Height = 600.000000000000000000
24
    Size.PlatformDefault = False
25
    UsingDesignCamera = False
26
    OnMouseDown = Viewport3D1MouseDown
27
    OnMouseMove = Viewport3D1MouseMove
28
    OnMouseUp = Viewport3D1MouseUp
29
    object Dummy1: TDummy
30
      Position.Y = -1.000000000000000000
31
      RotationAngle.Y = 330.000000000000000000
32
      Width = 1.000000000000000000
33
      Height = 1.000000000000000000
34
      Depth = 1.000000000000000000
35
      Quanternion = '(0,0.258819133043289,0,-0.965925812721252)'
36
      object Dummy2: TDummy
37
        RotationAngle.X = 330.000000000000000000
38
        Width = 1.000000000000000000
39
        Height = 1.000000000000000000
40
        Depth = 1.000000000000000000
41
        Quanternion = '(-0.258819043636322,0,0,0.965925872325897)'
42
        object Camera1: TCamera
43
          AngleOfView = 45.000000000000000000
44
          Position.Z = -8.000000000000000000
45
          Width = 1.000000000000000000
46
          Height = 1.000000000000000000
47
          Depth = 1.000000000000000000
48
        end
49
        object Light1: TLight
50
          Color = claWhite
51
          LightType = Directional
52
          SpotCutOff = 180.000000000000000000
53
          RotationAngle.X = 300.000000000000000000
54
          Width = 1.000000000000000000
55
          Height = 1.000000000000000000
56
          Depth = 1.000000000000000000
57
          Quanternion = '(0.500000059604645,0,0,-0.866025388240814)'
58
        end
59
      end
60
    end
61
    object Grid3D1: TGrid3D
62
      Marks = 4.000000000000000000
63
      Frequency = 1.000000000000000000
64
      LineColor = x50505050
65
      RotationAngle.X = 270.000000000000000000
66
      Width = 100.000000000000000000
67
      Height = 100.000000000000000000
68
      Depth = 0.001000000047497451
69
      HitTest = False
70
      Quanternion = '(0.70710676908493,0,0,-0.70710676908493)'
71
      object StrokeCube1: TStrokeCube
72
        Color = claWhite
73
        Position.X = -0.133336842060089100
74
        Position.Y = 0.000000074831440600
75
        Position.Z = -0.744536876678466800
76
        RotationAngle.Y = -91.842788696289060000
77
        Width = 4.000000000000000000
78
        Height = 4.000000000000000000
79
        Depth = 4.000000000000000000
80
        HitTest = False
81
        Quanternion = '(0,-0.718385875225067,0,0.695644974708557)'
82
      end
83
    end
84
  end
85
  object Panel1: TPanel
86
    Align = Right
87
    Margins.Left = -10.000000000000000000
88
    Position.X = 812.000000000000000000
89
    Size.Width = 220.000000000000000000
90
    Size.Height = 620.000000000000000000
91
    Size.PlatformDefault = False
92
    StyleLookup = 'pushpanel'
93
    TabOrder = 1
94
    object Image1: TImage
95
      MultiResBitmap = <
96
        item
97
        end>
98
      Position.X = 10.000000000000000000
99
      Position.Y = 10.000000000000000000
100
      Size.Width = 200.000000000000000000
101
      Size.Height = 200.000000000000000000
102
      Size.PlatformDefault = False
103
    end
104
    object SpinBox1: TSpinBox
105
      Touch.InteractiveGestures = [LongTap, DoubleTap]
106
      TabOrder = 1
107
      Cursor = crIBeam
108
      Min = 1.000000000000000000
109
      Max = 16.000000000000000000
110
      Value = 8.000000000000000000
111
      Position.X = 45.000000000000000000
112
      Position.Y = 220.000000000000000000
113
      Size.Width = 165.000000000000000000
114
      Size.Height = 20.000000000000000000
115
      Size.PlatformDefault = False
116
      OnChange = SpinBox1Change
117
    end
118
    object Label1: TLabel
119
      Position.X = 5.000000000000000000
120
      Position.Y = 220.000000000000000000
121
      Size.Width = 35.000000000000000000
122
      Size.Height = 20.000000000000000000
123
      Size.PlatformDefault = False
124
      TextSettings.HorzAlign = Trailing
125
      Text = 'DivN :'
126
    end
127
  end
128
  object LightMaterialSource1: TLightMaterialSource
129
    Diffuse = claWhite
130
    Ambient = claDimgray
131
    Emissive = claNull
132
    Specular = claNull
133
    Shininess = 30
134
    Left = 65
135
    Top = 25
136
  end
137
end
138