GIMP рд╕реНрдХреНрд░рд┐рдкреНрдЯ-рдлреВ: рд╕реНрдХреАрдо рдкрд░ рддреНрд╡рд░рд┐рдд рд╕реАрдЦрдиреЗ рдФрд░ рд╕рд░рд▓ рд╕реНрдХреНрд░рд┐рдкреНрдЯ рд▓рд┐рдЦрдиреЗ (+ рдмреИрдЪ рдкреНрд░реЛрд╕реЗрд╕рд┐рдВрдЧ рдореБрдлреНрдд рдореЗрдВ)

рдкреНрд░рд╡рд┐рд╖реНрдЯрд┐



рд▓реЗрдЦ рдЖрдкрдХреЛ рдмрддрд╛рдПрдЧрд╛ рдХрд┐ рдпреЛрдЬрдирд╛ рднрд╛рд╖рд╛ рдореЗрдВ рдЬреАрдЖрдИрдПрдордкреА рдореЗрдВ рд╕реНрдХреНрд░рд┐рдкреНрдЯрд┐рдВрдЧ рдХреА рдореВрд▓ рдмрд╛рддреЛрдВ рд╕реЗ рдЬрд▓реНрдж рд╕реЗ рдЬрд▓реНрдж рдХреИрд╕реЗ рдкрд░рд┐рдЪрд┐рдд рд╣реЛрдВ рдФрд░ рд╕рд░рд▓ рд╡реНрдпрд╛рд╡рд╣рд╛рд░рд┐рдХ рд╕рдорд╕реНрдпрд╛рдУрдВ рдХреЛ рд╣рд▓ рдХрд░рдиреЗ рдХреЗ рд▓рд┐рдП рд╕реАрдзреЗ рд╢реБрд░реБрдЖрдд рдХрд░реЗрдВред рдпрд╣ рд╕рд╛рдордЧреНрд░реА рдХреЗрд╡рд▓ рдЙрди рд▓реЛрдЧреЛрдВ рдХреЗ рд▓рд┐рдП рдЕрднрд┐рдкреНрд░реЗрдд рд╣реИ рдЬреЛ рдпрд╣рд╛рдБ рдФрд░ рдЕрдм рдирд┐рдпрдорд┐рдд рдкреНрд░рд╕рдВрд╕реНрдХрд░рдг рдХреЛ рд╕реНрд╡рдЪрд╛рд▓рд┐рдд рдХрд░рдиреЗ рдЬрд╛ рд░рд╣реЗ рд╣реИрдВ, рдмрд╣реБрдд рд╕реВрдХреНрд╖реНрдорддрд╛ рдореЗрдВ рдЬрд╛рдиреЗ рдХреЗ рдмрд┐рдирд╛ рдФрд░ рдХреАрдорддреА рд╕рдордп рдХрд╛ рддреНрдпрд╛рдЧ рдХрд┐рдП рдмрд┐рдирд╛ред рдЗрд╕рдХреЗ рдЕрд▓рд╛рд╡рд╛, рд▓реЗрдЦ рдХреЛ рд╕реНрдХреНрд░рд┐рдкреНрдЯ-рдлреВ рд╕реЗ рдЕрд▓рдЧ рд╕реЗ рдпреЛрдЬрдирд╛ рдмрдирд╛рдиреЗ рдХреЗ рд▓рд┐рдП рдПрдХ рдЧрд╛рдЗрдб рдХреЗ рд░реВрдк рдореЗрдВ рдЙрдкрдпреЛрдЧ рдХрд░рдиреЗ рдХреА рдЕрдиреБрд╢рдВрд╕рд╛ рдирд╣реАрдВ рдХреА рдЬрд╛рддреА рд╣реИ ред рдпрд╣ рдЗрд╕ рд╕рд╛рдордЧреНрд░реА рдореЗрдВ рд╕рд░рд▓реАрдХреГрдд рдкреНрд░реЛрдЧреНрд░рд╛рдорд┐рдВрдЧ рд╢реИрд▓реА рдФрд░ рдЕрдиреНрдп рдорд╣рддреНрд╡рдкреВрд░реНрдг рддрдереНрдпреЛрдВ рдХреЗ рдХрд╡рд░реЗрдЬ рдХреА рдХрдореА рдХреЗ рдХрд╛рд░рдг рд╣реИ, рдЬреЛ рд╣рдореЗрдВ рд╡рд┐рдХрд╛рд╕ рдХреА рдЧрддрд┐ рд╕реЗ рдмрд╣реБрдд рдХрдо рдЪрд┐рдВрддрд╛ рдХрд░рддреЗ рд╣реИрдВред



рд╕рд╛рдордЧреНрд░реА:

  1. рд╣рдореЗрдВ рдХреНрдпрд╛ рдЪрд╛рд╣рд┐рдП?
  2. рд╕рд┐рдВрдЯреЗрдХреНрд╕ рдмреНрд░реАрдл
  3. рдЪрд░
  4. рдХрд╛рд░реНрдпреЛрдВ
  5. рд╕реВрдЪрд┐рдпреЛрдВ
  6. GIMP рдореЗрдВ рд╕реНрдХреНрд░рд┐рдкреНрдЯ рд░рдЬрд┐рд╕реНрдЯрд░ рдХрд░реЗрдВ
  7. рдХреЛрдб рд▓реЗрдЦрди
  8. рдирд┐рд╖реНрдХрд░реНрд╖


рд╣рдореЗрдВ рдХреНрдпрд╛ рдЪрд╛рд╣рд┐рдП?



рдЕрдВрдЧреНрд░реЗрдЬреА рдЗрдВрдЯрд░рдлрд╝реЗрд╕ : рдЗрд╕рдХреЗ рд▓рд┐рдП рдпрд╣ рдкрд░реНрдпрд╛рд╡рд░рдг рдЪрд░ "рд▓реИрдВрдЧ" рдХреЛ "рдПрди" рдорд╛рди рдХреЗ рд╕рд╛рде рдмрдирд╛рдиреЗ рдХреЗ рд▓рд┐рдП рдкрд░реНрдпрд╛рдкреНрдд рд╣реИред рдЗрд╕рдХреА рдЖрд╡рд╢реНрдпрдХрддрд╛ рдХреНрдпреЛрдВ рд╣реИ? рд╕рдмрд╕реЗ рдкрд╣рд▓реЗ, рдЗрдВрдЯрд░рдлрд╝реЗрд╕ рдСрдмреНрдЬреЗрдХреНрдЯреНрд╕ рдХреЗ рд▓рд┐рдП рдорд┐рд▓рд╛рди рдкреНрд░рдХреНрд░рд┐рдпрд╛рдУрдВ рдХреА рддрд▓рд╛рд╢ рдХрд░рдирд╛ рдЖрд╕рд╛рди рд╣реЛрдЧрд╛ред рджреВрд╕рд░реЗ, рдореБрдЭреЗ рджреЛ рднрд╛рд╖рд╛рдУрдВ рдореЗрдВ рдЯреАрдореЗрдВ рдирд╣реАрдВ рджреЗрдиреА рд╣реИрдВред рддреАрд╕рд░рд╛, рдЗрдВрдЯрд░рдиреЗрдЯ рдкрд░ рдЕрдВрдЧреНрд░реЗрдЬреА рдореЗрдВ рд╕рдмрд╕реЗ рдЕрдзрд┐рдХ рдЬрд╛рдирдХрд╛рд░реАред

рд╕реНрдХреНрд░рд┐рдкреНрдЯ-рдлреВ рдХрдВрд╕реЛрд▓ : рдлрд┐рд▓реНрдЯрд░ тЖТ рд╕реНрдХреНрд░рд┐рдкреНрдЯ-рдлреВ тЖТ рдХрдВрд╕реЛрд▓ред рдпрд╣рд╛рдВ рд╣рдо рдХреЛрдб рдХреЗ рдЫреЛрдЯреЗ рдЯреБрдХрдбрд╝реЛрдВ рдХрд╛ рдкрд░реАрдХреНрд╖рдг рдХрд░ рд╕рдХрддреЗ рд╣реИрдВ - рднрд╛рд╖рд╛ рдореЗрдВ рдорд╣рд╛рд░рдд рд╣рд╛рд╕рд┐рд▓ рдХрд░рддреЗ рд╕рдордп рдЖрдкрдХреЛ рдХреНрдпрд╛ рдЪрд╛рд╣рд┐рдПред

рдкреНрд░рдХреНрд░рд┐рдпрд╛ рдмреНрд░рд╛рдЙрдЬрд╝рд░: рдорджрдж тЖТ рдкреНрд░рдХреНрд░рд┐рдпрд╛ рдмреНрд░рд╛рдЙрдЬрд╝рд░ред рдпрд╣рд╛рдВ рдЖрдк рдЖрд╕рд╛рдиреА рд╕реЗ рдлрд╝рдВрдХреНрд╢рди рдкрд╛ рд╕рдХрддреЗ рд╣реИрдВ рдЬреЛ рдЖрд╡рд╢реНрдпрдХ рдХрд╛рд░реНрд░рд╡рд╛рдИ рдХрд░рддрд╛ рд╣реИ рдФрд░ рдЗрд╕рдХрд╛ рдкреВрд░рд╛ рд╡рд┐рд╡рд░рдг рдкрдврд╝рддрд╛ рд╣реИ (рд╕рдм рдХреБрдЫ рдЕрдЪреНрдЫреА рддрд░рд╣ рд╕реЗ рдкреНрд░рд▓реЗрдЦрд┐рдд рд╣реИ)ред

рд╣рд╛рдЗрд▓рд╛рдЗрдЯрд┐рдВрдЧ рдФрд░ / рдпрд╛ рдпреБрдЧреНрдорди рдХреЛрд╖реНрдардХ рдЧрд┐рдирддреА рдХреЗ рд╕рд╛рде рдХреЛрдб рд╕рдВрдкрд╛рджрдХ ред рдореИрдВ рдЗрд╕реЗ рдЖрдкрдХреЗ рд╕реНрд╡рд╛рдж рдХреЗ рд▓рд┐рдП рдЫреЛрдбрд╝ рджреВрдБрдЧрд╛ред рдиреЛрдЯрдкреИрдб ++ рдореЗрд░реЗ рд▓рд┐рдП рдХрд╛рдлреА рдерд╛ред рд▓реЗрдХрд┐рди рдзреНрдпрд╛рди рджреЗрдВ, рдХрдИ рдХреЛрд╖реНрдардХ рд╣реЛрдВрдЧреЗ!



рдЕрдЧрд▓реЗ рдХреБрдЫ рдЦрдВрдбреЛрдВ рдореЗрдВ рд╕реНрдХреНрд░рд┐рдкреНрдЯ-рдлрд╝реНрдпреВ рдбреЙрдХреНрдпреВрдореЗрдВрдЯ рдХреЗ рдкрд╣рд▓реЗ рдЪрд╛рд░ рдкрдиреНрдиреЛрдВ рдФрд░ рдереЛрдбрд╝реЗ рдЧреИрдЧ рдХреЗ рдЕрдВрд╢ рд╣реИрдВред рдпрд╣ рдЕрддреНрдпрдзрд┐рдХ рдЕрдиреБрд╢рдВрд╕рд┐рдд рд╣реИ рдХрд┐ рдЖрдк рдХрдВрд╕реЛрд▓ рдореЗрдВ рдирд┐рдореНрдирд▓рд┐рдЦрд┐рдд рдЙрджрд╛рд╣рд░рдгреЛрдВ рдХреЛ рдЪрд▓рд╛рдиреЗ рдХрд╛ рдкреНрд░рдпрд╛рд╕ рдХрд░реЗрдВред



рд╕рд┐рдВрдЯреЗрдХреНрд╕ рдмреНрд░реАрдл

рдпрд╣ рдПрдХ рдЙрджрд╛рд╣рд░рдг рджреЗрдиреЗ рдХрд╛ рд╕рдордп рд╣реИ:

(* (+ 1 2) (sqrt (- 13 4)) 10)
      
      





рдЕрдВрддрд┐рдо рдЧреБрдгрд╛ рдХрд╛ рдкрд░рд┐рдгрд╛рдо рд╣реЛрдЧрд╛ред рдЬреИрд╕рд╛ рдХрд┐ рдЖрдк рджреЗрдЦ рд╕рдХрддреЗ рд╣реИрдВ, рдЧреБрдгрди рдХрд╛ рдХрд╛рд░реНрдп рддреАрди рддрд░реНрдХреЛрдВ рдХреЛ рдкрд╛рд░рд┐рдд рдХрд┐рдпрд╛ рдЬрд╛рддрд╛ рд╣реИ: рдЗрд╕рдХреЗ рдЕрд▓рд╛рд╡рд╛, рдЕрдВрддрд░ рдФрд░ рдПрдХ рд╕рдВрдЦреНрдпрд╛ рд╕реЗ рдЬрдбрд╝ рдирд┐рдХрд╛рд▓рдиреЗ рдХрд╛ рдкрд░рд┐рдгрд╛рдо рд╣реИред рдХреЛрд╖реНрдардХ рдХреА рд╕рдВрдЦреНрдпрд╛ рдкрд░ рдзреНрдпрд╛рди рджреЗрдВ: рд╡реЗ рд╣рд░ рдЬрдЧрд╣ рдЖрд╡рд╢реНрдпрдХ рд╣реИрдВред рдЗрд╕рдореЗрдВ рд╣рд╕реНрддрдХреНрд╖реЗрдк рд╣реЛ рд╕рдХрддрд╛ рд╣реИ, рд▓реЗрдХрд┐рди рдпрд╣ рд╣рдореЗрд╢рд╛ рд╕реНрдкрд╖реНрдЯ рд╣реЛрддрд╛ рд╣реИ рдХрд┐ рдХреНрдпрд╛ рдЧрдгрдирд╛ рдХреА рдЬрд╛ рд░рд╣реА рд╣реИред рдЙрджрд╛рд╣рд░рдг: " (+ 1 2)



" рд╕рд╣реА рдХреЛрдб рд╣реИ, " (+1 2)



" рдирд╣реАрдВ рд╣реИред

рдЪрд░



рдпреЛрдЬрдирд╛ рдореЗрдВ рдЪрд░ рдХреЛ let*



рдирд┐рд░реНрдорд╛рдг рдХрд╛ рдЙрдкрдпреЛрдЧ рдХрд░рдХреЗ рдкрд░рд┐рднрд╛рд╖рд┐рдд рдХрд┐рдпрд╛ рдЧрдпрд╛ рд╣реИред рд╕рд╛рдорд╛рдиреНрдп рджреГрд╢реНрдп:

 (let* ( ( ) ... ( ) ) () ... () )
      
      





рдЕрдирд┐рд╡рд╛рд░реНрдп рднрд╛рд╖рд╛рдУрдВ рдХреА рддреБрд▓рдирд╛ рдореЗрдВ, рдпрд╣ рд╕реНрдерд╛рдиреАрдп рдЪрд░ рдШреЛрд╖рд┐рдд рдХрд░рдиреЗ рдЬреИрд╕рд╛ рдХреБрдЫ рд╣реИред рджреВрд╕рд░реЗ рд╢рдмреНрджреЛрдВ рдореЗрдВ, рдмреНрд░реИрдХреЗрдЯ рдХреЗ рдмрд╛рдж рдЬреЛ let*



рдХрдВрд╕реНрдЯреНрд░рдХреНрд╢рди рдХреЛ рдмрдВрдж рдХрд░ рджреЗрддрд╛ рд╣реИ, рд╡реИрд░рд┐рдПрдмрд▓ рдореМрдЬреВрдж рдирд╣реАрдВ рд░рд╣рддрд╛ рд╣реИред

рдПрдХ рдЙрджрд╛рд╣рд░рдг:

 (let* ( (a 1) (b (+ a 2)) ) (+ ab) )
      
      





рдПрдХ рдФрд░ рдЙрджрд╛рд╣рд░рдг:
 (let* ( (x 9) ) (sqrt x) )
      
      





рдХреГрдкрдпрд╛ рдзреНрдпрд╛рди рджреЗрдВ рдХрд┐ рдЬрдм рд╣рдо рдХреЗрд╡рд▓ рдПрдХ рдЪрд░ рдХреЛ рдкрд░рд┐рднрд╛рд╖рд┐рдд рдХрд░рддреЗ рд╣реИрдВ, рддрдм рднреА рдЪрд░ рдХреА рд╕реВрдЪреА рдХреЗ рд▓рд┐рдП рдмрд╛рд╣рд░реА рдХреЛрд╖реНрдардХ рдЫреЛрдбрд╝реЗ рдирд╣реАрдВ рдЬрд╛рддреЗ рд╣реИрдВ!



рдЖрдк set!



рдХрд╛ рдЙрдкрдпреЛрдЧ рдХрд░рдХреЗ рдПрдХ рдЪрд░ рдХреЗ рд▓рд┐рдП рдПрдХ рдирдпрд╛ рдорд╛рди рдкреНрд░рджрд╛рди рдХрд░ рд╕рдХрддреЗ рд╣реИрдВ set!



:

 (set!  )
      
      





рдПрдХ рдЙрджрд╛рд╣рд░рдг:

 (let* ( (a 42) (b 21) (x 0) ) (set! x (/ ab)) )
      
      





рдХрд╛рд░реНрдпреЛрдВ



рдЖрдк рдЕрдкрдиреЗ рдХрд╛рд░реНрдпреЛрдВ рдХреЛ define



рдирд┐рд░реНрдорд╛рдг рдХрд╛ рдЙрдкрдпреЛрдЧ рдХрд░рдХреЗ рдкрд░рд┐рднрд╛рд╖рд┐рдд рдХрд░ рд╕рдХрддреЗ рд╣реИрдВ:

 (define (_ ) _)
      
      





рдлрд╝рдВрдХреНрд╢рди рдХрд╛ рдорд╛рди рдлрд╝рдВрдХреНрд╢рди рдХреЛрдб рдореЗрдВ рдЕрдВрддрд┐рдо рдХрдорд╛рдВрдб рдХрд╛ рдкрд░рд┐рдгрд╛рдо рд╣реЛрдЧрд╛ред

рд╣рдо рдореЙрдбреНрдпреВрд▓ рдХреЗ рдЕрдВрддрд░ рдХреА рдЧрдгрдирд╛ рдХреЗ рдХрд╛рд░реНрдп рдХреЛ рдХрд╛рд░реНрдпрд╛рдиреНрд╡рд┐рдд рдХрд░рддреЗ рд╣реИрдВ ( )ред рдпрд╣ abs



рд╕рд╛рде рдХрд┐рдпрд╛ рдЬрд╛ рд╕рдХрддрд╛ рд╣реИ, рд▓реЗрдХрд┐рди рд╣рдо рдЗрд╕реЗ рдФрд░ рдЕрдзрд┐рдХ рдЬрдЯрд┐рд▓ рдмрдирд╛ рджреЗрдВрдЧреЗ:

 (define (difference xy) (if (< x 0) (set! x (- x))) (if (< y 0) (set! y (- y))) (if (> xy) (- xy) (- yx)) )
      
      





рдпрд╣рд╛рдВ рд╣рдордиреЗ if



рдирд┐рд░реНрдорд╛рдг рдХрд╛ рдЙрдкрдпреЛрдЧ рдХрд┐рдпрд╛ рд╣реИ, рдЬреЛ рдЗрд╕рдХреЗ рдкрд╣рд▓реЗ рддрд░реНрдХ рдХреА рд╕рдЪреНрдЪрд╛рдИ рдХреА рдЬрд╛рдВрдЪ рдХрд░рддрд╛ рд╣реИ рдФрд░ рдЗрд╕рдХреЗ рдЖрдзрд╛рд░ рдкрд░, рджреВрд╕рд░реЗ рдпрд╛ рддреАрд╕рд░реЗ рддрд░реНрдХ рдХреЛ рдирд┐рд╖реНрдкрд╛рджрд┐рдд рдХрд░рддрд╛ рд╣реИ (рдмрд╛рдж рд╡рд╛рд▓рд╛, рдЬреИрд╕рд╛ рдХрд┐ рдЖрдк рджреЗрдЦ рд╕рдХрддреЗ рд╣реИрдВ, рд╡реИрдХрд▓реНрдкрд┐рдХ рд╣реИ)ред

рдзреНрдпрд╛рди рджреЗрдВ рдХрд┐ рдПрдХ рдлрд╝рдВрдХреНрд╢рди рдЕрдкрдиреЗ рддрд░реНрдХреЛрдВ рдХреЛ рдЪрд░ рдХреЗ рд░реВрдк рдореЗрдВ рдорд╛рди рд╕рдХрддрд╛ рд╣реИ, рд▓реЗрдХрд┐рди рдпрд╣ рдХреЗрд╡рд▓ рдЙрдирдХреА рдкреНрд░рддрд┐рдпреЛрдВ рдХреЛ рд╕рдВрд╢реЛрдзрд┐рдд рдХрд░рддрд╛ рд╣реИред рдЗрд╕реЗ рдирд┐рдореНрдирд╛рдиреБрд╕рд╛рд░ рд╕рддреНрдпрд╛рдкрд┐рдд рдХрд┐рдпрд╛ рдЬрд╛ рд╕рдХрддрд╛ рд╣реИ:

 (let* ((a 3) (b -4)) (list (difference ab) ab))
      
      





( list



рдлрд╝рдВрдХреНрд╢рди рдХрд╛ рдЙрдкрдпреЛрдЧ рдпрд╣рд╛рдВ рдХрдИ рдкрд░рд┐рдгрд╛рдореЛрдВ рдХреЗ рдЙрддреНрдкрд╛рджрди рдХреЗ рд▓рд┐рдП рдХрд┐рдпрд╛ рдЬрд╛рддрд╛ рд╣реИ - рдлрд╝рдВрдХреНрд╢рди рдХрд╛ рдорд╛рди, рдЪрд░ a



рдФрд░ рдЪрд░ b



- рдФрд░ рд╣рдо рдиреАрдЪреЗ рджреА рдЧрдИ рд╕реВрдЪрд┐рдпреЛрдВ рдХреЗ рдмрд╛рд░реЗ рдореЗрдВ рдЕрдзрд┐рдХ рдмрд╛рдд рдХрд░реЗрдВрдЧреЗ)ред рдХрдВрд╕реЛрд▓ рдореЗрдВ рдЪрд▓рд╛рдПрдВ рдФрд░ рдЬрд╛рдВрдЪреЗрдВ рдХрд┐ рдЪрд░ рдХреЗ рдорд╛рди рдирд╣реАрдВ рдмрджрд▓реЗ рд╣реИрдВред



рд╕реВрдЪрд┐рдпреЛрдВ



рд╕реВрдЪреА рдХреЛ рдкрд░рд┐рднрд╛рд╖рд┐рдд рдХрд░рдиреЗ рдХреЗ рд▓рд┐рдП, рдмрд╕ рд▓рд┐рдЦреЗрдВ (рдХреЛрдИ рдЕрд▓реНрдкрд╡рд┐рд░рд╛рдо):

 '(0 1 1 2 3 5 8 13)
      
      





рдПрдХ рдЦрд╛рд▓реА рд╕реВрдЪреА " '()



"рдФрд░" ()



"" рдХреЗ рдорд╛рдзреНрдпрдо рд╕реЗ рдирд┐рд░реНрджрд┐рд╖реНрдЯ рдХреА рдЬрд╛ рд╕рдХрддреА рд╣реИред рд╕реВрдЪреА рдореЗрдВ рдкрд░рдорд╛рдгреБ рдореВрд▓реНрдп рдФрд░ рдЕрдиреНрдп рд╕реВрдЪрд┐рдпрд╛рдБ рд╢рд╛рдорд┐рд▓ рд╣реЛ рд╕рдХрддреА рд╣реИрдВ:

 (let* ( (x '("GIMP" (1 2 3) ("is" ("great" () ) ) ) ) ) x )
      
      





рдЪреВрдВрдХрд┐ рд╣рдордиреЗ рдкрд╣рд▓реЗ рд╕реЗ рд╣реА рдПрдХ рдПрдкреЙрд╕реНрдЯреНрд░реЙрдлрд╝ рд▓рд┐рдЦрд╛ рдерд╛, рдЗрд╕рд▓рд┐рдП рдЙрдирдХреЗ рд╕рд╛рде рдЖрдВрддрд░рд┐рдХ рд╕реВрдЪрд┐рдпреЛрдВ рдХреЛ рдкреВрд░реНрд╡рд╡рд░реНрддреА рдХрд░рдирд╛ рдЖрд╡рд╢реНрдпрдХ рдирд╣реАрдВ рд╣реИред

рд╕реВрдЪреА рдХреЗ рд╢реАрд░реНрд╖ рдкрд░ рдПрдХ рдФрд░ рддрддреНрд╡ рдЬреЛрдбрд╝рдиреЗ рдХреЗ рд▓рд┐рдП, cons



рдХреЙрдиреНрд╕реЗрдкреНрдЯреЗрд╢рди рдлрд╝рдВрдХреНрд╢рди рдХрд╛ рдЙрдкрдпреЛрдЧ рдХрд░реЗрдВ:

 (cons 1 '(2 3 4) )
      
      





рдпрд╣ рдЦрд╛рд▓реА рд╕реВрдЪрд┐рдпреЛрдВ рдХреЗ рд╕рд╛рде рд╕рдорд╛рди рд░реВрдк рд╕реЗ рдЕрдЪреНрдЫреА рддрд░рд╣ рд╕реЗ рдХрд╛рдо рдХрд░рддрд╛ рд╣реИ (" (cons 1 () )



" рдПрдХ рдЖрдЗрдЯрдо рдХреА рдПрдХ рд╕реВрдЪреА рджреЗрдЧрд╛)ред

рдкрд╣рд▓реЗ рд╕реЗ рдШреЛрд╖рд┐рдд рдЪрд░ рдХреЗ рдореВрд▓реНрдпреЛрдВ рд╡рд╛рд▓реА рдПрдХ рд╕реВрдЪреА рдмрдирд╛рдиреЗ рдХреЗ рд▓рд┐рдП, рдЖрдкрдХреЛ list



рдлрд╝рдВрдХреНрд╢рди рдХреА рдЖрд╡рд╢реНрдпрдХрддрд╛ рд╣реИ:

 (let* ( (a 1) (b 2) (c 3) ) (list abc 4 5) )
      
      





рдПрдХ рдПрдкреЛрд╕реНрдЯреНрд░реЛрдл рдХрд╛ рдЙрдкрдпреЛрдЧ рдХрд░рдХреЗ рдПрдХ рд╕реВрдЪреА рдХреЛ рдкрд░рд┐рднрд╛рд╖рд┐рдд рдХрд░рдиреЗ рдХреЗ рд╕рд╛рде рдЕрдВрддрд░ рдХреЛ рд╕рдордЭрдиреЗ рдХреЗ рд▓рд┐рдП, " (list abc 4 5)



рд╕рд╛рде" '(abc 4 5)



(list abc 4 5)



рдмрджрд▓реЗрдВ рдФрд░ рдЖрдЙрдЯрдкреБрдЯ рдХреА рддреБрд▓рдирд╛ рдХрд░реЗрдВред

рдпрд╣ рд╕рдм рдЕрдЪреНрдЫрд╛ рд╣реИ, рд▓реЗрдХрд┐рди рдЖрдкрдХреЛ рдХрд┐рд╕реА рд╕реВрдЪреА рдХреА рд╕рд╛рдордЧреНрд░реА рдХреИрд╕реЗ рдорд┐рд▓рддреА рд╣реИ? рдЗрд╕рдХреЗ рд▓рд┐рдП рджреЛ рдХрд╛рд░реНрдп рд╣реИрдВред рдкрд╣рд▓реА, car



, рд╕реВрдЪреА рдХрд╛ рдкреНрд░рдореБрдЦ, рдЕрд░реНрдерд╛рддреН рдкрд╣рд▓рд╛ рддрддреНрд╡ рджреЗрддрд╛ рд╣реИред рджреВрд╕рд░рд╛, cdr



, рд╕реВрдЪреА рдХреА рдкреВрдВрдЫ рд▓реМрдЯрд╛рддрд╛ рд╣реИ, cdr



, рдкрд╣рд▓реЗ рдХреЛ рдЫреЛрдбрд╝рдХрд░ рд╕рднреА рддрддреНрд╡реЛрдВ рд╕реЗ рдпреБрдХреНрдд рдПрдХ рд╕реВрдЪреАред рджреЛрдиреЛрдВ рдлрд╝рдВрдХреНрд╢рди рдпрд╣ рдорд╛рдирддреЗ рд╣реИрдВ рдХрд┐ рд╕реВрдЪреА рдЦрд╛рд▓реА рдирд╣реАрдВ рд╣реИред рдЙрджрд╛рд╣рд░рдг:

 (car '(1 2 3 4) )
      
      



 (cdr '(1 2 3 4) )
      
      



 (car '(1) )
      
      



 (cdr '(1) )
      
      





рдХреНрд░рдорд┐рдХ рд░реВрдк рд╕реЗ car



рдФрд░ cdr



рдХреЛ рдХреЙрд▓ рдХрд░рдиреЗ рдХреЗ рдмрдЬрд╛рдп, caadr



, cddr



, рдЖрджрд┐ рдЬреИрд╕реЗ рдХрд╛рд░реНрдпреЛрдВ рдХрд╛ рдЙрдкрдпреЛрдЧ рдХрд░рдирд╛ рдЙрдкрдпреЛрдЧреА рд╣реЛ рд╕рдХрддрд╛ рд╣реИред рдЙрджрд╛рд╣рд░рдг рдХреЗ рд▓рд┐рдП, рд╕реВрдЪреА рдХрд╛ рджреВрд╕рд░рд╛ рддрддреНрд╡ рдкреНрд░рд╛рдкреНрдд рдХрд░рдиреЗ рдХреЗ рд▓рд┐рдП, рдирд┐рдореНрдирд▓рд┐рдЦрд┐рдд рд▓рд┐рдЦреЗрдВ:

 (cadr '("first" "second") )
      
      



рдЬреЛ рдмрд░рд╛рдмрд░ рд╣реИ

 (car (cdr '("first" "second") ) )
      
      





рдирд┐рдореНрдирд▓рд┐рдЦрд┐рдд рдЙрджрд╛рд╣рд░рдг рдореЗрдВ, рдРрд╕реЗ рдХрд╛рд░реНрдпреЛрдВ рдХреЗ рд▓рд┐рдП рдХреЗрд╡рд▓ рджреЛ рдХреЙрд▓ рдХрд╛ рдЙрдкрдпреЛрдЧ рдХрд░рдХреЗ рддрддреНрд╡ 3 рдХреЛ рдкреНрд░рд╛рдкреНрдд рдХрд░рдиреЗ рдХрд╛ рдкреНрд░рдпрд╛рд╕ рдХрд░реЗрдВ:

 (let* ( ( x '( (1 2 (3 4 5) 6) 7 8 (9 10) ) ) ) ;    )
      
      





рдпрджрд┐ рдЖрдк рд╕рдлрд▓ рд╣реЛрддреЗ рд╣реИрдВ, рддреЛ рдЖрдк рдЕрдкрдиреА рдкрд╣рд▓реА рд╕реНрдХреНрд░рд┐рдкреНрдЯ рд▓рд┐рдЦрдиреЗ рдХреЗ рд▓рд┐рдП рд▓рдЧрднрдЧ рддреИрдпрд╛рд░ рд╣реИрдВред



GIMP рдореЗрдВ рд╕реНрдХреНрд░рд┐рдкреНрдЯ рд░рдЬрд┐рд╕реНрдЯрд░ рдХрд░реЗрдВ



рдЗрд╕рд╕реЗ рдкрд╣рд▓реЗ рдХрд┐ рдЖрдк рдХреЛрдб рд▓рд┐рдЦрдиреЗ рдХреЗ рд▓рд┐рдП рдмреИрдареЗрдВ, рд╣рдо рдЗрд╕рдХреЗ рд▓рд┐рдП рд╕реБрд╡рд┐рдзрд╛рдЬрдирдХ рд╕реНрдерд┐рддрд┐ рдкреНрд░рджрд╛рди рдХрд░реЗрдВрдЧреЗред



рдЙрдкрдпреЛрдЧрдХрд░реНрддрд╛ рд╕реНрдХреНрд░рд┐рдкреНрдЯ рдХреЗ рд▓рд┐рдП, GIMP рд╣реЛрдо рдирд┐рд░реНрджреЗрд╢рд┐рдХрд╛ рдореЗрдВ .gimp-2.6/scripts



рдлрд╝реЛрд▓реНрдбрд░ рдмрдирд╛рддрд╛ рд╣реИред рд╕реНрдХреНрд░рд┐рдкреНрдЯ рдХреЛ рдЪреБрдирдиреЗ рдХреЗ рд▓рд┐рдП, рдмрд╕ рдЙрд╕рдореЗрдВ scm рдлрд╝рд╛рдЗрд▓ рд░рдЦреЗрдВ рдФрд░ рдлрд╝рд┐рд▓реНрдЯрд░ рдХрд╛ рдЪрдпрди рдХрд░реЗрдВ тЖТ Script-fu тЖТ GIMP рдореЗрдиреВ рдореЗрдВ рд▓рд┐рдкрд┐рдпреЛрдВ рдХреЛ рддрд╛рдЬрд╝рд╛ рдХрд░реЗрдВ (рдпрд╣ рд╣реИ рдХрд┐ GIMP рдкрд╣рд▓реЗ рд╕реЗ рд╣реА рдЪрд▓ рд░рд╣рд╛ рд╣реИ, рдЕрдиреНрдпрдерд╛ рдпрд╣ рд╕реНрдЯрд╛рд░реНрдЯрдЕрдк рдкрд░ рд╕рдм рдХреБрдЫ рд▓реЛрдб рдХрд░реЗрдЧрд╛)ред



рдЬрд╛рд╣рд┐рд░ рд╣реИ, рд╣рдорд╛рд░реЗ рджреНрд╡рд╛рд░рд╛ рд▓рд┐рдЦреЗ рдЧрдП рдХрд╛рд░реНрдпреЛрдВ рдХреЛ рдлрд╝рд╛рдЗрд▓ рдореЗрдВ рд░рдЦрд╛ рдЬрд╛рдирд╛ рдЪрд╛рд╣рд┐рдПред рдЗрд╕рдореЗрдВ рдЖрдк рдЬрд┐рддрдиреЗ рдЪрд╛рд╣реЗрдВ рдЙрддрдиреЗ рдлрд╝рдВрдХреНрд╢рди рд╢рд╛рдорд┐рд▓ рдХрд░ рд╕рдХрддреЗ рд╣реИрдВ, рд▓реЗрдХрд┐рди рддрд╛рд░реНрдХрд┐рдХ рд░реВрдк рд╕реЗ рд╡рд┐рднрд┐рдиреНрди рдлрд╝рдВрдХреНрд╢рдВрд╕ рдХреЛ рдЕрд▓рдЧ-рдЕрд▓рдЧ рдлрд╝рд╛рдЗрд▓реЛрдВ рдореЗрдВ рд╕реЙрд░реНрдЯ рдХрд░рдирд╛ рдЕрдЪреНрдЫрд╛ рд╣реЛрдЧрд╛, рдФрд░ рдлрд╝рд╛рдЗрд▓реЛрдВ рдХреЛ рд╕рд╛рдордЧреНрд░реА рдХреЗ рд╕рдореНрдорд╛рди рдореЗрдВ рдирд╛рдо рджреЗрдВред рдПрдХ рдФрд░ рд╕рд┐рдлрд╛рд░рд┐рд╢, рдпрд╣рд╛рдВ рддрдХ тАЛтАЛрдХрд┐ рдПрдХ рд╕рдореНрдореЗрд▓рди: рд╣рдорд╛рд░реЗ рджреНрд╡рд╛рд░рд╛ рдмрдирд╛рдП рдЧрдП рдХрд╛рд░реНрдпреЛрдВ рдХреЛ script-fu-functionname



рдирд╛рдо рдкрд░ рд░рдЦрд╛ рдЬрд╛рдирд╛ рдЪрд╛рд╣рд┐рдПред



рджреНрд╡рд╛рд░рд╛ рдФрд░ рдмрдбрд╝реЗ, рдпрд╣ рд╣рдорд╛рд░реЗ рд▓рд┐рдП рдкрд╣рд▓реЗ рд╕реЗ рд╣реА рдХрдВрд╕реЛрд▓ рд╕реЗ рд╣рдорд╛рд░реЗ рдХрд╛рд░реНрдпреЛрдВ рдХреЛ рдХреЙрд▓ рдХрд░рдиреЗ рдХреЗ рд▓рд┐рдП рдкрд░реНрдпрд╛рдкреНрдд рд╣реИред

рд▓реЗрдХрд┐рди рдЕрдЧрд░ рд╣рдо рдЪрд╛рд╣рддреЗ рд╣реИрдВ рдХрд┐ рд╕реНрдХреНрд░рд┐рдкреНрдЯ рдХрд╛ рдЕрдкрдирд╛ рдореЗрдиреВ рд╣реЛ, рдФрд░ рдЬрдм рдпрд╣ рдЦреБрд▓рддрд╛ рд╣реИ, рддреЛ рд╕реЗрдЯрд┐рдВрдЧреНрд╕ рдХреЗ рд╕рд╛рде рдПрдХ рд╡рд┐рдВрдбреЛ рдЦреБрд▓рддреА рд╣реИ, рддреЛ рд╣рдореЗрдВ рджреЛ рдХрд╛рд░реНрдпреЛрдВ рдХреЛ рдЬреЛрдбрд╝рдиреЗ рдХреА рдЖрд╡рд╢реНрдпрдХрддрд╛ рд╣реИ рдЬреЛ рдкрдВрдЬреАрдХрд░рдг рдХреЗ рд▓рд┐рдП рдЬрд┐рдореНрдореЗрджрд╛рд░ рд╣реИрдВред рдФрд░ рдХреБрдЫ рднреА рдЬрдЯрд┐рд▓ рдирд╣реАрдВ рд╣реИ, рдмрд╕ рдПрдХ рдЙрджрд╛рд╣рд░рдг рджреЗрдЦреЗрдВред



рдорд╛рди рд▓реАрдЬрд┐рдП рд╣рдо рдПрдХ рдлрд╝рдВрдХреНрд╢рди рд▓рд┐рдЦрдирд╛ рдЪрд╛рд╣рддреЗ рд╣реИрдВ рдЬреЛ рдЕрд╕рдорд╛рди рд░реЛрд╢рдиреА рдХреЗ рд╕рд╛рде рдПрдХ рдЫрд╡рд┐ рдореЗрдВ рдкрд╛рда рдХреА рдЧреБрдгрд╡рддреНрддрд╛ рдореЗрдВ рд╕реБрдзрд╛рд░ рдХрд░рддрд╛ рд╣реИ (рд╡рд╛рд╕реНрддрд╡ рдореЗрдВ, рдореИрдВрдиреЗ рдкрд╣рд▓реЗ рд╣реА рдЗрд╕реЗ рд▓рд┐рдЦрд╛ рдерд╛, рд▓реЗрдХрд┐рди рдпрд╣ рд╣рдореЗрдВ рдлрд┐рд░ рд╕реЗ рдРрд╕рд╛ рдХрд░рдиреЗ рд╕реЗ рдирд╣реАрдВ рд░реЛрдХрддрд╛ рд╣реИ)ред рдпрд╣рд╛рдБ рдЙрд╕рдХреА рдкрд░рд┐рднрд╛рд╖рд╛ рд╣реИ:

 (define (script-fu-readability inImage inLayer inRadius inHigh-input))
      
      





рдореБрдЭреЗ рдкрддрд╛ рд╣реИ, рдореБрдЭреЗ рдкрддрд╛ рд╣реИ, рдХреЗрд╡рд▓ рдПрдХ рдлрд╝рдВрдХреНрд╢рди рдШреЛрд╖рдгрд╛ рд╣реИ, рдФрд░ рдпрд╣ рдХреБрдЫ рднреА рдирд╣реАрдВ рдХрд░рддрд╛ рд╣реИред рдЙрдкрдпреЛрдЧреА рдХреЛрдб рдереЛрдбрд╝рд╛ рдмрд╛рдж рдореЗрдВ рд╣реЛрдЧрд╛ред рдЕрдм рдпрд╣ рд╣рдорд╛рд░реЗ рд▓рд┐рдП рдХрд╛рдлреА рд╣реИред рдкрдВрдЬреАрдХрд░рдг рдЗрд╕ рддрд░рд╣ рд╣реЛрддрд╛ рд╣реИ:

 (script-fu-register "script-fu-readability" "Readability" "Improves text readability on the photos. It's needed only when there is a non-uniform illumination" "Dragonizer" "Copyleft, use it at your own sweet will" "January 7, 2011" "RGB* GRAY* INDEXED*" SF-IMAGE "The image" 0 SF-DRAWABLE "The layer" 0 SF-ADJUSTMENT "Median blur: radius" '(15 1 20 1 5 0 SF-SLIDER) SF-ADJUSTMENT "Levels: intensity of highest input" '(235 0 255 1 10 0 SF-SPINNER) ) (script-fu-menu-register "script-fu-readability" "<Image>/Filters/User's scripts")
      
      





рдкрд╣рд▓рд╛ рдлрд╝рдВрдХреНрд╢рди рдирд┐рдореНрди рдкрд╛рд░рд┐рдд рдХрд┐рдпрд╛ рдЧрдпрд╛ рд╣реИред рдкрд╣рд▓рд╛ рддрд░реНрдХ рд╣рдорд╛рд░реЗ рдлрд╝рдВрдХреНрд╢рди рдХрд╛ рдирд╛рдо рд╣реИ, рджреВрд╕рд░рд╛ рдкреНрд░рджрд░реНрд╢рди рдирд╛рдо рд╣реИ, рддреАрд╕рд░рд╛ рд╡рд┐рд╡рд░рдг рд╣реИ, рдЪреМрдерд╛ рд▓реЗрдЦрдХ рд╣реИ, рдкрд╛рдВрдЪрд╡рд╛ рдХреЙрдкреАрд░рд╛рдЗрдЯ рд╕реВрдЪрдирд╛ рд╣реИ, рдФрд░ рдЫрдареА рд░рдЪрдирд╛ рддрд┐рдерд┐ рд╣реИред рд╕рд╛рддрд╡реАрдВ - рд╕рдорд░реНрдерд┐рдд рдЫрд╡рд┐рдпреЛрдВ рдХреЗ рдкреНрд░рдХрд╛рд░ (RGB, RGBA, GRAY, GRAYA, INDEXED, INDEXEDA)ред



рдЗрд╕рдХреЗ рдмрд╛рдж рдХреЗ рддрд░реНрдХ рд╡реИрдХрд▓реНрдкрд┐рдХ рд╣реИрдВред рд╡реЗ ( SF-IMAGE



рдФрд░ SF-DRAWABLE



рдХреЛ рдЫреЛрдбрд╝рдХрд░) рдЖрдкрдХреЛ рд╕реНрдХреНрд░рд┐рдкреНрдЯ рд╡рд┐рдВрдбреЛ рдореЗрдВ рд╡рд┐рдЬреЗрдЯ рдмрдирд╛рдиреЗ рдХреЗ рд▓рд┐рдП рдЕрдиреБрдорддрд┐ рджреЗрддреЗ рд╣реИрдВ, рдЬреИрд╕реЗ рдХрд┐ рд▓рд╛рдЗрдиреЛрдВ, рдЬреИрдХрдбреЙрд╡, рд╕реНрд▓рд╛рдЗрдбрд░, рд╕реНрдкрд┐рдирд░, рд░рдВрдЧ, рдлрд╝реЙрдиреНрдЯ, рдФрд░ рдмрд╣реБрдд рдХреБрдЫ, рдлрд╝рдВрдХреНрд╢рди рдХреЗ рд▓рд┐рдП рдЙрдкрдпреЛрдЧрдХрд░реНрддрд╛ рдХреА рдкрд╕рдВрдж рдХреЛ рдкрд╛рд╕ рдХрд░рдиреЗ рдХреЗ рд▓рд┐рдПред рдЙрд▓реНрд▓реЗрдЦрд┐рдд SF-IMAGE



рд╣рдореЗрдВ рд╡рд░реНрддрдорд╛рди рдЦреБрд▓реА рдЫрд╡рд┐ рдХреЗ рд▓рд┐рдП рдПрдХ рд▓рд┐рдВрдХ рджреЗрдЧрд╛, рдФрд░ SF-DRAWABLE



- рдЪрдпрдирд┐рдд рдкрд░рдд рдХреЛред рдореИрдВ рдЗрди рд╕рднреА SF-*



рдХрд╛ рд╡рд░реНрдгрди рдирд╣реАрдВ рдХрд░реВрдВрдЧрд╛, рдЙрдирдХреЗ рдкреИрд░рд╛рдореАрдЯрд░ рдЖрдк рдпрд╣рд╛рдВ рддрд╛рд▓рд┐рдХрд╛рдУрдВ рдореЗрдВ рджреЗрдЦ рд╕рдХрддреЗ рд╣реИрдВ (рдмрд╛рдХреА рдХреЛ рдкрдврд╝рдиреЗ рдХреЗ рд▓рд┐рдП рдЖрд╡рд╢реНрдпрдХ рдирд╣реАрдВ рд╣реИ, рдХреНрдпреЛрдВрдХрд┐ рдпрд╣ рдЗрд╕ рд▓реЗрдЦ рдореЗрдВ рд╕рдВрдХреНрд╖реЗрдк рдореЗрдВ рджрд┐рдпрд╛ рдЧрдпрд╛ рд╣реИ)ред рдФрд░ рдореИрдВ рдЖрдкрдХреЛ рд╕рд▓рд╛рд╣ рджреЗрддрд╛ рд╣реВрдВ рдХрд┐ рдЗрд╕ рдЪрд┐рддреНрд░ рдХреЛ рджреЗрдЦрдиреЗ рдХреЗ рд▓рд┐рдП рдЖрдкрдХреЛ рдпрд╣ рд╕рдордЭрдиреЗ рдХреА рдЖрд╡рд╢реНрдпрдХрддрд╛ рд╣реИ рдХрд┐ рдЖрдкрдХреЛ рдЗрд╕рд╕реЗ рдХреНрдпрд╛ рд▓реЗрдирд╛ ( рдпрд╣рд╛рдБ рд╕реЗ рд▓рд┐рдпрд╛ рдЧрдпрд╛ )



рдЦрд┐рдбрд╝рдХреА рддреИрдпрд╛рд░ рд╣реИ, рдпрд╣ рдЬреАрдЖрдИрдПрдордкреА рдореЗрдиреВ рдореЗрдВ рдЕрдкрдиреА рдХреЙрд▓ рдХреЛ рдЬреЛрдбрд╝рдиреЗ рдХреЗ рд▓рд┐рдП рдмрдиреА рд╣реБрдИ рд╣реИ, рдЬреЛ рдКрдкрд░ рджрд┐рдП рдЧрдП рдХреЛрдб рдХрд╛ рджреВрд╕рд░рд╛ рдХрд╛рд░реНрдп рдХрд░рддрд╛ рд╣реИред рджреЛ рддрд░реНрдХ: рдлрд┐рд░ рд╕реЗ, рдлрд╝рдВрдХреНрд╢рди рдХрд╛ рдирд╛рдо рдФрд░ рдореЗрдиреВ рдХрд╛ рдкрдеред рдкрде <Image>



рд╢реБрд░реВ рд╣реЛрддрд╛ рд╣реИ, рдЕрдЧрд░ рдХреЛрдИ рд╢рд╛рдЦрд╛ рдкрд╣рд▓реЗ рдореМрдЬреВрдж рдирд╣реАрдВ рдереА, рддреЛ рдЬреАрдЖрдИрдПрдордкреА рдЙрдиреНрд╣реЗрдВ рдЬреЛрдбрд╝ рджреЗрдЧрд╛ред



рдПрдХ рдФрд░ рдЙрджрд╛рд╣рд░рдг: рдпрджрд┐ рд╣рдо рдПрдХ рд╕реНрдХреНрд░рд┐рдкреНрдЯ рд▓рд┐рдЦрдирд╛ рдЪрд╛рд╣рддреЗ рдереЗ рдЬреЛ рдирд┐рд░реНрджрд┐рд╖реНрдЯ рдЧреБрдгреЛрдВ рдХреЗ рд╕рд╛рде рдПрдХ рдЫрд╡рд┐ рдмрдирд╛рддрд╛ рд╣реИ , рддреЛ рд╣рдо "RGB* GRAY* INDEXED*"



рдмрдЬрд╛рдп рдкрд╣рд▓реЗ рдлрд╝рдВрдХреНрд╢рди рд╕реЗ SF-IMAGE



рдФрд░ SF-DRAWABLE



рдХреЛ рд╣рдЯрд╛ рджреЗрдВрдЧреЗ, "RGB* GRAY* INDEXED*"



рдПрдХ рдЦрд╛рд▓реА рд╕реНрдЯреНрд░рд┐рдВрдЧ рдХрд╛ рдЙрдкрдпреЛрдЧ рдХрд░реЗрдВрдЧреЗ ""



(рд╣рдо рдирд╣реАрдВ рдХрд░рддреЗ) рдЖрдкрдХреЛ рдПрдХ рдЦреБрд▓реА рдЫрд╡рд┐ рдХреА рдЖрд╡рд╢реНрдпрдХрддрд╛ рд╣реИ, рд╣рдо рдЗрд╕реЗ рдмрдирд╛рдПрдВрдЧреЗ), рдФрд░ рджреВрд╕рд░реЗ рдлрд╝рдВрдХреНрд╢рди рдореЗрдВ рд╣рдо "<Image>/File/Create/Something"



рдЬреИрд╕реА рдЪреАрдЬрд╝ рдореЗрдВ рдмрджрд▓рд╛рд╡ рдХрд░реЗрдВрдЧреЗред



рдкрд░рд┐рдгрд╛рдо рдХрд╛ рдЖрдирдВрдж рд▓реЗрдиреЗ рдХреЗ рд▓рд┐рдП, рд╣рдорд╛рд░реА рд░рдЪрдирд╛рддреНрдордХрддрд╛ рдХреЛ " script-fu-readability.scm



" рдореЗрдВ рд╕рд╣реЗрдЬреЗрдВ рдФрд░ рд╕реНрдХреНрд░рд┐рдкреНрдЯ рдХреЛ рдЕрдкрдбреЗрдЯ рдХрд░реЗрдВред рдЕрдм рдХреБрдЫ рдЗрдореЗрдЬ рдЦреЛрд▓реЗрдВ / рдмрдирд╛рдПрдБ рдФрд░ рдореЗрдиреВ рд╕реЗ рд╣рдорд╛рд░реА рд╕реНрдХреНрд░рд┐рдкреНрдЯ рдЪреБрдиреЗрдВред



рдХреЛрдб рд▓реЗрдЦрди



рдпрд╣рд╛рдБ рдпрд╣ рд╣реИ, рдПрдХ рд▓рд╛рд▓рд╕рд╛ рдХреНрд╖рдг! рд▓реЗрдХрд┐рди рдореИрдВ рдкрд░реЗрд╢рд╛рди рд╣реВрдВ: рдпрд╣рд╛рдВ рдХреБрдЫ рднреА рдЬрдЯрд┐рд▓ рдирд╣реАрдВ рд╣реИред рдирд┐рд╢реНрдЪрд┐рдд рд░реВрдк рд╕реЗред рдЖрдк рдкрд╣рд▓реЗ рд╕реЗ рд╣реА рдЬрд╛рдирддреЗ рд╣реИрдВ рдХрд┐ рдлрд╝рдВрдХреНрд╢рди рдХреИрд╕реЗ рд▓рд┐рдЦрдирд╛ рд╣реИред рдФрд░ рд╕рдм рдХреБрдЫ рдЬреЛ рдЖрдкрдХреЛ рд╕рдВрдкрд╛рджрдХ рд╕реЗ рдЪрд╛рд╣рд┐рдП рд╣реЛ рд╕рдХрддрд╛ рд╣реИ рдкреНрд░рдХреНрд░рд┐рдпрд╛ рдмреНрд░рд╛рдЙрдЬрд╝рд░ рдореЗрдВ рдЦреЛрдЬрдирд╛ рдЖрд╕рд╛рди рд╣реИред рдкрд░рддреЛрдВ рдХреЗ рд╕рд╛рде рдХрд┐рд╕реА рддрд░рд╣ рдХреЗ рдСрдкрд░реЗрд╢рди рдХреА рдЖрд╡рд╢реНрдпрдХрддрд╛ рд╣реИ? " layer



" рдХреЗ рд▓рд┐рдП рдЦреЛрдЬреЗрдВред рдЫрд╡рд┐ рдЙрд▓рдЯрд╛ рдХрд░реЗрдВ? рдЖрдкрдХреЛ " invert



" рдпреБрдХреНрдд рдХреБрдЫ рдЪрд╛рд╣рд┐рдПред рдФрд░ рдЗрд╕реА рддрд░рд╣ред



рдореИрдВ рдХреЗрд╡рд▓ рджреЛ рдЯрд┐рдкреНрдкрдгрд┐рдпрд╛рдВ рдХрд░реВрдВрдЧрд╛: рдФрд░ рдЕрдм рдХрд╛рдо рдХрд░ рд░рд╣реЗ рдХреЛрдб рдХрд╛ рдПрдХ рдЙрджрд╛рд╣рд░рдгред рдореИрдВрдиреЗ рдпрд╣рд╛рдВ рд╕реЗ рдПрд▓реНрдЧреЛрд░рд┐рдереНрдо рдЙрдзрд╛рд░ рд▓рд┐рдпрд╛ (рдзрдиреНрдпрд╡рд╛рдж рдХрд┐рд▓реА )ред

 (define (script-fu-readability inImage inLayer inRadius inHigh-input) (let* ( (layer2 0) ) (gimp-image-undo-group-start inImage) (if (not (= (car (gimp-image-base-type inImage)) GRAY)) (gimp-image-convert-grayscale inImage)) (set! layer2 (car (gimp-layer-copy inLayer FALSE))) (gimp-image-add-layer inImage layer2 -1) (plug-in-despeckle RUN-NONINTERACTIVE inImage layer2 inRadius 0 -1 256) (gimp-layer-set-mode layer2 DIFFERENCE-MODE) (set! inLayer (car (gimp-image-flatten inImage))) (gimp-invert inLayer) (gimp-levels inLayer HISTOGRAM-VALUE 0 inHigh-input 0.1 0 255) (gimp-image-undo-group-end inImage) ) )
      
      





рд╣рд╛рде рдкрд░ рдПрдХ рдкреНрд░рдХреНрд░рд┐рдпрд╛ рдмреНрд░рд╛рдЙрдЬрд╝рд░ рдХреЗ рд╕рд╛рде, рдпрджрд┐ рдЖрдк рд░реБрдЪрд┐ рд░рдЦрддреЗ рд╣реИрдВ рддреЛ рдпрд╣ рдкрддрд╛ рд▓рдЧрд╛рдирд╛ рдЖрд╕рд╛рди рд╣реИред



рдмреИрдЪ рдкреНрд░рд╕рдВрд╕реНрдХрд░рдг



рдХрд╣рд╛рдБ рд╕реЗ рдХрд╣рд╛рдБ рддрдХ? рд╡рд╣ рд╕рдм рдирд╣реАрдВ рд╣реИред рдХреНрдпрд╛ рдЖрдкрдХреЛ рд▓рдЧрддрд╛ рд╣реИ рдХрд┐ рд╣рдордиреЗ рдХреБрдЫ рдирд╛рдЦреБрд╢ рд╕реНрдХреНрд░рд┐рдкреНрдЯ рд▓рд┐рдЦрдиреЗ рдХреЗ рд▓рд┐рдП рдмрд╣реБрдд рдХреБрдЫ рдХрд┐рдпрд╛ рд╣реИ рдЬреЛ рдПрдХ рддрд╕реНрд╡реАрд░ рдХреЛ рд╕рдВрд╕рд╛рдзрд┐рдд рдХрд░рддрд╛ рд╣реИ? рд╣рд╛рдБ, рд╣рд╛рде рддреЗрдЬрд╝ рд╣реЛрдВрдЧреЗ! рддреЛ рдЪрд▓рд┐рдП GIMP рдХреЛ рджрд┐рдП рдЧрдП рдлреЛрд▓реНрдбрд░ рд╕реЗ рд╕рднреА рдлрд╛рдЗрд▓реНрд╕ рдХреЛ рдУрдкрди рдХрд░рддреЗ рд╣реИрдВ, рдЗрд╕реЗ рдкреНрд░реЛрд╕реЗрд╕ рдХрд░рддреЗ рд╣реИрдВ, рдФрд░ рджреВрд╕рд░реЗ рдлреЛрд▓реНрдбрд░ рдореЗрдВ рд╕реЗрд╡ рдХрд░рддреЗ рд╣реИрдВред



рд╕рдмрд╕реЗ рдЕрдЪреНрдЫрд╛ рд╣рд┐рд╕реНрд╕рд╛ рдХреБрдЫ рдФрд░ рдХрд░рдиреЗ рдХреЗ рд▓рд┐рдП рдиреАрдЪреЗ рджрд┐рдП рдЧрдП рдХреЛрдб рдХреЛ рдЕрдиреБрдХреВрд▓рд┐рдд рдХрд░рдирд╛ рд╣реИ, рдмрд╕ рдЙрд╕ рдлрд╝рдВрдХреНрд╢рди рдХреЛ рдХреЙрд▓ рдХрд░реЗрдВ рдЬрд┐рд╕реЗ рдЖрдк рдХреА рдЖрд╡рд╢реНрдпрдХрддрд╛ рд╣реИ, рдмрд╛рдХреА рд╕рдм рдХреБрдЫ рдирд╣реАрдВ рдмрджрд▓реЗрдЧрд╛ (рдЕрдЪреНрдЫреА рддрд░рд╣ рд╕реЗ, рдЬрдм рддрдХ рдЖрдк рдлрд╝рд╛рдЗрд▓ рдХреЛ рдПрдХ рдЕрд▓рдЧ рдПрдХреНрд╕рдЯреЗрдВрд╢рди рдореЗрдВ рд╕рд╣реЗрдЬрдирд╛ рдирд╣реАрдВ рдЪрд╛рд╣рддреЗ)ред



рдЗрд╕ рд╡рд┐рд╖рдп рд╕реЗ рдХреЛрдб рдЖрдВрд╢рд┐рдХ рд░реВрдк рд╕реЗ рдЙрдзрд╛рд░ рд▓рд┐рдпрд╛ рдЧрдпрд╛ рд╣реИ ( Apostol рдХреЗ рд▓рд┐рдП рдзрдиреНрдпрд╡рд╛рдж), рд▓реЗрдХрд┐рди рд╡рд╣рд╛рдВ рдпрд╣ рдлрд╛рдЗрд▓реЛрдВ рдХреЛ рд╕рд╣реЗрдЬрддрд╛ рд╣реИ, рдореВрд▓ рд▓реЛрдЧреЛрдВ рдХреЛ рдЕрдзрд┐рд▓реЗрдЦрд┐рдд рдХрд░рддрд╛ рд╣реИред morph-filename



рдлрд╝рдВрдХреНрд╢рди рдХреЛ рдпрд╣рд╛рдВ рд╕реЗ рд▓рд┐рдпрд╛ рдЧрдпрд╛ рд╣реИ ред

 (define (morph-filename orig-name new-extension) (let* ((buffer (vector "" "" ""))) (if (re-match "^(.*)[.]([^.]+)$" orig-name buffer) (string-append (substring orig-name 0 (car (vector-ref buffer 2))) new-extension) ) ) ) (define (script-fu-batch-readability inInFolder inOutFolder inRadius inHigh-input) (let* ((filelist (cadr (file-glob (string-append inInFolder DIR-SEPARATOR "*") 1)))) (while (not (null? filelist)) (let* ((filename (car filelist)) (image (car (gimp-file-load RUN-NONINTERACTIVE filename filename))) (layer (car (gimp-image-get-active-layer image))) ) (script-fu-readability image layer inRadius inHigh-input) (set! layer (car (gimp-image-get-active-layer image))) (set! filename (string-append inOutFolder DIR-SEPARATOR (morph-filename (car (gimp-image-get-name image)) "png"))) (file-png-save2 RUN-NONINTERACTIVE image layer filename filename 0 9 0 0 0 1 0 0 0) (gimp-image-delete image) ) (set! filelist (cdr filelist)) ) ) )
      
      







рдирд┐рд╖реНрдХрд░реНрд╖



рдмреИрдЪ рд╕рдВрд╕реНрдХрд░рдг рдХреЗ рд╕рд╛рде рдкрдардиреАрдпрддрд╛ рд╕реНрдХреНрд░рд┐рдкреНрдЯ рдпрд╣рд╛рдВ ( рдорд┐рд░рд░ ) рдбрд╛рдЙрдирд▓реЛрдб рдХреА рдЬрд╛ рд╕рдХрддреА рд╣реИред рдХреЛрдб рдЯрд┐рдкреНрдкрдгреА рдХреА рдЧрдИ рд╣реИ, рдпрд╣рд╛рдВ рддрдХ тАЛтАЛрдХрд┐ рдХреБрдЫ рд╣рдж рддрдХ рдЕрдирд╛рд╡рд╢реНрдпрдХ рд░реВрдк рд╕реЗред



рдореИрдВ рдЖрдкрдХреЛ рдПрдХ рдмрд╛рд░ рдлрд┐рд░ рдпрд╛рдж рджрд┐рд▓рд╛ рджреВрдВ рдХрд┐ рд▓реЗрдЦ рд╡реНрдпрд╛рдкрдХ рдЕрд░реНрдереЛрдВ рдореЗрдВ рд╡реНрдпрд╛рдкрдХ рд╣реЛрдиреЗ рдХрд╛ рдвреЛрдВрдЧ рдирд╣реАрдВ рдХрд░рддрд╛ рд╣реИ рдФрд░ рдЗрд╕рдХрд╛ рдЙрджреНрджреЗрд╢реНрдп рдХреЗрд╡рд▓ рдкрд╛рдардХ рдХреЛ рдмреИрдардиреЗ рдХреЗ рд▓рд┐рдП, рдПрдХ рд╣реА рд╕рдордп рдореЗрдВ рдЕрднреНрдпрд╛рд╕ рдХрд░рддреЗ рд╕рдордп, рд╕рд╛рд╡рдзрд╛рдиреАрдкреВрд░реНрд╡рдХ рдкрдврд╝рдирд╛ рдФрд░ рдЙрд╕рдХреЗ рдХрд╛рд░реНрдпреЛрдВ рдХреЛ рд╣рд▓ рдХрд░рдиреЗ рд╡рд╛рд▓реА рд╕реНрдХреНрд░рд┐рдкреНрдЯ рдмрдирд╛рдирд╛ рд╢реБрд░реВ рдХрд░рдирд╛ рд╣реИред рддрд╛рдХрд┐ рдЕрдзрд┐рдХ рдпрд╛ рдХрдо рдЙрдЪреНрдЪ рдЧреБрдгрд╡рддреНрддрд╛ рд╡рд╛рд▓реЗ рднрд╛рд╖рд╛ рдХреЗ рдЕрдзреНрдпрдпрди рдХреЗ рд▓рд┐рдП рдЙрддрдирд╛ рд╕рдордп рди рд▓рдЧреЗ рдЬрд┐рддрдирд╛ рдЖрд╡рд╢реНрдпрдХ рд╣реИред



рдпрджрд┐ рдЖрдк рд▓реЗрдЦ рдХреЛ рдЕрдВрдд рддрдХ рдкрдврд╝рддреЗ рд╣реИрдВ, рддреЛ рдЕрдм рдЖрдк рд╕реНрдХреНрд░рд┐рдкреНрдЯ-рдлреВ рд╕реЗ рднреА рдмрджрддрд░ рд╣реЛ рд╕рдХрддреЗ рд╣реИрдВред



All Articles