GLScene/Examples/Demos/glslshaders/SkyShader/fdSkyShader.dfm

object FormSkyShader: TFormSkyShader
  Left = 192
  Top = 122
  Caption = 'GLSL Sky'
  ClientHeight = 561
  ClientWidth = 743
  Color = clBlack
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {
    0000010001002020100000000000E80200001600000028000000200000004000
    0000010004000000000080020000000000000000000000000000000000000000
    000000008000008000000080800080000000800080008080000080808000C0C0
    C0000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000000
    0000000000000000000000000000000078000000000000000000000000000007
    77800000000000000007800000000077CE78000000000000007CE800000007CC
    77EE80000000000007C77E8000007C77CE77E8000007800077CCEE78000077CC
    77EE8800007CE807CC7777EE80000077CE880000077CE78C77CCEE77E8000000
    780000007CC77EE8CC7777EE7E800000000000077CCCEEE78CCCEE77EEE80000
    0000007CC77CE77EE87777EEE88000000000077CCCC77EEEE78CEEE880000000
    00007CC77CCCEEE77EE8E8800000000000077CCCC77CE77EEEE7800000000000
    007CC77CCCC77EEEE77EE80000000000077CCCC77CCCEEE77EEEE78000000000
    7CC77CCCC77CE77EEEE77EE8000000077CCCC77CCCC77EEEE77EEEE78000007C
    C77CCCC77CCCEEE77EEEE77EE800077CCCC77CCCC77CE77EEEE77EEEE7807CC7
    7CCCC77CCCC77EEEE77EEEE77EE87CCCC77CCCC77CCCEEE77EEEE77EEEE8077C
    CCC77CCCC77CE77EEEE77EEEE88000077CCCC77CCCC77EEEE77EEEE880000000
    077CCCC77CCCEEE77EEEE8800000000000077CCCC77CE77EEEE8800000000000
    0000077CCCC77EEEE880000000000000000000077CCCEEE88000000000000000
    00000000077CE880000000000000000000000000000780000000000000000000
    000000000000000000000000000000000000000000000000000000000000FFFF
    FFFFF3FFFFFFE1FFFE7FC0FFFC3F807FF81F003E700F003C2007C0F80003F3F0
    0001FFE00000FFC00001FF800007FF00001FFE00007FFC00003FF800001FF000
    000FE0000007C000000380000001000000000000000080000001E0000007F800
    001FFE00007FFF8001FFFFE007FFFFF81FFFFFFE7FFFFFFFFFFFFFFFFFFF}
  Position = poScreenCenter
  OnCreate = FormCreate
  TextHeight = 13
  object SceneViewer: TGLSceneViewer
    Left = 0
    Top = 0
    Width = 743
    Height = 561
    Camera = Camera
    Buffer.BackgroundColor = clBlack
    Buffer.ContextOptions = [roDoubleBuffer, roRenderToWindow, roNoColorBufferClear]
    FieldOfView = 150.060897827148400000
    PenAsTouch = False
    Align = alClient
    TabOrder = 0
    ExplicitWidth = 609
    ExplicitHeight = 429
  end
  object GLScene1: TGLScene
    Left = 88
    Top = 16
    object DummyCam: TGLDummyCube
      CubeSize = 1.000000000000000000
      object Camera: TGLCamera
        DepthOfView = 100.000000000000000000
        FocalLength = 75.000000000000000000
        TargetObject = DummyCam
        Position.Coordinates = {0000004000004040000080400000803F}
      end
    end
    object DirectOGL: TGLDirectOpenGL
      UseBuildList = False
      OnRender = DirectOGLRender
      Blend = False
      object Thor: TGLTorus
        Direction.Coordinates = {00000000F304353FF304353F00000000}
        PitchAngle = 45.000000000000000000
        Position.Coordinates = {0000004000000000000000000000803F}
        Up.Coordinates = {00000000F304353FF30435BF00000000}
        Visible = False
        MajorRadius = 1.000000000000000000
        MinorRadius = 0.300000011920929000
        Rings = 64
        Sides = 32
        StopAngle = 360.000000000000000000
        Parts = [toSides, toStartDisk, toStopDisk]
      end
      object Sphere: TGLSphere
        Position.Coordinates = {000000C000000000000000000000803F}
        Up.Coordinates = {000080270000803F0000008000000000}
        Visible = False
        Radius = 0.699999988079071000
        Slices = 32
        Stacks = 32
      end
      object Sky: TGLSphere
        Material.Texture.ImageClassName = 'TGLCompositeImage'
        Material.Texture.Image.Width = 256
        Material.Texture.Image.Height = 256
        Material.Texture.Image.Depth = 0
        Visible = False
        NormalDirection = ndInside
        Radius = 0.500000000000000000
      end
    end
  end
  object Cadencer: TGLCadencer
    Scene = GLScene1
    Enabled = False
    SleepLength = 1
    OnProgress = CadencerProgress
    Left = 88
    Top = 80
  end
end