lab1/fBase.dfm - master - MikeLight/Lab

lab1/fBase.dfm
78 строк2 KB
MikeLight
upload files
06 окт 2025, 14:06
06 окт 2025, 14:0629d56bd
object FormBase: TFormBase
  Left = 0
  Top = 0
  Caption = #1051#1072#1073#1086#1088#1072#1090#1086#1088#1085#1072#1103' '#1088#1072#1073#1086#1090#1072' '#8470'1'
  ClientHeight = 564
  ClientWidth = 842
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  TextHeight = 13
  object GLSceneViewer1: TGLSceneViewer
    Left = 0
    Top = 0
    Width = 842
    Height = 564
    Camera = GLCamera1
    FieldOfView = 159.891326904296900000
    PenAsTouch = False
    Align = alClient
    TabOrder = 0
    ExplicitLeft = -8
    ExplicitWidth = 705
    ExplicitHeight = 501
  end
  object GLScene1: TGLScene
    Left = 24
    Top = 16
    object GLLightSource1: TGLLightSource
      ConstAttenuation = 1.000000000000000000
      Position.Coordinates = {000080BF000000400000803F0000803F}
      SpotCutOff = 180.000000000000000000
    end
    object GLSuperellipsoid1: TGLSuperellipsoid
      Radius = 0.500000000000000000
      VCurve = 1.000000000000000000
      HCurve = 1.000000000000000000
    end
    object GLSphere1: TGLSphere
      Radius = 0.500000000000000000
    end
    object GLCamera1: TGLCamera
      DepthOfView = 100.000000000000000000
      FocalLength = 50.000000000000000000
      TargetObject = GLCube1
      Position.Coordinates = {000000C000004040000040400000803F}
    end
    object GLCone1: TGLCone
      Position.Coordinates = {00000000000000000000803F0000803F}
      BottomRadius = 0.500000000000000000
      Height = 1.000000000000000000
    end
    object GLCube1: TGLCube
      Position.Coordinates = {0000004000000000000000000000803F}
    end
    object GLDisk1: TGLDisk
      Position.Coordinates = {0000004000000040000000000000803F}
      OuterRadius = 0.500000000000000000
      SweepAngle = 360.000000000000000000
    end
    object GLCylinder1: TGLCylinder
      Position.Coordinates = {0000004000000000000000400000803F}
      BottomRadius = 0.500000000000000000
      Height = 1.000000000000000000
      TopRadius = 0.500000000000000000
    end
    object GLMirror1: TGLMirror
      Material.BlendingMode = bmTransparency
      Position.Coordinates = {000000000000803F000080BF0000803F}
      Up.Coordinates = {BAF46E320000803F0000000000000000}
      Height = 1.000000000000000000
      Width = 1.000000000000000000
      Radius = 1.000000000000000000
    end
  end
end