object Form1: TForm1
  Left = 201
  Top = 108
  BorderStyle = bsSingle
  Caption = 'Contador de manchas'
  ClientHeight = 451
  ClientWidth = 688
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object Image1: TImage
    Left = 8
    Top = 112
    Width = 465
    Height = 337
    Stretch = True
  end
  object Label1: TLabel
    Left = 480
    Top = 24
    Width = 17
    Height = 13
    Caption = '0/0'
  end
  object Label2: TLabel
    Left = 184
    Top = 0
    Width = 42
    Height = 13
    Caption = 'Diámetro'
  end
  object Label3: TLabel
    Left = 80
    Top = 0
    Width = 45
    Height = 13
    Caption = 'Contraste'
  end
  object Label4: TLabel
    Left = 296
    Top = 0
    Width = 41
    Height = 13
    Caption = 'Fracción'
  end
  object Label5: TLabel
    Left = 80
    Top = 24
    Width = 46
    Height = 13
    Caption = 'Umb. Gris'
  end
  object Label6: TLabel
    Left = 296
    Top = 24
    Width = 31
    Height = 13
    Caption = 'Fr. gris'
  end
  object Button1: TButton
    Left = 16
    Top = 8
    Width = 41
    Height = 25
    Caption = 'Uno'
    TabOrder = 0
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 64
    Top = 8
    Width = 57
    Height = 25
    Caption = 'Button2'
    TabOrder = 1
    Visible = False
    OnClick = Button2Click
  end
  object Button3: TButton
    Left = 128
    Top = 8
    Width = 49
    Height = 25
    Caption = 'Button3'
    TabOrder = 2
    Visible = False
    OnClick = Button3Click
  end
  object Button4: TButton
    Left = 184
    Top = 8
    Width = 49
    Height = 25
    Caption = 'Button4'
    TabOrder = 3
    Visible = False
    OnClick = Button4Click
  end
  object Button5: TButton
    Left = 240
    Top = 8
    Width = 49
    Height = 25
    Caption = 'calcula'
    TabOrder = 4
    Visible = False
    OnClick = Button5Click
  end
  object FileListBox1: TFileListBox
    Left = 512
    Top = 176
    Width = 161
    Height = 225
    ItemHeight = 13
    Mask = '*.jpg'
    TabOrder = 5
  end
  object DirectoryListBox1: TDirectoryListBox
    Left = 512
    Top = 48
    Width = 161
    Height = 121
    FileList = FileListBox1
    ItemHeight = 16
    TabOrder = 6
  end
  object DriveComboBox1: TDriveComboBox
    Left = 512
    Top = 24
    Width = 161
    Height = 19
    DirList = DirectoryListBox1
    TabOrder = 7
  end
  object Button6: TButton
    Left = 400
    Top = 8
    Width = 57
    Height = 25
    Caption = 'Lista'
    TabOrder = 8
    OnClick = Button6Click
  end
  object CheckBox1: TCheckBox
    Left = 480
    Top = 8
    Width = 73
    Height = 9
    Caption = 'Al reves'
    TabOrder = 9
    Visible = False
  end
  object ListBox1: TListBox
    Left = 8
    Top = 40
    Width = 465
    Height = 65
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Fixedsys'
    Font.Style = []
    ItemHeight = 15
    Items.Strings = (
      'Programa de contar manchas.'
      ''
      
        'Este programa cuenta manchas oscuras de tamaño similar en una im' +
        'agen de formato JPEG. Las manchas pueden tener un halo de color ' +
        'más claro.'
      ''
      
        'Se especifican cinco parámetros, que se conservarán entre sesion' +
        'es:'
      ''
      
        '  - Contraste. Puede tener cualquier valor positivo, pero deberí' +
        'a estar entre 0.3 y 1.5.'
      
        '    Sirve para determinar qué niveles de intensidad se considera' +
        'n positivos. Con el '
      
        '    botón "Uno" se ve una imagen, que se guarda como "salida.jpg' +
        '" en la que los pixeles'
      
        '    se pintan de negro, gris o blanco, según este valor y el sig' +
        'uiente.'
      ''
      
        '  - Umbral gris.  Un número entre 0 y 1 que determina el mivel q' +
        'ue discrimina el "halo" del fondo claro.'
      ' '
      
        '  - Diámetro. Expresada como fracción del ancho de la imagen. De' +
        'bería ser un círculo en'
      '    el que cabe una mancha de tamaño medio.'
      ''
      
        '  - Fracción. Indica la cantidad (proporción) de pixeles positiv' +
        'os de una mancha para'
      
        '    contarla. Se considera que una mancha típica es una elipse c' +
        'on el radio mayor doble'
      
        '    que el menor, así que un valor de 1 representa la mitad de l' +
        'os pixeles del círculo.'
      ''
      
        ' - Fracción gris. Indica la proporción mínima de pixeles de "hal' +
        'o" que tienen que aparecer en el círculo para considerarla válid' +
        'a. '
      ''
      
        '  Se puede jugar con los tres valores y ver con el botón "Uno" l' +
        'os resultados. Los '
      
        'círculos rojos indican una mancha que se cuenta y los amarillos ' +
        'una mancha que no se '
      
        'cuenta. Un círculo verde contiene más pixeles positivos de los r' +
        'equeridos pero no suficiente pixeles grises.'
      ''
      
        'La dimensión máxima de las imágenes a analizar no deben pasar de' +
        ' los 3600 pixeles.'
      'Cuanto mayor es la imagen más tardará en analizarla.'
      ''
      
        'La forma de utilizarlo es seleccionar en la parte de la derecha ' +
        'la unidad y carpeta que'
      
        'contienen los ficheros y ejecutar el botón "lista". Los resultad' +
        'os se ven en la parte '
      
        'superior y se graban en un fichero con el nombre de la carpeta y' +
        ' la extensión .txt junto '
      
        'al ejecutable. El fichero se sobreescribe sin preguntar, así que' +
        ' hay que tener cuidado '
      'si hay carpetas con el mismo nombre.'
      ''
      'Las distintas columnas indican:'
      '  Contraste'
      '  Diámetro  '
      '  Fracción'
      '  Número de pixeles positivos'
      '  Número de manchas contadas'
      '  Ancho de la imagen'
      '  Altura'
      '  Nombre del fichero'
      ''
      'Con el botón "Uno" el resultado se guarda en el portapapeles.'
      ''
      'El procedimiento de análisis es el siguiente:'
      
        'Se hace un mapa de pixeles indicando si son positivos, "grises" ' +
        'o nulos.'
      
        'Se van explorando las intersecciones de una cuadrícula de lado i' +
        'gual a la cuarta parte del diámetro. '
      
        'Si la intersección está dentro o en el borde de una mancha, se b' +
        'usca el centro de la mancha y se borran los pixeles positivos de' +
        'l círculo con ese centro y el diámetro especificado. '
      
        'El número de pixeles positivos y "grises" que había en el círcul' +
        'o indica si se cuenta la mancha como válida.'
      ''
      ''
      ''
      '     ')
    ParentFont = False
    TabOrder = 10
  end
  object CheckBox2: TCheckBox
    Left = 552
    Top = 0
    Width = 65
    Height = 17
    Caption = 'Interpola'
    Checked = True
    State = cbChecked
    TabOrder = 11
    Visible = False
  end
  object CheckBox3: TCheckBox
    Left = 616
    Top = 0
    Width = 65
    Height = 17
    Caption = 'Uniforme'
    TabOrder = 12
    Visible = False
  end
  object Edit1: TEdit
    Left = 232
    Top = 0
    Width = 57
    Height = 21
    TabOrder = 13
    Text = '0.031'
  end
  object Edit2: TEdit
    Left = 128
    Top = 0
    Width = 49
    Height = 21
    TabOrder = 14
    Text = '0.60'
  end
  object Edit3: TEdit
    Left = 336
    Top = 0
    Width = 57
    Height = 21
    TabOrder = 15
    Text = '0.50'
  end
  object Edit4: TEdit
    Left = 128
    Top = 24
    Width = 49
    Height = 21
    TabOrder = 16
    Text = '0.50'
  end
  object Edit5: TEdit
    Left = 336
    Top = 24
    Width = 57
    Height = 21
    TabOrder = 17
    Text = '0.45'
  end
  object OpenDialog1: TOpenDialog
    Left = 440
    Top = 24
  end
  object IQ1: TIniQuick
    IgnoreState = False
    MoreData = True
    Left = 488
    Top = 128
  end
end
