browse.php

;; convert.el
;; Created by Laurence D. Finston (LDF).

;; $Id: convert.el,v 1.7 2008/01/05 17:59:16 lfinsto1 Exp $

;;;; * (1) Copyright and License.

;;;; This file is part of GNU 3DLDF, a package for three-dimensional drawing.  
;;;; Copyright (C) 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011 The Free Software Foundation  

;;;; GNU 3DLDF is free software; you can redistribute it and/or modify 
;;;; it under the terms of the GNU General Public License as published by 
;;;; the Free Software Foundation; either version 3 of the License, or 
;;;; (at your option) any later version.  

;;;; GNU 3DLDF is distributed in the hope that it will be useful, 
;;;; but WITHOUT ANY WARRANTY; without even the implied warranty of 
;;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the 
;;;; GNU General Public License for more details.  

;;;; You should have received a copy of the GNU General Public License 
;;;; along with GNU 3DLDF; if not, write to the Free Software 
;;;; Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA

;;;; GNU 3DLDF is a GNU package.  
;;;; It is part of the GNU Project of the  
;;;; Free Software Foundation 
;;;; and is published under the GNU General Public License. 
;;;; See the website http://www.gnu.org 
;;;; for more information.   
;;;; GNU 3DLDF is available for downloading from 
;;;; http://www.gnu.org/software/3dldf/LDF.html.

;;;; Please send bug reports to Laurence.Finston@gmx.de
;;;; The mailing list help-3dldf@gnu.org is available for people to 
;;;; ask other users for help.  
;;;; The mailing list info-3dldf@gnu.org is for sending 
;;;; announcements to users. To subscribe to these mailing lists, send an 
;;;; email with ``subscribe <email-address>'' as the subject.  

;;;; The author can be contacted at: 

;;;; Laurence D. Finston                   
;;;; c/o Free Software Foundation, Inc. 
;;;; 51 Franklin St, Fifth Floor           
;;;; Boston, MA  02110-1301        
;;;; USA                                

;;;; Laurence.Finston@gmx.de

;; * (1) Rename the PNM files.

(let ((i 0) (filename-stem "3DLDFmp_") old-filename new-filename
      (new-filename-stem "stars_1"))
   (while (< i 10)
     (setq old-filename (concat filename-stem "." (number-to-string i)))
     (setq new-filename (concat new-filename-stem ".0" (number-to-string i)))
   
     (if (file-exists-p old-filename)
         (progn
           (message (concat "Renaming " old-filename " to " new-filename "."))
           (sit-for .25)

           (rename-file old-filename new-filename t)

;;         (setq command-string (concat "convert -geometry 320x240! " 
;;                                new-filename " " new-filename-stem
;;                                "_0" (number-to-string i) ".eps"))

;;         (message (concat "Calling '" command-string "'."))
;;         (sit-for .25)

;;         (shell-command command-string)

           ) ;; then progn

       ;; else
       (progn
         (message (concat old-filename " doesn't exist."))
         (sit-for .25)
         ) ;; else progn
       ) ;; if

     (setq i (1+ i))


     );; while

   (while (<= i 64)
     (setq old-filename (concat filename-stem "." (number-to-string i)))
     (setq new-filename (concat new-filename-stem "." (number-to-string i)))
   
     (if (file-exists-p old-filename)
         (progn
           (message (concat "Renaming " old-filename " to " new-filename "."))
           (sit-for .25)
           (rename-file old-filename new-filename t)

;;         (setq command-string (concat "convert -geometry 320x240! " 
;;                                new-filename " " new-filename-stem
;;                                "_" (number-to-string i) ".eps"))

;;         (message (concat "Calling '" command-string "'."))
;;         (sit-for .25)
;;         (shell-command command-string)

           ) ;; then progn
       ;; else
       (progn
         (message (concat old-filename " doesn't exist."))
         (sit-for .25)
         ) ;; else progn
       ) ;; if

     (setq i (1+ i))

     );; while
  )       ;; let


;; * (1) Make background on Don Quixote picture transparent.
;;       Not really necessary.

convert -transparent white dq_10.png d_10.png

;; * (1) Combine images with Don Quixote.

(let ((i 0) (filename-stem "scroll_1")
      (zeroes "00")
      old-filename new-filename)

   (while (< i 47)
     (if (eq i 10)
         (setq zeroes ""))
     (setq old-filename (concat filename-stem "_" zeroes
                                (number-to-string i) ".png"))
     (setq new-filename (concat filename-stem "_" zeroes
                                (number-to-string i) ".png"))
   
     (if (file-exists-p old-filename)
         (progn

           (setq command-string (concat "convert -geometry 640x480! " 
                                  old-filename " " new-filename))

           (message (concat "Calling '" command-string "'."))
           (sit-for .25)

           (shell-command command-string)


           (setq command-string (concat "composite -compose Multiply "
                                        new-filename " dq_10.png "
                                        new-filename))


           (message (concat "Calling '" command-string "'."))
           (sit-for .25)

           (shell-command command-string)


           ) ;; then progn

       ;; else
       (progn
         (message (concat old-filename " doesn't exist."))
         (sit-for .25)
         ) ;; else progn
       ) ;; if

     (setq i (1+ i))

     );; while

   (while (<= i 73)
     (setq old-filename (concat filename-stem "." (number-to-string i)))
     (setq new-filename (concat filename-stem "_" (number-to-string i) ".png"))
   

     (if (file-exists-p old-filename)
         (progn


           (setq command-string (concat "convert -geometry 640x480! " 
                                  old-filename " " new-filename))

           (message (concat "Calling '" command-string "'."))
           (sit-for .25)

           (shell-command command-string)


           (setq command-string (concat "composite -compose Multiply "
                                        new-filename " dq_10.png " new-filename))


           (message (concat "Calling '" command-string "'."))
           (sit-for .25)

           (shell-command command-string)

           ) ;; then progn
       ;; else
       (progn
         (message (concat old-filename " doesn't exist."))
         (sit-for .25)
         ) ;; else progn
       ) ;; if

     (setq i (1+ i))

     );; while
  )       ;; let


;; * (1) Convert PNGs to PPMs.


;; ** (2)

(let ((i 0) (filename-stem "scroll_1_") old-filename new-filename
      (new-filename-stem "scroll_1_ppm")
      (zeroes "00")
      )
   (while (<= i 595)

     (if (>= i 100)
         (setq zeroes "")
       ;; else
       (if (>= i 10)
         (setq zeroes "0"))
       )

     (setq old-filename (concat filename-stem 
                                (number-to-string i) ".png"))
     (setq new-filename (concat new-filename-stem "." zeroes
                                (number-to-string i)))
   
     (if (file-exists-p old-filename)
         (progn

           (setq command-string (concat "convert -geometry 640x480! " 
                                  old-filename " ppm:" new-filename))

           (message (concat "Calling '" command-string "'."))
           ;(sit-for 1)

           (shell-command command-string)

           ) ;; then progn

       ;; else
       (progn
         (message (concat old-filename " doesn't exist."))
         (sit-for 1)
         ) ;; else progn
       ) ;; if

     (setq i (1+ i))


     );; while

  )       ;; let

;; * (1) Make MPEG file directly.

ppmtompeg -no_frame_summary -float_dct encode.Params

;; * (1) Make GOPs.

ppmtompeg -gop  -no_frame_summary -float_dct encode.Params_0
mv stars_1.mpg.gop.0 a.gop
ppmtompeg -gop  -no_frame_summary -float_dct encode.Params_1
mv stars_1.mpg.gop.0 stars_1.mpg.gop.1
mv a.gop stars_1.mpg.gop.0 

;; * (1) Copy GOPs.

(progn
  (setq i 3)
  (setq filename-stem "stars_1.mpg.gop.") 
  (setq old-filename (concat filename-stem "2"))
  (setq new-filename (concat filename-stem (number-to-string i)))
)        ;; progn

(let ((filename-stem "stars_1.mpg.gop.") 
      old-filename
      (i 3)
      new-filename)

  (setq old-filename (concat filename-stem "2"))

  (while (<= i 8)
    (setq new-filename (concat filename-stem (number-to-string i)))
    
    (message (concat "Copying " old-filename " to " new-filename))
    (sit-for .25)

    (copy-file old-filename new-filename t)
          
    (setq i (1+ i))

    ) ;; while
  
  ) ;; let

;; * (1) Combine GOPs.

ppmtompeg -combine_gops encode.Params_20


;;  Local Variables:
;;  eval:(outline-minor-mode t)
;;  outline-regexp:";; [*]+"
;;  abbrev-mode:t
;;  eval:(read-abbrev-file abbrev-file-name)
;;  End:
1	lfinsto1	1.1	;; convert.el
2			;; Created by Laurence D. Finston (LDF).
3
4	lfinsto1	1.2	;; $Id: convert.el,v 1.7 2008/01/05 17:59:16 lfinsto1 Exp $
5	lfinsto1	1.1
6			;;;; * (1) Copyright and License.
7
8			;;;; This file is part of GNU 3DLDF, a package for three-dimensional drawing.
9	lfinsto1	1.5	;;;; Copyright (C) 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011 The Free Software Foundation
10	lfinsto1	1.1
11			;;;; GNU 3DLDF is free software; you can redistribute it and/or modify
12			;;;; it under the terms of the GNU General Public License as published by
13			;;;; the Free Software Foundation; either version 3 of the License, or
14			;;;; (at your option) any later version.
15
16			;;;; GNU 3DLDF is distributed in the hope that it will be useful,
17			;;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
18			;;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
19			;;;; GNU General Public License for more details.
20
21			;;;; You should have received a copy of the GNU General Public License
22			;;;; along with GNU 3DLDF; if not, write to the Free Software
23			;;;; Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
24
25			;;;; GNU 3DLDF is a GNU package.
26			;;;; It is part of the GNU Project of the
27			;;;; Free Software Foundation
28			;;;; and is published under the GNU General Public License.
29			;;;; See the website http://www.gnu.org
30			;;;; for more information.
31			;;;; GNU 3DLDF is available for downloading from
32			;;;; http://www.gnu.org/software/3dldf/LDF.html.
33
34	lfinsto1	1.4	;;;; Please send bug reports to Laurence.Finston@gmx.de
35	lfinsto1	1.1	;;;; The mailing list help-3dldf@gnu.org is available for people to
36			;;;; ask other users for help.
37			;;;; The mailing list info-3dldf@gnu.org is for sending
38			;;;; announcements to users. To subscribe to these mailing lists, send an
39			;;;; email with ``subscribe <email-address>'' as the subject.
40
41			;;;; The author can be contacted at:
42
43			;;;; Laurence D. Finston
44			;;;; c/o Free Software Foundation, Inc.
45			;;;; 51 Franklin St, Fifth Floor
46			;;;; Boston, MA 02110-1301
47			;;;; USA
48
49	lfinsto1	1.4	;;;; Laurence.Finston@gmx.de
50	lfinsto1	1.1
51			;; * (1) Rename the PNM files.
52
53			(let ((i 0) (filename-stem "3DLDFmp_") old-filename new-filename
54			(new-filename-stem "stars_1"))
55			(while (< i 10)
56			(setq old-filename (concat filename-stem "." (number-to-string i)))
57			(setq new-filename (concat new-filename-stem ".0" (number-to-string i)))
58
59			(if (file-exists-p old-filename)
60			(progn
61			(message (concat "Renaming " old-filename " to " new-filename "."))
62			(sit-for .25)
63
64			(rename-file old-filename new-filename t)
65
66			;; (setq command-string (concat "convert -geometry 320x240! "
67			;; new-filename " " new-filename-stem
68			;; "_0" (number-to-string i) ".eps"))
69
70			;; (message (concat "Calling '" command-string "'."))
71			;; (sit-for .25)
72
73			;; (shell-command command-string)
74
75			) ;; then progn
76
77			;; else
78			(progn
79			(message (concat old-filename " doesn't exist."))
80			(sit-for .25)
81			) ;; else progn
82			) ;; if
83
84			(setq i (1+ i))
85
86
87
88			);; while
89
90			(while (<= i 64)
91			(setq old-filename (concat filename-stem "." (number-to-string i)))
92			(setq new-filename (concat new-filename-stem "." (number-to-string i)))
93
94			(if (file-exists-p old-filename)
95			(progn
96			(message (concat "Renaming " old-filename " to " new-filename "."))
97			(sit-for .25)
98			(rename-file old-filename new-filename t)
99
100			;; (setq command-string (concat "convert -geometry 320x240! "
101			;; new-filename " " new-filename-stem
102			;; "_" (number-to-string i) ".eps"))
103
104			;; (message (concat "Calling '" command-string "'."))
105			;; (sit-for .25)
106			;; (shell-command command-string)
107
108			) ;; then progn
109			;; else
110			(progn
111			(message (concat old-filename " doesn't exist."))
112			(sit-for .25)
113			) ;; else progn
114			) ;; if
115
116			(setq i (1+ i))
117
118			);; while
119			) ;; let
120
121
122
123			;; * (1) Make background on Don Quixote picture transparent.
124			;; Not really necessary.
125
126			convert -transparent white dq_10.png d_10.png
127
128			;; * (1) Combine images with Don Quixote.
129
130			(let ((i 0) (filename-stem "scroll_1")
131			(zeroes "00")
132			old-filename new-filename)
133
134			(while (< i 47)
135			(if (eq i 10)
136			(setq zeroes ""))
137			(setq old-filename (concat filename-stem "_" zeroes
138			(number-to-string i) ".png"))
139			(setq new-filename (concat filename-stem "_" zeroes
140			(number-to-string i) ".png"))
141
142			(if (file-exists-p old-filename)
143			(progn
144
145			(setq command-string (concat "convert -geometry 640x480! "
146			old-filename " " new-filename))
147
148			(message (concat "Calling '" command-string "'."))
149			(sit-for .25)
150
151			(shell-command command-string)
152
153
154			(setq command-string (concat "composite -compose Multiply "
155			new-filename " dq_10.png "
156			new-filename))
157
158
159			(message (concat "Calling '" command-string "'."))
160			(sit-for .25)
161
162			(shell-command command-string)
163
164
165			) ;; then progn
166
167			;; else
168			(progn
169			(message (concat old-filename " doesn't exist."))
170			(sit-for .25)
171			) ;; else progn
172			) ;; if
173
174			(setq i (1+ i))
175
176			);; while
177
178			(while (<= i 73)
179			(setq old-filename (concat filename-stem "." (number-to-string i)))
180			(setq new-filename (concat filename-stem "_" (number-to-string i) ".png"))
181
182
183			(if (file-exists-p old-filename)
184			(progn
185
186
187			(setq command-string (concat "convert -geometry 640x480! "
188			old-filename " " new-filename))
189
190			(message (concat "Calling '" command-string "'."))
191			(sit-for .25)
192
193			(shell-command command-string)
194
195
196			(setq command-string (concat "composite -compose Multiply "
197			new-filename " dq_10.png " new-filename))
198
199
200			(message (concat "Calling '" command-string "'."))
201			(sit-for .25)
202
203			(shell-command command-string)
204
205			) ;; then progn
206			;; else
207			(progn
208			(message (concat old-filename " doesn't exist."))
209			(sit-for .25)
210			) ;; else progn
211			) ;; if
212
213			(setq i (1+ i))
214
215			);; while
216			) ;; let
217
218
219
220
221
222			;; * (1) Convert PNGs to PPMs.
223
224
225			;; ** (2)
226
227			(let ((i 0) (filename-stem "scroll_1_") old-filename new-filename
228			(new-filename-stem "scroll_1_ppm")
229			(zeroes "00")
230			)
231			(while (<= i 595)
232
233			(if (>= i 100)
234			(setq zeroes "")
235			;; else
236			(if (>= i 10)
237			(setq zeroes "0"))
238			)
239
240			(setq old-filename (concat filename-stem
241			(number-to-string i) ".png"))
242			(setq new-filename (concat new-filename-stem "." zeroes
243			(number-to-string i)))
244
245			(if (file-exists-p old-filename)
246			(progn
247
248			(setq command-string (concat "convert -geometry 640x480! "
249			old-filename " ppm:" new-filename))
250
251			(message (concat "Calling '" command-string "'."))
252			;(sit-for 1)
253
254			(shell-command command-string)
255
256			) ;; then progn
257
258			;; else
259			(progn
260			(message (concat old-filename " doesn't exist."))
261			(sit-for 1)
262			) ;; else progn
263			) ;; if
264
265			(setq i (1+ i))
266
267
268
269			);; while
270
271			) ;; let
272
273			;; * (1) Make MPEG file directly.
274
275			ppmtompeg -no_frame_summary -float_dct encode.Params
276
277			;; * (1) Make GOPs.
278
279			ppmtompeg -gop -no_frame_summary -float_dct encode.Params_0
280			mv stars_1.mpg.gop.0 a.gop
281			ppmtompeg -gop -no_frame_summary -float_dct encode.Params_1
282			mv stars_1.mpg.gop.0 stars_1.mpg.gop.1
283			mv a.gop stars_1.mpg.gop.0
284
285			;; * (1) Copy GOPs.
286
287			(progn
288			(setq i 3)
289			(setq filename-stem "stars_1.mpg.gop.")
290			(setq old-filename (concat filename-stem "2"))
291			(setq new-filename (concat filename-stem (number-to-string i)))
292			) ;; progn
293
294			(let ((filename-stem "stars_1.mpg.gop.")
295			old-filename
296			(i 3)
297			new-filename)
298
299			(setq old-filename (concat filename-stem "2"))
300
301			(while (<= i 8)
302			(setq new-filename (concat filename-stem (number-to-string i)))
303
304			(message (concat "Copying " old-filename " to " new-filename))
305			(sit-for .25)
306
307			(copy-file old-filename new-filename t)
308
309			(setq i (1+ i))
310
311			) ;; while
312
313			) ;; let
314
315			;; * (1) Combine GOPs.
316
317			ppmtompeg -combine_gops encode.Params_20
318
319
320
321			;; Local Variables:
322			;; eval:(outline-minor-mode t)
323			;; outline-regexp:";; [*]+"
324			;; abbrev-mode:t
325			;; eval:(read-abbrev-file abbrev-file-name)
326			;; End:
savannah-hackers-public@gnu.org	ViewVC Help
Powered by ViewVC 1.1.26