File: ray1.lfm

package info (click to toggle)
optgeo 2.25-1
links: PTS
area: main
in suites: bullseye, buster, sid
size: 6,948 kB
sloc: pascal: 58,877; xml: 63; makefile: 58
file content (1989 lines) | stat: -rw-r--r-- 88,663 bytes
object Form1: TForm1
  Left = 776
  Height = 436
  Top = 207
  Width = 1022
  ActiveControl = cochenormale
  Caption = 'OptGeo'
  ClientHeight = 408
  ClientWidth = 1022
  Font.Name = 'Default'
  Menu = MainMenu1
  OnActivate = FormActivate
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  OnDeactivate = FormDeactivate
  OnDestroy = FormDestroy
  OnKeyPress = FormKeyPress
  OnResize = FormResize
  OnShow = FormShow
  LCLVersion = '1.8.0.6'
  object StatusBar1: TStatusBar
    Left = 0
    Height = 22
    Top = 386
    Width = 1022
    Font.Height = -13
    Font.Name = 'Default'
    Panels = <    
      item
        Text = 'X='
        Width = 120
      end    
      item
        Text = 'Y='
        Width = 120
      end    
      item
        Width = 350
      end    
      item
        Width = 50
      end>
    ParentFont = False
    SimplePanel = False
  end
  object ToolBar1: TToolBar
    Left = 0
    Height = 33
    Top = 0
    Width = 1022
    ButtonHeight = 25
    ButtonWidth = 25
    ParentFont = False
    TabOrder = 1
    object StaticText2: TLabel
      Left = 1
      Height = 20
      Top = 2
      Width = 51
      Caption = 'Miroirs:'
      Color = clBtnFace
      Font.Color = clBlue
      Font.Style = [fsBold]
      ParentColor = False
      ParentFont = False
      Transparent = False
    end
    object boutonmiroirplan: TSpeedButton
      Left = 52
      Height = 25
      Hint = 'Ajouter un miroir plan'
      Top = 2
      Width = 27
      Glyph.Data = {
        66010000424D6601000000000000760000002800000014000000140000000100
        040000000000F000000000000000000000001000000010000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FF0FFFFFFFFF
        FFFFFFFF0000FF0FFFFFFFFFFFFFFFFF0000FF0FFFFFFFFFFFFFFFFF00000F0F
        FFFFFFFFFFFFFFFF0000F00FFFFFFFFFFFFFFFFF0000FF0FF0FFFFFFFFFFFFFF
        000000FFF0FFFFFFFFFFFFFF0000000FF0F0FFFFFFFFFFFF0000000000F0FFFF
        FFFF00000000F00000F0F0FFFFFF0FFF0000FFF00000F0FFFFFFF0FF0000FFFF
        0000F0F0FFFFFF0F0000FFFFF00000F0FFFFFFF00000FFFFFF000000F0FFFFF0
        0000FFFFFFFF0000F0FF0FF00000FFFFFFFFF00000F0F00F0000FFFFFFFFFF00
        00F0FFFF0000FFFFFFFFFFF00000FFFF0000FFFFFFFFFFFF00000FFF0000FFFF
        FFFFFFFFFF000FFF0000
      }
      OnClick = boutonmiroirplanClick
      ShowHint = True
      ParentShowHint = False
    end
    object boutonlsr: TSpeedButton
      Left = 79
      Height = 25
      Hint = 'Ajouter une lame semi-réfléchissante'
      Top = 2
      Width = 25
      Glyph.Data = {
        66010000424D6601000000000000760000002800000014000000140000000100
        040000000000F000000000000000000000001000000010000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFF0FFF
        FFFFFFFF0000FF00FFFF0FFFFFFFFFFF0000FF000FFF0FFFFFFFFFFF0000FFF0
        00F00FFFFFFFFFFF0000FFFF000F0FFFFFFFFFFF0000FFFFF000FFFFFFFFFFFF
        0000FFFFFF000FFFFFFFFFFF0000FFFFFFF000FFFFFFFFFF0000FFFFFFFF000F
        FFFFFFFF0000FFFFFFFFF000FFFFFFFF000000F00F00F0000F00F00F0000FFFF
        FFFFFFF000FFFFFF0000FFFFFFFFF0FF000FFFFF0000FFFFFFFFF0FFF000FFFF
        0000FFFFFFFFFFFFFF000FFF0000FFFFFFFFF0FFFFF000FF0000FFFFFFFFF0FF
        FF00000F0000FFFFFFFFFFFFFF0FF00F0000FFFFFFFFF0FFFFF0FFFF0000FFFF
        FFFFF0FFFF00FFFF0000
      }
      OnClick = boutonlsrClick
      ShowHint = True
      ParentShowHint = False
    end
    object boutonmscopa: TSpeedButton
      Left = 104
      Height = 25
      Hint = 'Ajouter un miroir sphérique concave paraxial'
      Top = 2
      Width = 25
      Glyph.Data = {
        66010000424D6601000000000000760000002800000014000000140000000100
        040000000000F000000000000000000000001000000010000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFF0F00F
        FFFFFFFF0000FFFFFFF0F000FFFFFF0F0000FFFFFFF0FF0000FFF0FF0000FFFF
        FF00FFF0000F0FFF0000FFFFFFF0FFFFF000FF0F0000FFFFFFFFFFFFF00FF0FF
        0000FFFFFFFFFFFFF00F0FFF0000F0FFFFFFFFFFF000FF0F0000F0FFFFFFFFFF
        F00FF0FF0000F0FF00F00F00F00F0FFF0000F000FFFFFFFFF000FF0F0000F0FF
        FFFFFFFFF00FF0FF0000F000FFFFFFFFF00F0FFF0000FFFFFFFFFFFFF000FF0F
        0000FFFFFFFFFFFFF00FF0FF0000FFFFF00FFFFFF00F0FFF0000FFFFF0FFFFF0
        0000FFFF0000FFFFFF0FFF0000FFFFFF0000FFFFF00FF000FFFFFFFF0000FFFF
        F0FFF00FFFFFFFFF0000
      }
      OnClick = boutonmscopaClick
      ShowHint = True
      ParentShowHint = False
    end
    object boutonmscepa: TSpeedButton
      Left = 129
      Height = 25
      Hint = 'Ajouter un miroir sphérique convexe paraxial'
      Top = 2
      Width = 25
      Glyph.Data = {
        66010000424D6601000000000000760000002800000014000000140000000100
        040000000000F000000000000000000000001000000010000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFF00FFF0FFF
        FFFFFFFF0000FF000FFF0FFFFFFFFFFF0000F000FFFF0FFFFFFFFFFF0000000F
        FFF00FFFFFFFFFFF000000FF0FFF0FFFFFFFFFFF000000F0FFFFFFFFFFFFFFFF
        0000000FFFFFFFFFFFFFFFFF000000FF0FFFFFFFFFFFFFFF000000F0FFFFFFFF
        FFFFFFFF00000000000F00F0000F00FF000000FF0FFFFFFFFFF0FFFF000000F0
        FFFFFFFFFFF0FFFF0000000FFFFFFFFFFFF000FF000000FF0FFFFFFFFFF0FFFF
        000000F0FFFFFFFFFFF000FF0000000FFF00FFFFFFFFFFFF0000000FFF0FFFFF
        FFFFFFFF0000F000FFF0FFFFFFFFFFFF0000FF000F00FFFFFFFFFFFF0000FFF0
        0F0FFFFFFFFFFFFF0000
      }
      OnClick = boutonmscepaClick
      ShowHint = True
      ParentShowHint = False
    end
    object boutonmscore: TSpeedButton
      Left = 154
      Height = 25
      Hint = 'Ajouter un miroir sphérique concave réel'
      Top = 2
      Width = 25
      Glyph.Data = {
        66010000424D6601000000000000760000002800000014000000140000000100
        040000000000F000000000000000000000001000000010000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFF0F
        F00FF0F00000FFFFFFFFFF0F00FF0F0F0000FFFFFFFFFF0F0000F0FF0000FFFF
        FFFFF00FFF000FFF0000FFFFFFFFFF0FFFFF0FFF0000FFFFFFFFFFFFFFFF00F0
        0000FFFFFFFFFFFFFFFFF00F0000FFFFFFFFFFFFFFFFF00F0000FFFFFFFFFFFF
        FFFFFF0F0000F00F0000F00F0000FF000000FF00FFFFFFFFFFFFFF000000F0FF
        FFFFFFFFFFFFFF000000F0FFFFFFFFFFFFFFF00F0000FF00FFFFFFFFFFFFF00F
        0000FFFFFFFFFFFFFFFF000F0000FFFFFFFFF00FFFFF00F00000FFFFFFFFF0FF
        FF0000FF0000FFFFFFFFFF0F0000FF0F0000FFFFFFFFF00F00FF0FF00000FFFF
        FFFFF0FFFF0FF0FF0000
      }
      OnClick = boutonmscoreClick
      ShowHint = True
      ParentShowHint = False
    end
    object boutonmscere: TSpeedButton
      Left = 179
      Height = 25
      Hint = 'Ajouter un miroir sphérique convexe réel'
      Top = 2
      Width = 25
      Glyph.Data = {
        66010000424D6601000000000000760000002800000014000000140000000100
        040000000000F000000000000000000000001000000010000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFF0F
        FFFFFFFF0000FFFFFFFFFF0F00FFFFFF0000FFFFFFFFFF0F0000FFFF0000FFFF
        FFFFF000FF000FFF0000FFFFFFFFFF0FF0FF0FFF0000FFFFFFFFFFFF0FFF00FF
        0000FFFFFFFFFFFFFFF0F00F0000FFFFFFFFFFFFFF0FF00F0000FFFFFFFFFFFF
        FFFF0F0F0000F00F0000F00F0000FF000000FF00FFFFFFFFFFF0FF000000F0FF
        FFFFFFFFFFFF0F000000F0FFFFFFFFFFFF0FF00F0000FF00FFFFFFFFFFF0F00F
        0000FFFFFFFFFFFF0FFF000F0000FFFFFFFFF00FF0FF00FF0000FFFFFFFFF0F0
        FF0000FF0000FFFFFFFFFF0F0000FFFF0000FFFFFFFFF00F00FFFFFF0000FFFF
        FFFFF0FFFFFFFFFF0000
      }
      OnClick = boutonmscereClick
      ShowHint = True
      ParentShowHint = False
    end
    object boutonconiqueconcave: TSpeedButton
      Left = 204
      Height = 25
      Hint = 'Ajouter un miroir  parabolique (ou elliptique, hyperbolique) concave'
      Top = 2
      Width = 25
      Glyph.Data = {
        66010000424D6601000000000000760000002800000014000000140000000100
        040000000000F000000000000000000000001000000010000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FF0FFFF0FFFF
        FFFFFFFF0000FF0FFF0FFF0FFFFFFFFF0000FF0F00FFF0FFFFFFFFFF0000F00F
        00000FFFF0FFFFFF0000FF0FFF00000F0FFFFFFF0000FFFFFFFF0000FFF0FFFF
        0000FFFFFFFFF0000F0FFFFF0000FFFFFFFFFFF000FFFFFF0000FFFFFF0FFFFF
        00FFF0000000FFFFFF0FFFFFF00FFFF00000FFFFFF000FFFFF0FF00F0000FFFF
        FF0FFFFFFF000FFF0000FFFFFF000FFFFF00F00F0000FFFFFFFFFFFFFF00FFFF
        0000FFFFFFFFFFFFF00F0FFF0000F00FFFFFFFF0000FF0FF0000F0FFFFFF0000
        00FFFFFF0000FF0FF0000000FF0FFFFF0000F00F0000FFF0FFF0FFFF0000F0FF
        FFFF0FFF0FFFFFFF0000
      }
      OnClick = boutonconiqueconcaveClick
      ShowHint = True
      ParentShowHint = False
    end
    object boutonconiqueconvexe: TSpeedButton
      Left = 229
      Height = 25
      Hint = 'Ajouter un miroir parabolique (ou elliptique, hyperbolique) convexe'
      Top = 2
      Width = 25
      Glyph.Data = {
        66010000424D6601000000000000760000002800000014000000140000000100
        040000000000F000000000000000000000001000000010000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FF0FFFFFFFFF
        FFFFFFFF0000FF0FFFFFFFFFFFFFFFFF0000FF0F00FFFFFFFFFFFFFF0000F00F
        00000FFFFFFFFFFF0000FF0FFF00000FFFFFFFFF0000FFFFF0FF0000FFFFFFFF
        0000FFFF0FF0F0000FFFFFFF0000FFFFFFFFFF0000FFFFFF0000FFFFFF0FF0FF
        00FFF0000000FFFFFF0FFFF0F00FFFF00000FFFFFF000F0FFF0FF00F0000FFFF
        FF0FFFFFFF000FFF0000FFFFFF000FF0FF00F00F0000FFFFFFFFFFFF0F00FFFF
        0000FFFFFFF0FF0FF00FFFFF0000F00FF0FF0FF0000FFFFF0000F0FFFF0F0000
        00FFFFFF0000FF0FF000000FFFFFFFFF0000F00F0000FFFFFFFFFFFF0000F0FF
        FFFFFFFFFFFFFFFF0000
      }
      OnClick = boutonconiqueconvexeClick
      ShowHint = True
      ParentShowHint = False
    end
    object ToolButton2: TToolButton
      Left = 254
      Height = 25
      Top = 2
      Caption = 'ToolButton2'
      ImageIndex = 3
      Style = tbsSeparator
    end
    object StaticText5: TLabel
      Left = 262
      Height = 20
      Top = 2
      Width = 47
      Caption = 'Ecrans:'
      Font.Color = clPurple
      Font.Style = [fsBold]
      ParentColor = False
      ParentFont = False
    end
    object boutonecran: TSpeedButton
      Left = 309
      Height = 25
      Hint = 'Ajouter un écran'
      Top = 2
      Width = 25
      Glyph.Data = {
        66010000424D6601000000000000760000002800000014000000140000000100
        040000000000F000000000000000000000001000000010000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFF0FFFF
        FFFFFFFF0000FFFFFFF0FFFFFFFFFFFF0000FFFFFFF0FFFFFFFFFFFF0000F00F
        FF00FFFFFFFFFFFF0000F000FFF0FFFFFFFFFFFF0000FF000FFFFFFFFFFFFFFF
        0000FFF000FFFFFFFFFFFFFF0000FFFF000FFFFFFFFFFFFF0000FFFFF000FFFF
        FFFFFFFF0000FFFFFF000FFFFFFFFFFF0000FFFFFFF000FFFFFFFFFF0000FFFF
        FFFF000FFFFF00FF0000FFFFFFFFF000FFFF0FFF0000FFFFFFFFFF000FFFF0FF
        0000FFFFFFFFFFF000FF00FF0000FFFFFFFFFFFF000F0FFF0000FFFFFFFFFFFF
        F000FFFF0000FFFFFFFFFFFFFF000FFF0000FFFFFFFFFFFFFFF00FFF0000FFFF
        FFFFFFFFFFFFFFFF0000
      }
      OnClick = boutonecranClick
      ShowHint = True
      ParentShowHint = False
    end
    object boutondia: TSpeedButton
      Left = 334
      Height = 25
      Hint = 'Ajouter un diaphragme à iris'
      Top = 2
      Width = 25
      Glyph.Data = {
        66010000424D6601000000000000760000002800000014000000140000000100
        040000000000F000000000000000000000001000000010000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFF00000
        0FFFFFFF0000FFFFF00FFFFFF00FFFFF0000FFF000FFFFFFFFF00FFF0000FF0F
        FF000FFFFFF0F0FF0000FF0FFFFF0FFFFFF0F0FF0000F0FFFFFFF0FFFFF0FF0F
        0000F0FFFFFF0000FFFF0F0F00000FFFFFF0FFFF0FFF0FF000000FFFFF0FFFFF
        F0FF0FF000000FFFF00FFFFFF0F0FFF000000FFF0F0FFFFFF00FFFF000000FF0
        FF0FFFFFF0FFFFF000000FF0FFF0FFFF0FFFFFF00000F0F0FFFF0000FFFFFF0F
        0000F0FF0FFFF0FFFFFFFF0F0000FF0F0FFFFF0FFFFFF0FF0000FF0F0FFFFFF0
        00FFF0FF0000FFF00FFFFFFFFF000FFF0000FFFFF00FFFFFF00FFFFF0000FFFF
        FFF000000FFFFFFF0000
      }
      OnClick = boutondiaClick
      ShowHint = True
      ParentShowHint = False
    end
    object ToolButton6: TToolButton
      Left = 359
      Height = 25
      Top = 2
      Caption = 'ToolButton6'
      ImageIndex = 4
      Style = tbsSeparator
    end
    object StaticText3: TLabel
      Left = 367
      Height = 20
      Top = 2
      Width = 57
      Caption = 'Sources:'
      Font.Color = clRed
      Font.Style = [fsBold]
      ParentColor = False
      ParentFont = False
    end
    object boutonrayon: TSpeedButton
      Left = 424
      Height = 25
      Hint = 'Ajouter un rayon'
      Top = 2
      Width = 25
      Glyph.Data = {
        66010000424D6601000000000000760000002800000014000000140000000100
        040000000000F000000000000000000000001000000010000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FF0FFFFFFFFF
        FFF0000F0000FF0FFFFFFFFFFFF0FFFF0000FF0FFFFFFFFFFFFF0FFF0000FF0F
        FFFFFFFFFFFFF0FF0000FF0FFFFFFFFFFFFFFF0F00000F0FFFFFFFFFFFFFFF0F
        0000F00FFFFFFFFFFFF0FF0F0000FF0FFFFFFFFFFFFF00FF0000FFFFFFFFFFFF
        FFFFFFFF0000FFFFFFFFFFFFFFFFFFFF0000FFFFFFFFFFFFFFFFFFFF0000FFFF
        FFF0FFFFFFFFFFFF0000FFFFFFFF0FFFFFFFFFFF0000FFFFFFFFF0FFFFFFFFFF
        0000000000000000000000000000000000000000000000000000FFFFFFFFF0FF
        FFFFFFFF0000FFFFFFFF0FFFFFFFFFFF0000FFFFFFF0FFFFFFFFFFFF0000FFFF
        FFFFFFFFFFFFFFFF0000
      }
      OnClick = boutonrayonClick
      ShowHint = True
      ParentShowHint = False
    end
    object boutonsourceponctuelle: TSpeedButton
      Left = 449
      Height = 25
      Hint = 'Ajouter un objet ponctuel réel'
      Top = 2
      Width = 25
      Glyph.Data = {
        66010000424D6601000000000000760000002800000014000000140000000100
        040000000000F000000000000000000000001000000010000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
        F00FFF0F0000FFFFFFFFFFFF000FFF0F0000FFFFFFFF000000FFFF0F0000FFFF
        FFFFFF000FFFF00F0000FFFFFFFFF0000FFFFF0F0000FFFFFFFF000F0FFFFFFF
        0000FFFFFFF000FF0FFFFFFF0000FFFFFF000FFFFFFFFFFF0000F000F000FFFF
        0FFFFFFF00000FF0F00FFFFFFFFFFFFF0000F00FF00FFFFFFFFFFFFF00000FF0
        F00FFFFFFFFFFFFF0000000FF000FFFFFFFFFFFF0000FFFFFF000FFFFFFFFFFF
        0000FFFFFFF0000FF0FFFFFF0000FFFFFFFF0000F0FF00FF0000FFFFFFFFFF00
        00FF0FFF0000FFFFFFFFFFF000FFF0FF0000FFFFFFFFF000000F00FF0000FFFF
        FFFFFFFFF00F0FFF0000
      }
      OnClick = boutonsourceponctuelleClick
      ShowHint = True
      ParentShowHint = False
    end
    object boutonspv: TSpeedButton
      Left = 474
      Height = 25
      Hint = 'Ajouter un objet ponctuel virtuel'
      Top = 2
      Width = 25
      Glyph.Data = {
        66010000424D6601000000000000760000002800000014000000140000000100
        040000000000F000000000000000000000001000000010000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFF00FFFFFF
        FFFFFFFF0000FFFF0FFFFFFFFFFFFF000000FFFFF0FFFFFFFFFFF00F00000FFF
        00FFFFFFFFFF00FF0000000F0FFFFFFFFFF00FFF0000F0000FFFFFFF0000FFFF
        0000FFF0000FFFFFF000FFFF0000FFFFF0000FFF00F0FFFF0000FFFFFFF000F0
        0FF0FFFF0000FFFFFFFFF000FFFFFFFF0000FFFFFFFFF00000FFF0FF0000FF0F
        FFFF00FFF000F0FF0000FF0FFFF00FFFFFF000FF0000FF0FFF00FF000FFFF000
        0000F00FF00FF0FF0F0000FF0000FF0F00FFFF00FFFFFFFF0000FFF00FFFF0FF
        0FFFFFFF0000FF00FFFFF000FFFFFFFF0000F00FFFFFFFFFFFFFFFFF000000FF
        FFFFFFFFFFFFFFFF0000
      }
      OnClick = boutonspvClick
      ShowHint = True
      ParentShowHint = False
    end
    object boutonondeplane: TSpeedButton
      Left = 499
      Height = 25
      Hint = 'Ajouter une onde plane'
      Top = 2
      Width = 25
      Glyph.Data = {
        66010000424D6601000000000000760000002800000014000000140000000100
        040000000000F000000000000000000000001000000010000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
        FFFFF00F0000FFFFFFFFFFFFFFFFF0F00000FF0FFFFFF0FFFFFFF0F00000FF0F
        FFFFFF0FFFFFF0F00000FF0FFFFFFFF0FFFFF00F0000F00F0000000000000000
        0000FF0F00000000000000000000FFFFFFFFFFF0FFFFFFFF0000FFFFFFFFFF0F
        FFFFFFFF0000FFFFFFFFF0FFFFFFFFFF0000FFFFFFFFFFFFFFFFFFFF0000FFFF
        FFFFFFFFFFFFFFFF0000FFFFFFFF0FFFFFFFFFFF000000FFFFFFF0FFFFFFFFFF
        00000FFFFFFFFF0FFFFFFFFF0000F0FF0000000000000000000000FF00000000
        0000000000000FFFFFFFFF0FFFFFFFFF0000FFFFFFFFF0FFFFFFFFFF0000FFFF
        FFFF0FFFFFFFFFFF0000
      }
      OnClick = boutonondeplaneClick
      ShowHint = True
      ParentShowHint = False
    end
    object ToolButton4: TToolButton
      Left = 524
      Height = 25
      Top = 2
      Caption = 'ToolButton4'
      ImageIndex = 0
      Style = tbsSeparator
    end
    object StaticText4: TLabel
      Left = 532
      Height = 20
      Top = 2
      Width = 62
      Caption = 'Dioptres:'
      Font.Color = clGreen
      Font.Style = [fsBold]
      ParentColor = False
      ParentFont = False
    end
    object boutonlmc: TSpeedButton
      Left = 594
      Height = 25
      Hint = 'Ajouter une lentille mince convergente paraxiale'
      Top = 2
      Width = 25
      Glyph.Data = {
        66010000424D6601000000000000760000002800000014000000140000000100
        040000000000F000000000000000000000001000000010000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFF00FF
        FFF0FFFF0000FFFFFFF0000FFFF0FFFF0000FFFFFF0F00F0FFF0FFFF0000FFFF
        F0FF00FF0F00FFFF0000FFFFFFFF00FFFFF0FFFF0000FFFFFFFF00FFFFFFFFFF
        0000FFFFFFFF00FFFFFFFFFF0000FFFFFFFF00FFFFFFFFFF0000FFFFFFFF00FF
        FFFFFFFF0000000F00FF00FF000F00F00000FFFFFFFF00FFFFFFFFFF00000FFF
        FFFF00FFFFFFF0FF00000FFFFFFF00FFFFFFF0FF0000000FFFFF00FFFFFFF000
        00000FFFFFFF00FFFFFFF0FF0000000FFFFF00FFFFFFF0000000FFFFF0FF00FF
        000FFFFF0000FFFFFF0F00F0F0FFFFFF0000FFFFFFF0000FFF0FFFFF0000FFFF
        FFFF00FFF00FFFFF0000
      }
      OnClick = boutonlmcClick
      ShowHint = True
      ParentShowHint = False
    end
    object boutonlmd: TSpeedButton
      Left = 619
      Height = 25
      Hint = 'Ajouter une lentille mince divergente paraxiale'
      Top = 2
      Width = 25
      Glyph.Data = {
        66010000424D6601000000000000760000002800000014000000140000000100
        040000000000F000000000000000000000001000000010000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFF0FFFFFF
        0FF0FFFF0000FFFFFF0FFFF0FFF0FFFF0000FFFFFFF0FF0FFFF0FFFF0000FFFF
        FFFF00FFFF00FFFF0000FFFFFFFF00FFFFF0FFFF0000FFFFFFFF00FFFFFFFFFF
        0000FFFFFFFF00FFFFFFFFFF0000FFFFFFFF00FFFFFFFFFF0000FFFFFFFF00FF
        FFFFFFFF0000000F00FF00FF000F00F00000FFFFFFFF00FFFFFFFFFF00000FFF
        FFFF00FFFFFFF0FF00000FFFFFFF00FFFFFFF0FF0000000FFFFF00FFFFFFF000
        00000FFFFFFF00FFFFFFF0FF0000000FFFFF00FFFFFFF0000000FFFFFFFF00FF
        F00FFFFF0000FFFFFFF0FF0FF0FFFFFF0000FFFFFF0FFFF0FF0FFFFF0000FFFF
        F0FFFFFF000FFFFF0000
      }
      OnClick = boutonlmdClick
      ShowHint = True
      ParentShowHint = False
    end
    object boutonlec: TSpeedButton
      Left = 652
      Height = 25
      Hint = 'Ajouter une lentille épaisse'
      Top = 2
      Width = 25
      Glyph.Data = {
        66010000424D6601000000000000760000002800000014000000140000000100
        040000000000F000000000000000000000001000000010000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
        FFF0FFFF0000FFFFFFF0000FFFF0FFFF0000FFFFFF00FF00FFF0FFFF0000FFFF
        F00FFFF000F0FFFF0000FFFF00FFFFFF0F00FFFF0000FFFF00FFFFFF00F0FFFF
        0000FFFF00FFFFFF00FFFFFF0000FFF00FFFFFFFF00FFFFF0000FFF00FFFFFFF
        F00FFFFF0000FFF00FFFFFFFF00FFFFF000000000F00F000F0000F000000FFF0
        0FFFFFFFF00FFFFF0000FFF00FFFFFFFF00FFFFF0000FFF00FFFFFFFF0FFFFFF
        0000FFFF00FFFFFF00000FFF0000FFFF00FFFFFF00F0FFFF0000FFFF00FFFFFF
        00F0FFFF0000FFFFF00FFFF00FFF0FFF0000FFFFFF00FF00FF000FFF0000FFFF
        FFF0000FFFFFFFFF0000
      }
      OnClick = boutonlecClick
      ShowHint = True
      ParentShowHint = False
    end
    object boutonpoly: TSpeedButton
      Left = 677
      Height = 25
      Hint = 'Ajouter un polygône réfractant'
      Top = 2
      Width = 25
      Glyph.Data = {
        66010000424D6601000000000000760000002800000014000000140000000100
        040000000000F000000000000000000000001000000010000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFF00FFFFF
        FFFFF0FF0000FFFFF0FFFFFFFFFFFF0F0000FFFFFF0FF0000FFFF0FF0000FFFF
        F00F0000000FFF0F0000FF0FF0F000FF000000FF0000FF0FFF000FFFFF000FFF
        0000FF0FF000FFFFFFF00FFF0000F00FF00FFFFFFFF00FFF0000FF0F00FFFFFF
        FFF00FFF0000FFF000FFFFFFFFF00FFF0000FF000FFFFFFFFFF00FFF0000F000
        FFFFFFFFFFF00FFF0000F00FFFFFFFFFFFF00FFF0000F000FFFFFFFFFFF00FFF
        0000FF000FFFFFFFFFF00FFF0000F0F000FFFFFFFFF00FFF0000FF0F000FFFFF
        FFF00FF00000F0FFF0000000000000000000F0FFFF000000000000F00000F00F
        FFFFFFFFFFFFFF000000
      }
      OnClick = boutonpolyClick
      ShowHint = True
      ParentShowHint = False
    end
    object boutonprisme: TSpeedButton
      Left = 702
      Height = 25
      Hint = 'Ajouter un prisme isocéle'
      Top = 2
      Width = 25
      Glyph.Data = {
        76060000424D7606000000000000360000002800000014000000140000000100
        2000000000004006000064000000640000000000000000000000000000FF0000
        00FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF0000
        00FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF0000
        00FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF0000
        00FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF0000
        00FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF0000
        00FFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000
        00FF000000FFFFFFFF00FFFFFF00000000FF000000FFFFFFFF00FFFFFF00FFFF
        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00FFFFFF00FFFFFF00000000FF000000FFFFFFFF00FFFFFF000000
        00FF000000FFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00000000FF0000
        00FFFFFFFF00FFFFFF00FFFFFF00FFFFFF00000000FF000000FFFFFFFF00FFFF
        FF00FFFFFF00FFFFFF00FFFFFF00000000FF000000FFFFFFFF00FFFFFF00FFFF
        FF00FFFFFF00FFFFFF00000000FF000000FFFFFFFF00FFFFFF00FFFFFF00FFFF
        FF00000000FF000000FFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000
        00FF000000FFFFFFFF00FFFFFF00FFFFFF00FFFFFF00000000FF000000FFFFFF
        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00000000FF000000FFFFFF
        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00000000FF000000FFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00000000FF000000FFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00000000FF000000FFFFFFFF00FFFF
        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00000000FF0000
        00FFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00000000FF000000FFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00FFFFFF00000000FF000000FFFFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00FFFFFF00FFFFFF00000000FF000000FFFFFFFF00FFFFFF00FFFF
        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000
        00FF000000FFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000
        00FF000000FFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00FFFFFF00FFFFFF00000000FF000000FFFFFFFF00FFFFFF00FFFF
        FF00FFFFFF00FFFFFF00000000FF000000FFFFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00000000FF000000FFFFFFFF00FFFFFF00FFFFFF00FFFFFF00000000FF0000
        00FFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00000000FF000000FFFFFFFF00FFFF
        FF00FFFFFF00000000FF000000FFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00000000FF000000FFFFFFFF00FFFFFF00000000FF000000FFFFFF
        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00000000FF000000FFFFFF
        FF00000000FF000000FFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00FFFFFF00000000FF000000FF000000FF000000FFFFFFFF00FFFF
        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00000000FF0000
        00FF000000FFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00FFFFFF00000000FF000000FF000000FFFFFFFF00FFFFFF00FFFF
        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00
      }
      OnClick = boutonprismeClick
      ShowHint = True
      ParentShowHint = False
    end
    object boutonsphere: TSpeedButton
      Left = 727
      Height = 25
      Hint = 'Ajouter une sphère réfractante'
      Top = 2
      Width = 25
      Glyph.Data = {
        66010000424D6601000000000000760000002800000014000000140000000100
        040000000000F000000000000000000000001000000010000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFF0000000
        000FFFFF0000FFFF000000000000FFFF0000FFF000FFFFFFFF000FFF0000FF00
        0FFFFFFFFFF000FF0000F000FFFFFF00FFFF000F0000F00FFFFFF0FFFFFFF00F
        000000FFFFFFF0FFFFFFFF00000000FFFFFFFF00FFFFFF00000000FFFFFFFFFF
        FFFFFF00000000FFFFFFF00FFFFFFF00000000FFFFFFF00FFFFFFF00000000FF
        FFFFFFFFFFFFFF00000000FFFFFFFFFFFFFFFF00000000FFFFFFFFFFFFFFFF00
        0000F00FFFFFFFFFFFFFF00F0000F000FFFFFFFFFFFF000F0000FF000FFFFFFF
        FFF000FF0000FFF000FFFFFFFF000FFF0000FFFF000000000000FFFF0000FFFF
        F0000000000FFFFF0000
      }
      OnClick = boutonsphereClick
      ShowHint = True
      ParentShowHint = False
    end
    object boutonpolycercle: TSpeedButton
      Left = 752
      Height = 25
      Hint = 'Ajouter une polycercle réfractant'
      Top = 2
      Width = 25
      Glyph.Data = {
        66010000424D6601000000000000760000002800000014000000140000000100
        040000000000F000000000000000000000001000000010000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFF000FFFFF
        FFFF0FFF0000FFFF0FFFFFFFFFFF0FFF0000FFFFF0FFFFFFFFFF0FFF0000FFFF
        FF0FFFFFFFF00FFF0000FFFF0F0F000FFFFF0FFF0000FFFF0000FFF00FFFFFFF
        0000FFFF00FFFFFFF00FFFFF0000FFF0FFFFFFFFFFF0FFFF0000FF0FFFFFFFFF
        FFFF0FFF0000FFF0FFFFFFFFFFFF0FFF0000F0FF0FFFFFFFFFFF0FFF00000F0F
        F0FFFFFFFFFF0FFF0000FF0FF0FFFFFFFFFF0FFF0000F0FFF0FFFFFFFFFF0FFF
        0000FF0FF0FFFFFFFFFF0FFF000000FF0FFFFFFFFFFF0FFF0000FFF0FFFFFFFF
        FFFF0FFF0000FF0FFFFF00FFFFF0FFFF0000FFF0FFF0FF0FFF0FFFFF0000FFFF
        000FFFF000FFFFFF0000
      }
      OnClick = boutonpolycercleClick
      ShowHint = True
      ParentShowHint = False
    end
    object ToolButton5: TToolButton
      Left = 644
      Height = 25
      Top = 2
      Caption = 'ToolButton5'
      ImageIndex = 1
      Style = tbsSeparator
    end
  end
  object ToolBar2: TToolBar
    Left = 0
    Height = 29
    Top = 33
    Width = 1022
    ButtonHeight = 25
    ButtonWidth = 25
    TabOrder = 2
    object StaticText6: TLabel
      Left = 1
      Height = 20
      Top = 2
      Width = 47
      Caption = 'Divers:'
      Font.Color = clMaroon
      Font.Style = [fsBold]
      ParentColor = False
      ParentFont = False
    end
    object boutondistance: TSpeedButton
      Left = 48
      Height = 25
      Hint = 'Mesurer la distance entre deux points'
      Top = 2
      Width = 25
      Glyph.Data = {
        66010000424D6601000000000000760000002800000014000000140000000100
        040000000000F000000000000000000000001000000010000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
        FFFFFFFF0000FFFFFFFFFFFFFFFFFFFF0000FF000FFF0FF00FF00F0F0000FF0F
        F0FF0F0FF0F0FFFF0000FF0FFF0F0FFF0FF0FFFF0000FF0FFF0F0FF0FFF0FFFF
        0000FF0FFF0F0F0FF0F0FFFF0000FF0FFF0F0F000F000FFF0000FF0FF0FFFFFF
        FFF0FFFF0000FF000FFF0FFFFFF0FFFF0000FFFFFFFFFFFFFFFFFFFF0000FFFF
        FFFFFFFFFFFFFFFF00000000000000000000000000000FF0FF0FF0FF0FF0FFF0
        00000FF0FF0FF0FF0FF0FFF000000FFFFF0FFFFF0FFFFFF000000FFFFFFFFFFF
        FFFFFFF000000FFFFFFFFFFFFFFFFFF00000FFFFFFFFFFFFFFFFFFFF0000FFFF
        FFFFFFFFFFFFFFFF0000
      }
      OnClick = boutondistanceClick
      ShowHint = True
      ParentShowHint = False
    end
    object boutonangle: TSpeedButton
      Left = 73
      Height = 25
      Hint = 'Mesurer un angle'
      Top = 2
      Width = 25
      Glyph.Data = {
        66010000424D6601000000000000760000002800000014000000140000000100
        040000000000F000000000000000000000001000000010000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
        FFFFFFFF0000FFFFFFFFFFFFFF000F000000FFFFFFFFFFFFF00F00000000FFFF
        FFFFFFFFF00FF00F0000FF00FFFFFFFFF00FF00F0000FF0F00FFFFFFF00F0000
        0000FF0FFF00FFFFFF000F000000FFF0FFF000FFFFFFFFFF0000FFF0FFF0FF00
        0FFFFFFF0000FFF0FF0FFFFFF00FFFFF0000FFF000FFFFFFFFF00FFF0000FFF0
        FFFFFFFFFFFFF00F0000FFFF0FFFFFFFFFFFFFFF0000FFFF0FFFFFFFFFFFFFFF
        0000FFFF0FFFFFFFFFFFFFFF0000FFFF0FFFFFFFFFFFFFFF0000FFFF0FFFFFFF
        FFFFFFFF0000FFFFF0FFFFFFFFFFFFFF0000FFFFF0FFFFFFFFFFFFFF0000FFFF
        F0FFFFFFFFFFFFFF0000
      }
      OnClick = boutonangleClick
      ShowHint = True
      ParentShowHint = False
    end
    object boutontexte: TSpeedButton
      Left = 98
      Height = 25
      Hint = 'Ajouter un texte sur le dessin'
      Top = 2
      Width = 25
      Caption = 'A'
      OnClick = boutontexteClick
      ShowHint = True
      ParentShowHint = False
    end
    object boutonfleche: TSpeedButton
      Left = 123
      Height = 25
      Hint = 'Ajouter un trait, une fléche...'
      Top = 2
      Width = 25
      Glyph.Data = {
        66010000424D6601000000000000760000002800000014000000140000000100
        040000000000F000000000000000000000001000000010000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
        FFFFFFFF0000FFF0FFFFFFFFFFFFFFFF0000FF0FFFFFFFFFFFFFFFFF0000F000
        FFFFFFFFFFFFFFFF0000F0000FFFFFFFFFFFFFFF00000F0000FFFFFFFFFFFFFF
        0000FFF0000FFFFFFFFFFFFF0000FFFF0000FFFFFFFFFFFF0000FFFFF0000FFF
        FFFFFFFF0000FFFFFF0000FFFFFFFFFF0000FFFFFFF0000FFFFFFFFF0000FFFF
        FFFF0000FFF0FFFF0000FFFFFFFFF0000FF0FFFF0000FFFFFFFFFF0000F0FFFF
        0000FFFFFFFFFFF00000FFFF0000FFFFFFFFFFFF0000FFFF0000FFFFFFFFFFFF
        F000FFFF0000FFFFFFFFFF000000FFFF0000FFFFFFFFFFFFFFFFFFFF0000FFFF
        FFFFFFFFFFFFFFFF0000
      }
      OnClick = boutonflecheClick
      ShowHint = True
      ParentShowHint = False
    end
    object boutonfantome: TSpeedButton
      Left = 148
      Height = 25
      Hint = 'Cacher des segments de rayon'
      Top = 2
      Width = 25
      Glyph.Data = {
        66010000424D6601000000000000760000002800000014000000140000000100
        040000000000F000000000000000000000001000000010000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFEEEEE
        EEEFFFFF0000FFFFFFFEEEEEEEEFFFFF0000FFFFFFFEEEEEEEEFFFFF0000FFFF
        FFFEEEEEEEEFFFFF0000FFFFFFFEEEEEEEEFFFFF0000FFFFFFFEEEEEEEEFFFFF
        0000FEEEEEFEEEEEEEEEEEEE0000FEEEEEEEEEEEEEEEEEEE0000FFFFEEEEE000
        0EEEEFFF0000FFFFFFEE0EEEE0EFFFFF0000FFFFFFEEEEEEEEEFFFFF0000FFFF
        FFEEEEEEEEEFFFFF0000FFFFFEEEEEEEEEEEFFFF0000FFFFFEEEEEEEEEEEFFFF
        0000FFFFFE00EEEEE00EFFFF0000FFFFFE00EEEEE00EFFFF0000FFFFFFEEEEEE
        EEEFFFFF0000FFFFFFFEEEEEEEFFFFFF0000FFFFFFFFEEEEEFFFFFFF0000FFFF
        FFFFFFFFFFFFFFFF0000
      }
      OnClick = boutonfantomeClick
      ShowHint = True
      ParentShowHint = False
    end
    object SpeedButton1: TSpeedButton
      Left = 173
      Height = 25
      Hint = 'Ajouter (ou éditer) le commentaire de la simulation'
      Top = 2
      Width = 25
      Glyph.Data = {
        66010000424D6601000000000000760000002800000014000000140000000100
        040000000000F000000000000000000000001000000010000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00000000000000
        00000000000000000000000000000000000000FFFFFFFFFFFFFFFF00000000FF
        00000FFFFFFFFF00000000FFFFFFFFFFFFFFFF00000000FF000000000000FF00
        000000FFFFFFFFFFFFFFFF00000000FF000000FFFFFFFF00000000FFFFFFFFFF
        FFFFFF00000000FF000000000000FF00000000FFFFFFFFFFFFFFFF00000000FF
        000000000000FF00000000FFFFFFFFFFFFFFFF00000000FF000000000FFFFF00
        000000FFFFFFFFFFFFFFFF00000000FF000000000000FF00000000FFFFFFFFFF
        FFFFFF00000000FFFFFFFFFFFFFFFF0000000000000000000000000000000000
        00000000000000000000
      }
      OnClick = SpeedButton1Click
      ShowHint = True
      ParentShowHint = False
    end
    object boutonoeil: TSpeedButton
      Left = 198
      Height = 25
      Hint = 'Ajouter un oeil stylisé'
      Top = 2
      Width = 25
      Glyph.Data = {
        66010000424D6601000000000000760000002800000014000000140000000100
        040000000000F000000000000000000000001000000010000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
        FF0FFFFF0000FFFFFFFFFFFFF0FFFFFF0000FFFFFFFFFFFF0FFFFFFF0000FFFF
        FFFFFFF0FFFFFFFF0000FFFFFFFFFF0F0FFFFFFF0000FFFFFFFFF0FFF0FFFFFF
        0000FFFFFFF00FFFFF0FFFFF0000FFFFF00FFFFFFF0FFFFF0000FFF00FFFFFFF
        FFF0FFFF0000000FFFFFFFFFF000FFFF0000000FFFFFFFFFF000FFFF0000FFF0
        0FFFFFFFFFF0FFFF0000FFFFF00FFFFFFF0FFFFF0000FFFFFFF00FFFFF0FFFFF
        0000FFFFFFFFF0FFF0FFFFFF0000FFFFFFFFFF0F0FFFFFFF0000FFFFFFFFFFF0
        FFFFFFFF0000FFFFFFFFFFFF0FFFFFFF0000FFFFFFFFFFFFF0FFFFFF0000FFFF
        FFFFFFFFFF0FFFFF0000
      }
      OnClick = boutonoeilClick
      ShowHint = True
      ParentShowHint = False
    end
    object StaticText7: TLabel
      Left = 256
      Height = 20
      Top = 2
      Width = 59
      Caption = 'Afficher:'
      Font.Style = [fsBold]
      ParentColor = False
      ParentFont = False
    end
    object ToolButton1: TToolButton
      Left = 248
      Height = 25
      Top = 2
      Caption = 'ToolButton1'
      ImageIndex = 0
      Style = tbsSeparator
    end
    object ToolButton9: TToolButton
      Left = 788
      Height = 25
      Top = 2
      Caption = 'ToolButton9'
      ImageIndex = 1
      Style = tbsSeparator
    end
    object StaticText1: TLabel
      Left = 796
      Height = 20
      Top = 2
      Width = 42
      Caption = 'Zoom:'
      Font.Style = [fsBold]
      ParentColor = False
      ParentFont = False
    end
    object SpeedButton2: TSpeedButton
      Left = 736
      Height = 25
      Hint = 'Afficher les coordonnées des segments'
      Top = 2
      Width = 52
      Caption = 'Coord.'
      OnClick = SpeedButton2Click
      ShowHint = True
      ParentFont = False
      ParentShowHint = False
    end
    object cochenormale: TCheckBox
      Left = 315
      Height = 24
      Top = 2
      Width = 88
      Caption = 'Normales'
      Checked = True
      OnClick = cochenormaleClick
      ParentFont = False
      State = cbChecked
      TabOrder = 0
    end
    object cocheangles: TCheckBox
      Left = 403
      Height = 24
      Top = 2
      Width = 185
      Caption = 'Angles d''incid. et de réfr.'
      OnChange = cocheanglesChange
      OnClick = cocheanglesClick
      ParentFont = False
      TabOrder = 1
    end
    object cochegrille: TCheckBox
      Left = 588
      Height = 24
      Top = 2
      Width = 60
      Caption = 'Grille'
      OnClick = cochegrilleClick
      ParentFont = False
      TabOrder = 2
    end
    object cocheattraction: TCheckBox
      Left = 648
      Height = 24
      Top = 2
      Width = 88
      Caption = 'Attraction'
      OnClick = cocheattractionClick
      ParentFont = False
      TabOrder = 3
    end
    object ComboZoom: TComboBox
      Left = 838
      Height = 36
      Hint = 'Facteur de zoom'
      Top = 2
      Width = 79
      ItemHeight = 0
      Items.Strings = (
        'x1'
        'x2'
        'x5'
        'x10'
        'x20'
        'x50'
        'x100'
      )
      OnChange = ComboZoomChange
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      Style = csDropDownList
      TabOrder = 4
    end
    object boutonreseau: TSpeedButton
      Left = 223
      Height = 25
      Top = 2
      Width = 25
      Glyph.Data = {
        26050000424D2605000000000000760000002800000014000000140000000100
        180000000000B0040000120B0000120B00001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
        000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FFFFFF000000FFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFF000000000000FFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFF000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000
        00000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000
        000000000000FFFFFF000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFF000000000000000000000000FFFFFF000000000000FF
        FFFFFFFFFF000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFF000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000
        00000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFF000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000
        000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFF000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000FF
        FFFFFFFFFF000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFF000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FFFFFF0000
        00000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF00
        0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFF000000FFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FFFFFF00
        0000000000000000FFFFFFFFFFFFFFFFFF000000000000FFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000000000
        00000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000000000
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFF00
        0000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000000000000000
        00FFFFFFFFFFFFFFFFFF
      }
      OnClick = boutonreseauClick
      ShowHint = True
      ParentShowHint = False
    end
  end
  object ScrollBox1: TScrollBox
    Left = 0
    Height = 324
    Top = 62
    Width = 1022
    HorzScrollBar.Page = 798
    HorzScrollBar.Range = 801
    HorzScrollBar.Visible = False
    VertScrollBar.Page = 301
    VertScrollBar.Range = 320
    VertScrollBar.Visible = False
    Align = alClient
    AutoScroll = False
    ClientHeight = 322
    ClientWidth = 1020
    TabOrder = 3
    object Image1: TImage
      Left = 0
      Height = 320
      Top = 0
      Width = 1017
      OnMouseDown = Image1MouseDown
      OnMouseMove = Image1MouseMove
    end
  end
  object MainMenu1: TMainMenu
    left = 384
    top = 160
    object Fichier1: TMenuItem
      Caption = 'Fichier'
      object Nouveau1: TMenuItem
        Caption = 'Nouvelle simulation'
        OnClick = Nouveau1Click
      end
      object Ouvrirsimulation1: TMenuItem
        Caption = 'Ouvrir simulation'
        object durpertoireexemples1: TMenuItem
          Caption = 'de mon répertoire personnel'
          OnClick = durpertoireexemples1Click
        end
        object durpertoireexemples2: TMenuItem
          Caption = 'du répertoire "exemples"'
          OnClick = durpertoireexemples2Click
        end
        object dudernierrpertoireutilis1: TMenuItem
          Caption = 'du dernier répertoire de chargement autre que ceux ci-dessus'
          OnClick = dudernierrpertoireutilis1Click
        end
      end
      object MenuItem9: TMenuItem
        Caption = 'Superposer simulation'
        object MenuItem10: TMenuItem
          Caption = 'de mon répertoire personnel'
          OnClick = MenuItem10Click
        end
        object MenuItem11: TMenuItem
          Caption = 'du répertoire "exemples"'
          OnClick = MenuItem11Click
        end
        object MenuItem12: TMenuItem
          Caption = 'du dernier répertoire de chargement autre que ceux ci-dessus'
          OnClick = MenuItem12Click
        end
      end
      object Enregistrersimulation1: TMenuItem
        Caption = 'Enregistrer simulation sous'
        OnClick = Enregistrersimulation1Click
      end
      object Enregistrersimulation2: TMenuItem
        Caption = 'Enregistrer simulation'
        OnClick = Enregistrersimulation2Click
      end
      object N15: TMenuItem
        Caption = '-'
      end
      object Modifierdimensionsespacedetravail1: TMenuItem
        Caption = 'Modifier les dimensions de l''espace de travail'
        object Ajusterautomatiquement1: TMenuItem
          Caption = 'Ajuster automatiquement à la plus petite taille'
          OnClick = Ajusterautomatiquement1Click
        end
        object Manuellement1: TMenuItem
          Caption = 'Manuellement'
          OnClick = Manuellement1Click
        end
      end
      object N3: TMenuItem
        Caption = '-'
      end
      object Prfrences1: TMenuItem
        Caption = 'Préférences'
        OnClick = Prfrences1Click
      end
      object N17: TMenuItem
        Caption = '-'
      end
      object Imprimer1: TMenuItem
        Caption = 'Imprimer'
        OnClick = Imprimer1Click
      end
      object N4: TMenuItem
        Caption = '-'
      end
      object MenuItem1: TMenuItem
        Caption = 'Exporter graphe'
        object MenuItem3: TMenuItem
          Caption = 'PNG'
          OnClick = MenuItem3Click
        end
        object MenuItem4: TMenuItem
          Caption = 'JPG'
          OnClick = MenuItem4Click
        end
        object MenuItem8: TMenuItem
          Caption = 'PS'
          OnClick = MenuItem8Click
        end
      end
      object MenuItem2: TMenuItem
        Caption = '-'
      end
      object Quitter1: TMenuItem
        Caption = 'Quitter'
        OnClick = Quitter1Click
      end
    end
    object Edition1: TMenuItem
      Caption = 'Edition'
      object Rtablir1: TMenuItem
        Caption = 'Annuler'
        Enabled = False
        ShortCut = 16474
        OnClick = Rtablir1Click
      end
      object Refaire1: TMenuItem
        Caption = 'Refaire'
        Enabled = False
        ShortCut = 16466
        OnClick = Refaire1Click
      end
      object N19: TMenuItem
        Caption = '-'
      end
      object Dupliquerunlment1: TMenuItem
        Caption = 'Dupliquer un élément'
        OnClick = Dupliquerunlment1Click
      end
      object Supprimerunlment1: TMenuItem
        Caption = 'Supprimer un élément'
        OnClick = Supprimerunlment1Click
      end
      object Propritsdunlment1: TMenuItem
        Caption = 'Propriétés d''un élément'
        OnClick = Propritsdunlment1Click
      end
      object Dplacerunlment1: TMenuItem
        Caption = 'Déplacer un élément'
        OnClick = Dplacerunlment1Click
      end
      object Grouperdeslments1: TMenuItem
        Caption = 'Grouper des éléments'
        object Tousleslments1: TMenuItem
          Caption = 'Tous les éléments'
          OnClick = Tousleslments1Click
        end
        object Elementschoisir2: TMenuItem
          Caption = 'Eléments à choisir'
          OnClick = Elementschoisir2Click
        end
      end
      object N6: TMenuItem
        Caption = '-'
      end
      object Copier1: TMenuItem
        Caption = 'Copier simulation dans le presse papier'
        ShortCut = 16451
        OnClick = Copier1Click
      end
      object N12: TMenuItem
        Caption = '-'
      end
      object Editerlecommentairedelasimulation1: TMenuItem
        Caption = 'Editer le commentaire de la simulation'
        OnClick = Editerlecommentairedelasimulation1Click
      end
    end
    object Ajouter1: TMenuItem
      Caption = 'Ajouter'
      object Systmeoptique1: TMenuItem
        Caption = 'Système optique idéal'
        object Miroirplan2: TMenuItem
          Caption = 'Miroir plan'
          Bitmap.Data = {
            66010000424D6601000000000000760000002800000014000000140000000100
            040000000000F000000000000000000000001000000000000000000000000000
            80000080000000808000800000008000800080800000C0C0C000808080000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FF0FFFFFFFFF
            FFFFFFFF0000FF0FFFFFFFFFFFFFFFFF0000FF0FFFFFFFFFFFFFFFFF00000F0F
            FFFFFFFFFFFFFFFF0000F00FFFFFFFFFFFFFFFFF0000FF0FF0FFFFFFFFFFFFFF
            000000FFF0FFFFFFFFFFFFFF0000000FF0F0FFFFFFFFFFFF0000000000F0FFFF
            FFFF00000000F00000F0F0FFFFFF0FFF0000FFF00000F0FFFFFFF0FF0000FFFF
            0000F0F0FFFFFF0F0000FFFFF00000F0FFFFFFF00000FFFFFF000000F0FFFFF0
            0000FFFFFFFF0000F0FF0FF00000FFFFFFFFF00000F0F00F0000FFFFFFFFFF00
            00F0FFFF0000FFFFFFFFFFF00000FFFF0000FFFFFFFFFFFF00000FFF0000FFFF
            FFFFFFFFFF000FFF0000
          }
          OnClick = Miroirplan2Click
        end
        object Miroirsphriqueconvergent1: TMenuItem
          Caption = 'Miroir sphérique concave'
          Bitmap.Data = {
            66010000424D6601000000000000760000002800000014000000140000000100
            040000000000F000000000000000000000001000000000000000000000000000
            8000008000000080800080000000800080008080000080808000C0C0C0000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFF0F00F
            FFFFFFFF0000FFFFFFF0F000FFFFFF0F0000FFFFFFF0FF0000FFF0FF0000FFFF
            FF00FFF0000F0FFF0000FFFFFFF0FFFFF000FF0F0000FFFFFFFFFFFFF00FF0FF
            0000FFFFFFFFFFFFF00F0FFF0000F0FFFFFFFFFFF000FF0F0000F0FFFFFFFFFF
            F00FF0FF0000F0FF00F00F00F00F0FFF0000F000FFFFFFFFF000FF0F0000F0FF
            FFFFFFFFF00FF0FF0000F000FFFFFFFFF00F0FFF0000FFFFFFFFFFFFF000FF0F
            0000FFFFFFFFFFFFF00FF0FF0000FFFFF00FFFFFF00F0FFF0000FFFFF0FFFFF0
            0000FFFF0000FFFFFF0FFF0000FFFFFF0000FFFFF00FF000FFFFFFFF0000FFFF
            F0FFF00FFFFFFFFF0000
          }
          OnClick = Miroirsphriqueconvergent1Click
        end
        object Miroirsphriqueconvexe1: TMenuItem
          Caption = 'Miroir sphérique convexe'
          Bitmap.Data = {
            66010000424D6601000000000000760000002800000014000000140000000100
            040000000000F000000000000000000000001000000000000000000000000000
            8000008000000080800080000000800080008080000080808000C0C0C0000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFF00FFF0FFF
            FFFFFFFF0000FF000FFF0FFFFFFFFFFF0000F000FFFF0FFFFFFFFFFF0000000F
            FFF00FFFFFFFFFFF000000FF0FFF0FFFFFFFFFFF000000F0FFFFFFFFFFFFFFFF
            0000000FFFFFFFFFFFFFFFFF000000FF0FFFFFFFFFFFFFFF000000F0FFFFFFFF
            FFFFFFFF00000000000F00F0000F00FF000000FF0FFFFFFFFFF0FFFF000000F0
            FFFFFFFFFFF0FFFF0000000FFFFFFFFFFFF000FF000000FF0FFFFFFFFFF0FFFF
            000000F0FFFFFFFFFFF000FF0000000FFF00FFFFFFFFFFFF0000000FFF0FFFFF
            FFFFFFFF0000F000FFF0FFFFFFFFFFFF0000FF000F00FFFFFFFFFFFF0000FFF0
            0F0FFFFFFFFFFFFF0000
          }
          OnClick = Miroirsphriqueconvexe1Click
        end
        object N1: TMenuItem
          Caption = '-'
        end
        object Lentilleminceconvergente1: TMenuItem
          Caption = 'Lentille mince convergente'
          Bitmap.Data = {
            66010000424D6601000000000000760000002800000014000000140000000100
            040000000000F000000000000000000000001000000000000000000000000000
            8000008000000080800080000000800080008080000080808000C0C0C0000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFF00FF
            FFF0FFFF0000FFFFFFF0000FFFF0FFFF0000FFFFFF0F00F0FFF0FFFF0000FFFF
            F0FF00FF0F00FFFF0000FFFFFFFF00FFFFF0FFFF0000FFFFFFFF00FFFFFFFFFF
            0000FFFFFFFF00FFFFFFFFFF0000FFFFFFFF00FFFFFFFFFF0000FFFFFFFF00FF
            FFFFFFFF0000000F00FF00FF000F00F00000FFFFFFFF00FFFFFFFFFF00000FFF
            FFFF00FFFFFFF0FF00000FFFFFFF00FFFFFFF0FF0000000FFFFF00FFFFFFF000
            00000FFFFFFF00FFFFFFF0FF0000000FFFFF00FFFFFFF0000000FFFFF0FF00FF
            000FFFFF0000FFFFFF0F00F0F0FFFFFF0000FFFFFFF0000FFF0FFFFF0000FFFF
            FFFF00FFF00FFFFF0000
          }
          OnClick = Lentilleminceconvergente1Click
        end
        object Lentillemincedivergente1: TMenuItem
          Caption = 'Lentille mince divergente'
          Bitmap.Data = {
            66010000424D6601000000000000760000002800000014000000140000000100
            040000000000F000000000000000000000001000000000000000000000000000
            8000008000000080800080000000800080008080000080808000C0C0C0000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFF0FFFFFF
            0FF0FFFF0000FFFFFF0FFFF0FFF0FFFF0000FFFFFFF0FF0FFFF0FFFF0000FFFF
            FFFF00FFFF00FFFF0000FFFFFFFF00FFFFF0FFFF0000FFFFFFFF00FFFFFFFFFF
            0000FFFFFFFF00FFFFFFFFFF0000FFFFFFFF00FFFFFFFFFF0000FFFFFFFF00FF
            FFFFFFFF0000000F00FF00FF000F00F00000FFFFFFFF00FFFFFFFFFF00000FFF
            FFFF00FFFFFFF0FF00000FFFFFFF00FFFFFFF0FF0000000FFFFF00FFFFFFF000
            00000FFFFFFF00FFFFFFF0FF0000000FFFFF00FFFFFFF0000000FFFFFFFF00FF
            F00FFFFF0000FFFFFFF0FF0FF0FFFFFF0000FFFFFF0FFFF0FF0FFFFF0000FFFF
            F0FFFFFF000FFFFF0000
          }
          OnClick = Lentillemincedivergente1Click
        end
        object Lamesemirflchissante1: TMenuItem
          Caption = 'Lame semi réfléchissante'
          Bitmap.Data = {
            66010000424D6601000000000000760000002800000014000000140000000100
            040000000000F000000000000000000000001000000000000000000000000000
            8000008000000080800080000000800080008080000080808000C0C0C0000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFF0FFF
            FFFFFFFF0000FF00FFFF0FFFFFFFFFFF0000FF000FFF0FFFFFFFFFFF0000FFF0
            00F00FFFFFFFFFFF0000FFFF000F0FFFFFFFFFFF0000FFFFF000FFFFFFFFFFFF
            0000FFFFFF000FFFFFFFFFFF0000FFFFFFF000FFFFFFFFFF0000FFFFFFFF000F
            FFFFFFFF0000FFFFFFFFF000FFFFFFFF000000F00F00F0000F00F00F0000FFFF
            FFFFFFF000FFFFFF0000FFFFFFFFF0FF000FFFFF0000FFFFFFFFF0FFF000FFFF
            0000FFFFFFFFFFFFFF000FFF0000FFFFFFFFF0FFFFF000FF0000FFFFFFFFF0FF
            FF00000F0000FFFFFFFFFFFFFF0FF00F0000FFFFFFFFF0FFFFF0FFFF0000FFFF
            FFFFF0FFFF00FFFF0000
          }
          OnClick = Lamesemirflchissante1Click
        end
        object N2: TMenuItem
          Caption = '-'
        end
        object Ecran1: TMenuItem
          Caption = 'Ecran'
          Bitmap.Data = {
            66010000424D6601000000000000760000002800000014000000140000000100
            040000000000F000000000000000000000001000000000000000000000000000
            8000008000000080800080000000800080008080000080808000C0C0C0000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFF0FFFF
            FFFFFFFF0000FFFFFFF0FFFFFFFFFFFF0000FFFFFFF0FFFFFFFFFFFF0000F00F
            FF00FFFFFFFFFFFF0000F000FFF0FFFFFFFFFFFF0000FF000FFFFFFFFFFFFFFF
            0000FFF000FFFFFFFFFFFFFF0000FFFF000FFFFFFFFFFFFF0000FFFFF000FFFF
            FFFFFFFF0000FFFFFF000FFFFFFFFFFF0000FFFFFFF000FFFFFFFFFF0000FFFF
            FFFF000FFFFF00FF0000FFFFFFFFF000FFFF0FFF0000FFFFFFFFFF000FFFF0FF
            0000FFFFFFFFFFF000FF00FF0000FFFFFFFFFFFF000F0FFF0000FFFFFFFFFFFF
            F000FFFF0000FFFFFFFFFFFFFF000FFF0000FFFFFFFFFFFFFFF00FFF0000FFFF
            FFFFFFFFFFFFFFFF0000
          }
          OnClick = Ecran1Click
        end
        object Diaphragme1: TMenuItem
          Caption = 'Diaphragme'
          Bitmap.Data = {
            66010000424D6601000000000000760000002800000014000000140000000100
            040000000000F000000000000000000000001000000000000000000000000000
            80000080000000808000800000008000800080800000C0C0C000808080000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFF00000
            0FFFFFFF0000FFFFF00FFFFFF00FFFFF0000FFF000FFFFFFFFF00FFF0000FF0F
            FF000FFFFFF0F0FF0000FF0FFFFF0FFFFFF0F0FF0000F0FFFFFFF0FFFFF0FF0F
            0000F0FFFFFF0000FFFF0F0F00000FFFFFF0FFFF0FFF0FF000000FFFFF0FFFFF
            F0FF0FF000000FFFF00FFFFFF0F0FFF000000FFF0F0FFFFFF00FFFF000000FF0
            FF0FFFFFF0FFFFF000000FF0FFF0FFFF0FFFFFF00000F0F0FFFF0000FFFFFF0F
            0000F0FF0FFFF0FFFFFFFF0F0000FF0F0FFFFF0FFFFFF0FF0000FF0F0FFFFFF0
            00FFF0FF0000FFF00FFFFFFFFF000FFF0000FFFFF00FFFFFF00FFFFF0000FFFF
            FFF000000FFFFFFF0000
          }
          OnClick = Diaphragme1Click
        end
      end
      object Systmeoptiquerel1: TMenuItem
        Caption = 'Système optique réel'
        object Miroirsphriqueconcave1: TMenuItem
          Caption = 'Miroir sphérique concave'
          Bitmap.Data = {
            66010000424D6601000000000000760000002800000014000000140000000100
            040000000000F000000000000000000000001000000000000000000000000000
            8000008000000080800080000000800080008080000080808000C0C0C0000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFF0F
            F00FF0F00000FFFFFFFFFF0F00FF0F0F0000FFFFFFFFFF0F0000F0FF0000FFFF
            FFFFF00FFF000FFF0000FFFFFFFFFF0FFFFF0FFF0000FFFFFFFFFFFFFFFF00F0
            0000FFFFFFFFFFFFFFFFF00F0000FFFFFFFFFFFFFFFFF00F0000FFFFFFFFFFFF
            FFFFFF0F0000F00F0000F00F0000FF000000FF00FFFFFFFFFFFFFF000000F0FF
            FFFFFFFFFFFFFF000000F0FFFFFFFFFFFFFFF00F0000FF00FFFFFFFFFFFFF00F
            0000FFFFFFFFFFFFFFFF000F0000FFFFFFFFF00FFFFF00F00000FFFFFFFFF0FF
            FF0000FF0000FFFFFFFFFF0F0000FF0F0000FFFFFFFFF00F00FF0FF00000FFFF
            FFFFF0FFFF0FF0FF0000
          }
          OnClick = Miroirsphriqueconcave1Click
        end
        object Miroirsphriqueconvexe2: TMenuItem
          Caption = 'Miroir sphérique convexe'
          Bitmap.Data = {
            66010000424D6601000000000000760000002800000014000000140000000100
            040000000000F000000000000000000000001000000000000000000000000000
            8000008000000080800080000000800080008080000080808000C0C0C0000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFF0F
            FFFFFFFF0000FFFFFFFFFF0F00FFFFFF0000FFFFFFFFFF0F0000FFFF0000FFFF
            FFFFF000FF000FFF0000FFFFFFFFFF0FF0FF0FFF0000FFFFFFFFFFFF0FFF00FF
            0000FFFFFFFFFFFFFFF0F00F0000FFFFFFFFFFFFFF0FF00F0000FFFFFFFFFFFF
            FFFF0F0F0000F00F0000F00F0000FF000000FF00FFFFFFFFFFF0FF000000F0FF
            FFFFFFFFFFFF0F000000F0FFFFFFFFFFFF0FF00F0000FF00FFFFFFFFFFF0F00F
            0000FFFFFFFFFFFF0FFF000F0000FFFFFFFFF00FF0FF00FF0000FFFFFFFFF0F0
            FF0000FF0000FFFFFFFFFF0F0000FFFF0000FFFFFFFFF00F00FFFFFF0000FFFF
            FFFFF0FFFFFFFFFF0000
          }
          OnClick = Miroirsphriqueconvexe2Click
        end
        object Miroircnique1: TMenuItem
          Caption = 'Miroir cônique'
          Bitmap.Data = {
            66010000424D6601000000000000760000002800000014000000140000000100
            040000000000F000000000000000000000001000000000000000000000000000
            8000008000000080800080000000800080008080000080808000C0C0C0000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FF0FFFFFFFFF
            FFFFFFFF0000FF0FFFFFFFFFFFFFFFFF0000FF0F00FFFFFFFFFFFFFF0000F00F
            00000FFFFFFFFFFF0000FF0FFF00000FFFFFFFFF0000FFFFFFFF0000FFFFFFFF
            0000FFFFFFFFF0000FFFFFFF0000FFFFFFFFFFF000FFFFFF0000FFFFFF0FFFFF
            00FFF0000000FFFFFF0FFFFFF00FFFF00000FFFFFF000FFFFF0FF00F0000FFFF
            FF0FFFFFFF000FFF0000FFFFFF000FFFFF00F00F0000FFFFFFFFFFFFFF00FFFF
            0000FFFFFFFFFFFFF00FFFFF0000F00FFFFFFFF0000FFFFF0000F0FFFFFF0000
            00FFFFFF0000FF0FF000000FFFFFFFFF0000F00F0000FFFFFFFFFFFF0000F0FF
            FFFFFFFFFFFFFFFF0000
          }
          OnClick = Miroircnique1Click
        end
        object N5: TMenuItem
          Caption = '-'
        end
        object Polyhdrerfractant1: TMenuItem
          Caption = 'Polyhèdre réfractant'
          Bitmap.Data = {
            66010000424D6601000000000000760000002800000014000000140000000100
            040000000000F000000000000000000000001000000000000000000000000000
            8000008000000080800080000000800080008080000080808000C0C0C0000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFF00FFFFF
            FFFFF0FF0000FFFFF0FFFFFFFFFFFF0F0000FFFFFF0FF0000FFFF0FF0000FFFF
            F00F0000000FFF0F0000FF0FF0F000FF000000FF0000FF0FFF000FFFFF000FFF
            0000FF0FF000FFFFFFF00FFF0000F00FF00FFFFFFFF00FFF0000FF0F00FFFFFF
            FFF00FFF0000FFF000FFFFFFFFF00FFF0000FF000FFFFFFFFFF00FFF0000F000
            FFFFFFFFFFF00FFF0000F00FFFFFFFFFFFF00FFF0000F000FFFFFFFFFFF00FFF
            0000FF000FFFFFFFFFF00FFF0000F0F000FFFFFFFFF00FFF0000FF0F000FFFFF
            FFF00FF00000F0FFF0000000000000000000F0FFFF000000000000F00000F00F
            FFFFFFFFFFFFFF000000
          }
          OnClick = Polyhdrerfractant1Click
        end
        object Sphrerfractante1: TMenuItem
          Caption = 'Sphère réfractante'
          Bitmap.Data = {
            66010000424D6601000000000000760000002800000014000000140000000100
            040000000000F000000000000000000000001000000000000000000000000000
            8000008000000080800080000000800080008080000080808000C0C0C0000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFF0000000
            000FFFFF0000FFFF000000000000FFFF0000FFF000FFFFFFFF000FFF0000FF00
            0FFFFFFFFFF000FF0000F000FFFFFF00FFFF000F0000F00FFFFFF0FFFFFFF00F
            000000FFFFFFF0FFFFFFFF00000000FFFFFFFF00FFFFFF00000000FFFFFFFFFF
            FFFFFF00000000FFFFFFF00FFFFFFF00000000FFFFFFF00FFFFFFF00000000FF
            FFFFFFFFFFFFFF00000000FFFFFFFFFFFFFFFF00000000FFFFFFFFFFFFFFFF00
            0000F00FFFFFFFFFFFFFF00F0000F000FFFFFFFFFFFF000F0000FF000FFFFFFF
            FFF000FF0000FFF000FFFFFFFF000FFF0000FFFF000000000000FFFF0000FFFF
            F0000000000FFFFF0000
          }
          OnClick = Sphrerfractante1Click
        end
        object MenuPrisme: TMenuItem
          Caption = 'Prisme'
          Bitmap.Data = {
            76060000424D7606000000000000360000002800000014000000140000000100
            2000000000004006000064000000640000000000000000000000000000FF0000
            00FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF0000
            00FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF0000
            00FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF0000
            00FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF0000
            00FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF0000
            00FFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000
            00FF000000FFFFFFFF00FFFFFF00000000FF000000FFFFFFFF00FFFFFF00FFFF
            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
            FF00FFFFFF00FFFFFF00FFFFFF00000000FF000000FFFFFFFF00FFFFFF000000
            00FF000000FFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00000000FF0000
            00FFFFFFFF00FFFFFF00FFFFFF00FFFFFF00000000FF000000FFFFFFFF00FFFF
            FF00FFFFFF00FFFFFF00FFFFFF00000000FF000000FFFFFFFF00FFFFFF00FFFF
            FF00FFFFFF00FFFFFF00000000FF000000FFFFFFFF00FFFFFF00FFFFFF00FFFF
            FF00000000FF000000FFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000
            00FF000000FFFFFFFF00FFFFFF00FFFFFF00FFFFFF00000000FF000000FFFFFF
            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00000000FF000000FFFFFF
            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
            FF00FFFFFF00000000FF000000FFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
            FF00FFFFFF00000000FF000000FFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00000000FF000000FFFFFFFF00FFFF
            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00000000FF0000
            00FFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
            FF00000000FF000000FFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
            FF00FFFFFF00FFFFFF00000000FF000000FFFFFFFF00FFFFFF00FFFFFF00FFFF
            FF00FFFFFF00FFFFFF00FFFFFF00000000FF000000FFFFFFFF00FFFFFF00FFFF
            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000
            00FF000000FFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000
            00FF000000FFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
            FF00FFFFFF00FFFFFF00FFFFFF00000000FF000000FFFFFFFF00FFFFFF00FFFF
            FF00FFFFFF00FFFFFF00000000FF000000FFFFFFFF00FFFFFF00FFFFFF00FFFF
            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
            FF00000000FF000000FFFFFFFF00FFFFFF00FFFFFF00FFFFFF00000000FF0000
            00FFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00000000FF000000FFFFFFFF00FFFF
            FF00FFFFFF00000000FF000000FFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
            FF00FFFFFF00000000FF000000FFFFFFFF00FFFFFF00000000FF000000FFFFFF
            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00000000FF000000FFFFFF
            FF00000000FF000000FFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
            FF00FFFFFF00FFFFFF00000000FF000000FF000000FF000000FFFFFFFF00FFFF
            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00000000FF0000
            00FF000000FFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
            FF00FFFFFF00FFFFFF00000000FF000000FF000000FFFFFFFF00FFFFFF00FFFF
            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00
          }
          OnClick = MenuPrismeClick
        end
        object Lentille1: TMenuItem
          Caption = 'Lentille'
          Bitmap.Data = {
            66010000424D6601000000000000760000002800000014000000140000000100
            040000000000F000000000000000000000001000000000000000000000000000
            80000080000000808000800000008000800080800000C0C0C000808080000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
            FFF0FFFF0000FFFFFFF0000FFFF0FFFF0000FFFFFF00FF00FFF0FFFF0000FFFF
            F00FFFF000F0FFFF0000FFFF00FFFFFF0F00FFFF0000FFFF00FFFFFF00F0FFFF
            0000FFFF00FFFFFF00FFFFFF0000FFF00FFFFFFFF00FFFFF0000FFF00FFFFFFF
            F00FFFFF0000FFF00FFFFFFFF00FFFFF000000000F00F000F0000F000000FFF0
            0FFFFFFFF00FFFFF0000FFF00FFFFFFFF00FFFFF0000FFF00FFFFFFFF0FFFFFF
            0000FFFF00FFFFFF00000FFF0000FFFF00FFFFFF00F0FFFF0000FFFF00FFFFFF
            00F0FFFF0000FFFFF00FFFF00FFF0FFF0000FFFFFF00FF00FF000FFF0000FFFF
            FFF0000FFFFFFFFF0000
          }
          OnClick = Lentille1Click
        end
        object Polysphrerfractante1: TMenuItem
          Caption = 'Polysphère réfractante'
          Bitmap.Data = {
            66010000424D6601000000000000760000002800000014000000140000000100
            040000000000F000000000000000000000001000000000000000000000000000
            8000008000000080800080000000800080008080000080808000C0C0C0000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFF000FFFFF
            FFFF0FFF0000FFFF0FFFFFFFFFFF0FFF0000FFFFF0FFFFFFFFFF0FFF0000FFFF
            FF0FFFFFFFF00FFF0000FFFF0F0F000FFFFF0FFF0000FFFF0000FFF00FFFFFFF
            0000FFFF00FFFFFFF00FFFFF0000FFF0FFFFFFFFFFF0FFFF0000FF0FFFFFFFFF
            FFFF0FFF0000FFF0FFFFFFFFFFFF0FFF0000F0FF0FFFFFFFFFFF0FFF00000F0F
            F0FFFFFFFFFF0FFF0000FF0FF0FFFFFFFFFF0FFF0000F0FFF0FFFFFFFFFF0FFF
            0000FF0FF0FFFFFFFFFF0FFF000000FF0FFFFFFFFFFF0FFF0000FFF0FFFFFFFF
            FFFF0FFF0000FF0FFFFF00FFFFF0FFFF0000FFF0FFF0FF0FFF0FFFFF0000FFFF
            000FFFF000FFFFFF0000
          }
          OnClick = Polysphrerfractante1Click
        end
      end
      object Source2: TMenuItem
        Caption = 'Source'
        object Rayonunique1: TMenuItem
          Caption = 'Rayon unique'
          Bitmap.Data = {
            66010000424D6601000000000000760000002800000014000000140000000100
            040000000000F000000000000000000000001000000000000000000000000000
            80000080000000808000800000008000800080800000C0C0C000808080000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FF0FFFFFFFFF
            FFF0000F0000FF0FFFFFFFFFFFF0FFFF0000FF0FFFFFFFFFFFFF0FFF0000FF0F
            FFFFFFFFFFFFF0FF0000FF0FFFFFFFFFFFFFFF0F00000F0FFFFFFFFFFFFFFF0F
            0000F00FFFFFFFFFFFF0FF0F0000FF0FFFFFFFFFFFFF00FF0000FFFFFFFFFFFF
            FFFFFFFF0000FFFFFFFFFFFFFFFFFFFF0000FFFFFFFFFFFFFFFFFFFF0000FFFF
            FFF0FFFFFFFFFFFF0000FFFFFFFF0FFFFFFFFFFF0000FFFFFFFFF0FFFFFFFFFF
            0000000000000000000000000000000000000000000000000000FFFFFFFFF0FF
            FFFFFFFF0000FFFFFFFF0FFFFFFFFFFF0000FFFFFFF0FFFFFFFFFFFF0000FFFF
            FFFFFFFFFFFFFFFF0000
          }
          OnClick = Rayonunique1Click
        end
        object Sourceponctuelle1: TMenuItem
          Caption = 'Objet ponctuel réel ou virtuel'
          Bitmap.Data = {
            66010000424D6601000000000000760000002800000014000000140000000100
            040000000000F000000000000000000000001000000000000000000000000000
            8000008000000080800080000000800080008080000080808000C0C0C0000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
            F00FFF0F0000FFFFFFFFFFFF000FFF0F0000FFFFFFFF000000FFFF0F0000FFFF
            FFFFFF000FFFF00F0000FFFFFFFFF0000FFFFF0F0000FFFFFFFF000F0FFFFFFF
            0000FFFFFFF000FF0FFFFFFF0000FFFFFF000FFFFFFFFFFF0000F000F000FFFF
            0FFFFFFF00000FF0F00FFFFFFFFFFFFF0000F00FF00FFFFFFFFFFFFF00000FF0
            F00FFFFFFFFFFFFF0000000FF000FFFFFFFFFFFF0000FFFFFF000FFFFFFFFFFF
            0000FFFFFFF0000FF0FFFFFF0000FFFFFFFF0000F0FF00FF0000FFFFFFFFFF00
            00FF0FFF0000FFFFFFFFFFF000FFF0FF0000FFFFFFFFF000000F00FF0000FFFF
            FFFFFFFFF00F0FFF0000
          }
          OnClick = Sourceponctuelle1Click
        end
        object Ondeplane1: TMenuItem
          Caption = 'Onde plane'
          Bitmap.Data = {
            66010000424D6601000000000000760000002800000014000000140000000100
            040000000000F000000000000000000000001000000000000000000000000000
            8000008000000080800080000000800080008080000080808000C0C0C0000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
            FFFFF00F0000FFFFFFFFFFFFFFFFF0F00000FF0FFFFFF0FFFFFFF0F00000FF0F
            FFFFFF0FFFFFF0F00000FF0FFFFFFFF0FFFFF00F0000F00F0000000000000000
            0000FF0F00000000000000000000FFFFFFFFFFF0FFFFFFFF0000FFFFFFFFFF0F
            FFFFFFFF0000FFFFFFFFF0FFFFFFFFFF0000FFFFFFFFFFFFFFFFFFFF0000FFFF
            FFFFFFFFFFFFFFFF0000FFFFFFFF0FFFFFFFFFFF000000FFFFFFF0FFFFFFFFFF
            00000FFFFFFFFF0FFFFFFFFF0000F0FF0000000000000000000000FF00000000
            0000000000000FFFFFFFFF0FFFFFFFFF0000FFFFFFFFF0FFFFFFFFFF0000FFFF
            FFFF0FFFFFFFFFFF0000
          }
          OnClick = Ondeplane1Click
        end
      end
      object Divers1: TMenuItem
        Caption = 'Divers'
        object Textesurledessin1: TMenuItem
          Caption = 'Texte sur le dessin'
          OnClick = Textesurledessin1Click
        end
        object Commenatiresurlasimulation1: TMenuItem
          Caption = 'Commentaire sur la simulation'
          Bitmap.Data = {
            66010000424D6601000000000000760000002800000014000000140000000100
            040000000000F000000000000000000000001000000000000000000000000000
            80000080000000808000800000008000800080800000C0C0C000808080000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00000000000000
            00000000000000000000000000000000000000FFFFFFFFFFFFFFFF00000000FF
            00000FFFFFFFFF00000000FFFFFFFFFFFFFFFF00000000FF000000000000FF00
            000000FFFFFFFFFFFFFFFF00000000FF000000FFFFFFFF00000000FFFFFFFFFF
            FFFFFF00000000FF000000000000FF00000000FFFFFFFFFFFFFFFF00000000FF
            000000000000FF00000000FFFFFFFFFFFFFFFF00000000FF000000000FFFFF00
            000000FFFFFFFFFFFFFFFF00000000FF000000000000FF00000000FFFFFFFFFF
            FFFFFF00000000FFFFFFFFFFFFFFFF0000000000000000000000000000000000
            00000000000000000000
          }
          OnClick = Commenatiresurlasimulation1Click
        end
        object Mesurededistance1: TMenuItem
          Caption = 'Mesure de distance'
          Bitmap.Data = {
            66010000424D6601000000000000760000002800000014000000140000000100
            040000000000F000000000000000000000001000000000000000000000000000
            8000008000000080800080000000800080008080000080808000C0C0C0000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
            FFFFFFFF0000FFFFFFFFFFFFFFFFFFFF0000FF000FFF0FF00FF00F0F0000FF0F
            F0FF0F0FF0F0FFFF0000FF0FFF0F0FFF0FF0FFFF0000FF0FFF0F0FF0FFF0FFFF
            0000FF0FFF0F0F0FF0F0FFFF0000FF0FFF0F0F000F000FFF0000FF0FF0FFFFFF
            FFF0FFFF0000FF000FFF0FFFFFF0FFFF0000FFFFFFFFFFFFFFFFFFFF0000FFFF
            FFFFFFFFFFFFFFFF00000000000000000000000000000FF0FF0FF0FF0FF0FFF0
            00000FF0FF0FF0FF0FF0FFF000000FFFFF0FFFFF0FFFFFF000000FFFFFFFFFFF
            FFFFFFF000000FFFFFFFFFFFFFFFFFF00000FFFFFFFFFFFFFFFFFFFF0000FFFF
            FFFFFFFFFFFFFFFF0000
          }
          OnClick = Mesurededistance1Click
        end
        object Mesuredangle1: TMenuItem
          Caption = 'Mesure d''angle'
          Bitmap.Data = {
            66010000424D6601000000000000760000002800000014000000140000000100
            040000000000F000000000000000000000001000000000000000000000000000
            8000008000000080800080000000800080008080000080808000C0C0C0000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
            FFFFFFFF0000FFFFFFFFFFFFFF000F000000FFFFFFFFFFFFF00F00000000FFFF
            FFFFFFFFF00FF00F0000FF00FFFFFFFFF00FF00F0000FF0F00FFFFFFF00F0000
            0000FF0FFF00FFFFFF000F000000FFF0FFF000FFFFFFFFFF0000FFF0FFF0FF00
            0FFFFFFF0000FFF0FF0FFFFFF00FFFFF0000FFF000FFFFFFFFF00FFF0000FFF0
            FFFFFFFFFFFFF00F0000FFFF0FFFFFFFFFFFFFFF0000FFFF0FFFFFFFFFFFFFFF
            0000FFFF0FFFFFFFFFFFFFFF0000FFFF0FFFFFFFFFFFFFFF0000FFFF0FFFFFFF
            FFFFFFFF0000FFFFF0FFFFFFFFFFFFFF0000FFFFF0FFFFFFFFFFFFFF0000FFFF
            F0FFFFFFFFFFFFFF0000
          }
          OnClick = Mesuredangle1Click
        end
        object Rayonsfantomes1: TMenuItem
          Caption = 'Rayons fantomes'
          Bitmap.Data = {
            66010000424D6601000000000000760000002800000014000000140000000100
            040000000000F000000000000000000000001000000000000000000000000000
            8000008000000080800080000000800080008080000080808000C0C0C0000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFEEEEE
            EEEFFFFF0000FFFFFFFEEEEEEEEFFFFF0000FFFFFFFEEEEEEEEFFFFF0000FFFF
            FFFEEEEEEEEFFFFF0000FFFFFFFEEEEEEEEFFFFF0000FFFFFFFEEEEEEEEFFFFF
            0000FEEEEEFEEEEEEEEEEEEE0000FEEEEEEEEEEEEEEEEEEE0000FFFFEEEEE000
            0EEEEFFF0000FFFFFFEE0EEEE0EFFFFF0000FFFFFFEEEEEEEEEFFFFF0000FFFF
            FFEEEEEEEEEFFFFF0000FFFFFEEEEEEEEEEEFFFF0000FFFFFEEEEEEEEEEEFFFF
            0000FFFFFE00EEEEE00EFFFF0000FFFFFE00EEEEE00EFFFF0000FFFFFFEEEEEE
            EEEFFFFF0000FFFFFFFEEEEEEEFFFFFF0000FFFFFFFFEEEEEFFFFFFF0000FFFF
            FFFFFFFFFFFFFFFF0000
          }
          OnClick = Rayonsfantomes1Click
        end
        object Traitflche1: TMenuItem
          Caption = 'Trait, fléche...'
          Bitmap.Data = {
            66010000424D6601000000000000760000002800000014000000140000000100
            040000000000F000000000000000000000001000000000000000000000000000
            80000080000000808000800000008000800080800000C0C0C000808080000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
            FFFFFFFF0000FFF0FFFFFFFFFFFFFFFF0000FF0FFFFFFFFFFFFFFFFF0000F000
            FFFFFFFFFFFFFFFF0000F0000FFFFFFFFFFFFFFF00000F0000FFFFFFFFFFFFFF
            0000FFF0000FFFFFFFFFFFFF0000FFFF0000FFFFFFFFFFFF0000FFFFF0000FFF
            FFFFFFFF0000FFFFFF0000FFFFFFFFFF0000FFFFFFF0000FFFFFFFFF0000FFFF
            FFFF0000FFF0FFFF0000FFFFFFFFF0000FF0FFFF0000FFFFFFFFFF0000F0FFFF
            0000FFFFFFFFFFF00000FFFF0000FFFFFFFFFFFF0000FFFF0000FFFFFFFFFFFF
            F000FFFF0000FFFFFFFFFF000000FFFF0000FFFFFFFFFFFFFFFFFFFF0000FFFF
            FFFFFFFFFFFFFFFF0000
          }
          OnClick = Traitflche1Click
        end
        object Oeilstylis1: TMenuItem
          Caption = 'Oeil stylisé'
          Bitmap.Data = {
            66010000424D6601000000000000760000002800000014000000140000000100
            040000000000F000000000000000000000001000000000000000000000000000
            80000080000000808000800000008000800080800000C0C0C000808080000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
            FF0FFFFF0000FFFFFFFFFFFFF0FFFFFF0000FFFFFFFFFFFF0FFFFFFF0000FFFF
            FFFFFFF0FFFFFFFF0000FFFFFFFFFF0F0FFFFFFF0000FFFFFFFFF0FFF0FFFFFF
            0000FFFFFFF00FFFFF0FFFFF0000FFFFF00FFFFFFF0FFFFF0000FFF00FFFFFFF
            FFF0FFFF0000000FFFFFFFFFF000FFFF0000000FFFFFFFFFF000FFFF0000FFF0
            0FFFFFFFFFF0FFFF0000FFFFF00FFFFFFF0FFFFF0000FFFFFFF00FFFFF0FFFFF
            0000FFFFFFFFF0FFF0FFFFFF0000FFFFFFFFFF0F0FFFFFFF0000FFFFFFFFFFF0
            FFFFFFFF0000FFFFFFFFFFFF0FFFFFFF0000FFFFFFFFFFFFF0FFFFFF0000FFFF
            FFFFFFFFFF0FFFFF0000
          }
          OnClick = Oeilstylis1Click
        end
        object MenuItemreseau: TMenuItem
          Caption = 'Réseau diffractant'
          Bitmap.Data = {
            26050000424D2605000000000000760000002800000014000000140000000100
            180000000000B0040000120B0000120B00001000000000000000000000000000
            80000080000000808000800000008000800080800000C0C0C000808080000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
            000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
            FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FF
            FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
            FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FFFFFFFFFF
            FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
            FFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FFFFFF000000FFFFFFFFFFFFFFFFFF
            FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
            FFFFFFFFFFFFFFFFFFFFFFFFFF000000000000FFFFFFFFFFFFFFFFFFFFFFFFFF
            FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
            FFFFFFFFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
            FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
            FFFF000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
            FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000
            00000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
            FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000
            000000000000FFFFFF000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
            FFFFFFFFFFFFFFFFFFFF000000000000000000000000FFFFFF000000000000FF
            FFFFFFFFFF000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
            FFFFFFFFFFFF000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000
            00000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
            FFFFFFFFFF000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000
            000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
            FFFFFFFF000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000FF
            FFFFFFFFFF000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
            FFFFFF000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FFFFFF0000
            00000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF00
            0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000
            FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFF000000FFFF
            FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FFFFFF00
            0000000000000000FFFFFFFFFFFFFFFFFF000000000000FFFFFFFFFFFFFFFFFF
            FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000000000
            00000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
            FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000000000
            FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
            FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFF00
            0000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
            FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000000000000000
            00FFFFFFFFFFFFFFFFFF
          }
          OnClick = MenuItemreseauClick
        end
      end
    end
    object Grille1: TMenuItem
      Caption = 'Options'
      object Afficherlagrille1: TMenuItem
        Caption = 'Afficher la grille'
        OnClick = Afficherlagrille1Click
      end
      object Attractiondelagrille1: TMenuItem
        Caption = 'Attraction de la grille'
        OnClick = Attractiondelagrille1Click
      end
      object Optionsdelagrille1: TMenuItem
        Caption = 'Options de la grille'
        OnClick = Optionsdelagrille1Click
      end
      object N8: TMenuItem
        Caption = '-'
      end
      object N7: TMenuItem
        Caption = 'Afficher les normales'
        Checked = True
        OnClick = N7Click
      end
      object Afficherlesangles1: TMenuItem
        Caption = 'Afficher les angles'
        OnClick = Afficherlesangles1Click
      end
      object Optionsdesnormales1: TMenuItem
        Caption = 'Options des normales'
        OnClick = Optionsdesnormales1Click
      end
      object N11: TMenuItem
        Caption = '-'
      end
      object Couleurdefond1: TMenuItem
        Caption = 'Couleur de fond ou image de fond'
        OnClick = Couleurdefond1Click
      end
      object MenuItem7: TMenuItem
        Caption = 'Indices du milieu ambiant'
        OnClick = MenuItem7Click
      end
      object N18: TMenuItem
        Caption = '-'
      end
      object Empennagedesrayons1: TMenuItem
        Caption = 'Empennage des rayons'
        OnClick = Empennagedesrayons1Click
      end
      object N14: TMenuItem
        Caption = '-'
      end
      object Surfacesdonde1: TMenuItem
        Caption = 'Surfaces d''onde'
        OnClick = Surfacesdonde1Click
      end
      object N16: TMenuItem
        Caption = '-'
      end
      object Basederegistre1: TMenuItem
        Caption = 'Base de registre'
        object AssocierlesfichiersoptavecOptGeo1: TMenuItem
          Caption = 'Associer les fichiers .opt avec OptGeo'
          OnClick = AssocierlesfichiersoptavecOptGeo1Click
        end
        object Dsassocier1: TMenuItem
          Caption = 'Désassocier'
          OnClick = Dsassocier1Click
        end
      end
      object N20: TMenuItem
        Caption = '-'
      end
      object Dfinirlerpertoirepersonnel1: TMenuItem
        Caption = 'Définir le répertoire personnel'
        OnClick = Dfinirlerpertoirepersonnel1Click
      end
      object MenuItem5: TMenuItem
        Caption = '-'
      end
      object MenuItem6: TMenuItem
        Caption = 'Langue'
        OnClick = MenuItem6Click
      end
    end
    object Aide1: TMenuItem
      Caption = 'Aide'
      object AidesurOptGeo1: TMenuItem
        Caption = 'Aide sur OptGeo'
        OnClick = AidesurOptGeo1Click
      end
      object N9: TMenuItem
        Caption = '-'
      end
      object Contacterlauteur1: TMenuItem
        Caption = 'Contacter l''auteur'
        OnClick = Contacterlauteur1Click
      end
      object N10: TMenuItem
        Caption = '-'
      end
      object MenuItem14: TMenuItem
        Caption = 'Historique des versions'
        OnClick = MenuItem14Click
      end
      object SiteWeb1: TMenuItem
        Caption = 'Site Web'
        OnClick = SiteWeb1Click
      end
      object N13: TMenuItem
        Caption = '-'
      end
      object Apropos2: TMenuItem
        Caption = 'A propos'
        OnClick = Apropos2Click
      end
      object N21: TMenuItem
        Caption = '-'
      end
      object LicenseGPL1: TMenuItem
        Caption = 'License GPL'
        OnClick = LicenseGPL1Click
      end
    end
  end
  object SaveDialog1: TSaveDialog
    DefaultExt = '.opt'
    Filter = 'Simulation OptGeo|*.opt'
    FilterIndex = 0
    left = 160
    top = 208
  end
  object OpenDialog1: TOpenDialog
    DefaultExt = '.opt'
    Filter = 'Simulation OptGeo|*.opt|Tous les fichiers|*.*'
    FilterIndex = 0
    left = 232
    top = 232
  end
  object PopupMenu1: TPopupMenu
    AutoPopup = False
    left = 128
    top = 128
    object Joindreparunsegment1: TMenuItem
      Caption = 'Joindre par un segment'
    end
    object Joindreparunarcdecercle1: TMenuItem
      Caption = 'Joindre par un arc de cercle'
    end
  end
  object ColorDialog1: TColorDialog
    Color = clBlack
    CustomColors.Strings = (
      'ColorA=000000'
      'ColorB=000080'
      'ColorC=008000'
      'ColorD=008080'
      'ColorE=800000'
      'ColorF=800080'
      'ColorG=808000'
      'ColorH=808080'
      'ColorI=C0C0C0'
      'ColorJ=0000FF'
      'ColorK=00FF00'
      'ColorL=00FFFF'
      'ColorM=FF0000'
      'ColorN=FF00FF'
      'ColorO=FFFF00'
      'ColorP=FFFFFF'
      'ColorQ=C0DCC0'
      'ColorR=F0CAA6'
      'ColorS=F0FBFF'
      'ColorT=A4A0A0'
    )
    left = 496
    top = 136
  end
  object FontDialog1: TFontDialog
    Font.Height = -11
    MinFontSize = 0
    MaxFontSize = 0
    left = 312
    top = 216
  end
  object SaveDialog2: TSaveDialog
    DefaultExt = '.png'
    Filter = 'Portable Network Graphics|*.png'
    FilterIndex = 0
    left = 120
    top = 294
  end
  object SaveDialog3: TSaveDialog
    DefaultExt = '.jpg'
    Filter = 'JPEG|*.jpg'
    FilterIndex = 0
    left = 192
    top = 306
  end
  object PrintDialog1: TPrintDialog
    left = 262
    top = 121
  end
  object Pop: TPopupMenu
    left = 423
    top = 239
  end
  object SaveDialog4: TSaveDialog
    DefaultExt = '.ps'
    Filter = '.ps|Postscript'
    FilterIndex = 0
    left = 571
    top = 239
  end
  object OpenDialogImageFonds: TOpenDialog
    Filter = 'Image jpg|*.jpg|Image png|*.png'
    left = 670
    top = 127
  end
end