← Back to branch summary

~ubuntu-branches/ubuntu/hardy/gimp/hardy-updates

« back to all changes in this revision

Viewing changes to plug-ins/script-fu/scripts/contactsheet.scm

  • Committer: Bazaar Package Importer
  • Author(s): Pedro Fragoso
  • Date: 2008-02-03 03:07:19 UTC
  • mfrom: (1.1.11 upstream)
  • Revision ID: james.westby@ubuntu.com-20080203030719-4s9wlbv30394rlrp
Tags: 2.4.4-1ubuntu1
https://launchpad.net/bugs/188828
* Merge from Debian unstable. (LP: #188828)
* Ubuntu remaining changes:
  - 02_help-message.patch, 03_gimp.desktop.in.in.patch: Distro changes.
  - Weave i18n magic in the rules file.
  - Remove the doc directory symlink in the preinst, and replace it with a
    directory.
  - Added NEWS, README and README.Debian to gimp.docs.
  - Modify Maintainer value to match Debian-Maintainer-Field Spec
 

Show diffs side-by-side

added added

removed removed

Lines of Context:
plug-ins/script-fu/scripts/contactsheet.scm
34
34
 
35
35
  (define (init-sheet-data size)
36
36
    (let (
37
 
         (sheet-w)
38
 
         (sheet-h)
39
 
         (thumb-w)
40
 
         (thumb-h)
41
 
         (border-x) ;Space between rows and at top and bottom of thumbnails
42
 
         (border-y) ;Space between columns and at left and right of thumbnails
43
 
         (off-x)  ; Additional X shift to properly center a row of thumbnails
44
 
         (off-y)  ; Additional Y shift to properly center rows of thumbnails
45
 
         (count)
 
37
         (sheet-w 0)
 
38
         (sheet-h 0)
 
39
         (thumb-w 0)
 
40
         (thumb-h 0)
 
41
         (border-x 0) ;Space between rows and at top and bottom of thumbnails
 
42
         (border-y 0) ;Space between columns and at left and right of thumbnails
 
43
         (off-x 0)  ; Additional X shift to properly center a row of thumbnails
 
44
         (off-y 0)  ; Additional Y shift to properly center rows of thumbnails
 
45
         (count 0)
46
46
         )
47
47
 
48
48
      (case size
108
108
 
109
109
  (define (init-sheet-img img num img-width border-y off-y)
110
110
    (let* (
111
 
          (text-layer)
112
 
          (text-width)
113
 
          (text-height)
 
111
          (text-layer 0)
 
112
          (text-width 0)
 
113
          (text-height 0)
114
114
          )
115
115
      (gimp-selection-all img)
116
116
      (gimp-drawable-fill (car (gimp-image-get-active-layer img))
155
155
        (pos-x 0)
156
156
        (pos-y 0)
157
157
 
158
 
        (sheet-data)
159
 
        (sheet-width)
160
 
        (sheet-height)
161
 
        (thumb-w)
162
 
        (thumb-h)
163
 
        (border-x)
164
 
        (border-y)
165
 
        (off-x)
166
 
        (off-y)
167
 
        (max-x)
168
 
        (max-y)
169
 
 
170
 
        (sheet-img)
171
 
        (sheet-layer)
172
 
 
173
 
        (new-img)
174
 
        (file)
175
 
        (file-path)
176
 
        (tmp-layer)
 
158
        (sheet-data 0)
 
159
        (sheet-width 0)
 
160
        (sheet-height 0)
 
161
        (thumb-w 0)
 
162
        (thumb-h 0)
 
163
        (border-x 0)
 
164
        (border-y 0)
 
165
        (off-x 0)
 
166
        (off-y 0)
 
167
        (max-x 0)
 
168
        (max-y 0)
 
169
 
 
170
        (sheet-img 0)
 
171
        (sheet-layer 0)
 
172
 
 
173
        (new-img 0)
 
174
        (file 0)
 
175
        (file-path 0)
 
176
        (tmp-layer 0)
177
177
        )
178
178
 
179
179
    (gimp-context-push)