browse.php

%%%% titles_2.ldf
%%%% Created by Laurence D. Finston (LDF) So Aug 14 18:45:55 CEST 2005

%% * (0) Copyright and License.

%% This file is part of GNU 3DLDF, a package for three-dimensional drawing. 
%% Copyright (C) 2003, 2004, 2005, 2006, 2007 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 2 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. 
%% It is also available from 
%% http://www.dante.de/software/ctan/, the Dante www-server  
%% and from http://wwwuser.gwdg.de/~lfinsto1, 
%% the author's website.  

%% ("@@" stands for a single at-sign in the following paragraph.) 

%% Please send bug reports to lfinsto1@@gwdg.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 
%% Kreuzbergring 41 
%% D-37075 Goettingen 
%% Germany 

%% lfinsto1@@gwdg.de (@@ stands for a single "at" sign.)
%% s246794@@stud.uni-goettingen.de 


% $Id: titles_2.ldf,v 1.5 2007/02/06 12:10:01 lfinsto1 Exp $

%% * (1) Beginning of 3DLDF code.

%% ** (2) Run these commands:
%% make run
%% cnepspng titles_2 0 47
%% mogrify -geometry 640x480! titles_2_*.png 
%% See 'convert.el' for further instructions on creating an MPEG file.

%% ** (2) Fonts.

verbatim_metapost "verbatimtex \font\Largebx=cmbx12 etex";
verbatim_metapost "verbatimtex \font\Large=cmr12 scaled 2000 etex";
verbatim_metapost "verbatimtex \font\large=cmr17 etex";
verbatim_metapost "verbatimtex \font\largebx=cmbx17 etex";
verbatim_metapost "verbatimtex \font\bigit=cmti11 etex";
verbatim_metapost "verbatimtex \font\normal=cmr10 etex";
verbatim_metapost "verbatimtex \font\small=cmr6 etex";

%% ** (2) 

w := 6.4cm;
h := 4.8cm;

w *= 4;
h *= 4;

w /= 1.1375;
h /= 1.1375;

pen_width := .75mm; 

frame_w := w - .5pen_width;
frame_h := h - .5pen_width;

path frame;
frame := origin -- (frame_w, 0) -- (frame_w, frame_h) 
                -- (0, frame_h) -- cycle;

shift frame (-.5frame_w, -.5frame_h);

picture frame_picture;


%% ** (2) Set up frame.

beginfig(0);
draw frame with_pen pensquare scaled (pen_width, pen_width, pen_width);
frame_picture := current_picture;
endfig with_projection parallel_x_y;  
endfor;

for i = 1 upto 4:
beginfig(i);
current_picture := frame_picture;
endfig with_projection parallel_x_y;  
endfor;

%% *** (3) 

j := 0;
for i = 5 upto 19:
scale_value := 1 + .5j;
beginfig(i);
label("{\Largebx Coming Soon}", origin) scaled (scale_value, scale_value)
   with_text_color red;
current_picture += frame_picture;
endfig with_projection parallel_x_y;  
j += 1;
endfor;


scale_value := 8;

for i := 20 upto 23:
beginfig(i);
label("{\Largebx Coming Soon}", origin) scaled (scale_value, scale_value)
   with_text_color red;
current_picture += frame_picture;
endfig with_projection parallel_x_y;  
endfor;

%% ** (2) 


%% *** (3) 

for i = 24 upto 28:
beginfig(i);
draw frame with_pen pensquare scaled (pen_width, pen_width, pen_width);
frame_picture := current_picture;
endfig with_projection parallel_x_y;  
endfor;


% *** (3) 

j := 0;
for i = 29 upto 43:
scale_value := 1 + .5j;


beginfig(i);
text_scale_value := 1/4scale_value;
message "scale_value:";
show scale_value;
message "text_scale_value:";
show text_scale_value;
label("{\Largebx To a Theater}", (0, text_scale_value)) 
   scaled (scale_value, scale_value)
   with_text_color blue;
label("{\Largebx Near You}", (0, -text_scale_value)) 
    scaled (scale_value, scale_value)
    with_text_color blue;
current_picture += frame_picture;
endfig with_projection parallel_x_y;  
j += 1;
endfor;

scale_value := 8;
text_scale_value := 1/4scale_value;

message "scale_value:";
show scale_value;
message "text_scale_value:";
show text_scale_value;


for i := 44 upto 47:
beginfig(i);

label("{\Largebx To a Theater}", (0, text_scale_value)) 
   scaled (scale_value, scale_value)
   with_text_color blue;
label("{\Largebx Near You}", (0, -text_scale_value))
   scaled (scale_value, scale_value) with_text_color blue;
current_picture += frame_picture;
endfig with_projection parallel_x_y;  
endfor;

%% *** (3) 


%% ** (2) 

verbatim_metapost "end";

end;


%% ** (2) End of 3DLDF code.

%% * (1) Local variables for Emacs.

%% Local Variables:
%% mode:Metafont
%% eval:(outline-minor-mode t)
%% eval:(read-abbrev-file abbrev-file-name)
%% outline-regexp:"%% [*\f]+"
%% End:
1	lfinsto1	1.2	%%%% titles_2.ldf
2	lfinsto1	1.1	%%%% Created by Laurence D. Finston (LDF) So Aug 14 18:45:55 CEST 2005
3
4	lfinsto1	1.3	%% * (0) Copyright and License.
5	lfinsto1	1.1
6	lfinsto1	1.3	%% This file is part of GNU 3DLDF, a package for three-dimensional drawing.
7			%% Copyright (C) 2003, 2004, 2005, 2006, 2007 The Free Software Foundation
8	lfinsto1	1.1
9	lfinsto1	1.3	%% GNU 3DLDF is free software; you can redistribute it and/or modify
10			%% it under the terms of the GNU General Public License as published by
11			%% the Free Software Foundation; either version 2 of the License, or
12			%% (at your option) any later version.
13
14			%% GNU 3DLDF is distributed in the hope that it will be useful,
15			%% but WITHOUT ANY WARRANTY; without even the implied warranty of
16			%% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
17			%% GNU General Public License for more details.
18
19			%% You should have received a copy of the GNU General Public License
20			%% along with GNU 3DLDF; if not, write to the Free Software
21			%% Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
22
23			%% GNU 3DLDF is a GNU package.
24			%% It is part of the GNU Project of the
25			%% Free Software Foundation
26			%% and is published under the GNU General Public License.
27			%% See the website http://www.gnu.org
28			%% for more information.
29			%% GNU 3DLDF is available for downloading from
30			%% http://www.gnu.org/software/3dldf/LDF.html.
31			%% It is also available from
32			%% http://www.dante.de/software/ctan/, the Dante www-server
33			%% and from http://wwwuser.gwdg.de/~lfinsto1,
34			%% the author's website.
35
36			%% ("@@" stands for a single at-sign in the following paragraph.)
37
38			%% Please send bug reports to lfinsto1@@gwdg.de
39			%% The mailing list help-3dldf@@gnu.org is available for people to
40			%% ask other users for help.
41			%% The mailing list info-3dldf@@gnu.org is for sending
42			%% announcements to users. To subscribe to these mailing lists, send an
43			%% email with "subscribe <email-address>" as the subject.
44
45			%% The author can be contacted at:
46
47			%% Laurence D. Finston
48			%% Kreuzbergring 41
49			%% D-37075 Goettingen
50			%% Germany
51	lfinsto1	1.1
52	lfinsto1	1.3	%% lfinsto1@@gwdg.de (@@ stands for a single "at" sign.)
53			%% s246794@@stud.uni-goettingen.de
54	lfinsto1	1.1
55
56	lfinsto1	1.3	% $Id: titles_2.ldf,v 1.5 2007/02/06 12:10:01 lfinsto1 Exp $
57	lfinsto1	1.1
58			%% * (1) Beginning of 3DLDF code.
59
60			%% ** (2) Run these commands:
61			%% make run
62			%% cnepspng titles_2 0 47
63			%% mogrify -geometry 640x480! titles_2_*.png
64			%% See 'convert.el' for further instructions on creating an MPEG file.
65
66			%% ** (2) Fonts.
67
68			verbatim_metapost "verbatimtex \font\Largebx=cmbx12 etex";
69			verbatim_metapost "verbatimtex \font\Large=cmr12 scaled 2000 etex";
70			verbatim_metapost "verbatimtex \font\large=cmr17 etex";
71			verbatim_metapost "verbatimtex \font\largebx=cmbx17 etex";
72			verbatim_metapost "verbatimtex \font\bigit=cmti11 etex";
73			verbatim_metapost "verbatimtex \font\normal=cmr10 etex";
74			verbatim_metapost "verbatimtex \font\small=cmr6 etex";
75
76			%% ** (2)
77
78			w := 6.4cm;
79			h := 4.8cm;
80
81			w *= 4;
82			h *= 4;
83
84			w /= 1.1375;
85			h /= 1.1375;
86
87			pen_width := .75mm;
88
89			frame_w := w - .5pen_width;
90			frame_h := h - .5pen_width;
91
92			path frame;
93			frame := origin -- (frame_w, 0) -- (frame_w, frame_h)
94			-- (0, frame_h) -- cycle;
95
96			shift frame (-.5frame_w, -.5frame_h);
97
98			picture frame_picture;
99
100
101	lfinsto1	1.2	%% ** (2) Set up frame.
102	lfinsto1	1.1
103	lfinsto1	1.2	beginfig(0);
104	lfinsto1	1.1	draw frame with_pen pensquare scaled (pen_width, pen_width, pen_width);
105			frame_picture := current_picture;
106	lfinsto1	1.2	endfig with_projection parallel_x_y;
107			endfor;
108
109			for i = 1 upto 4:
110			beginfig(i);
111			current_picture := frame_picture;
112	lfinsto1	1.1	endfig with_projection parallel_x_y;
113			endfor;
114
115			%% *** (3)
116
117			j := 0;
118			for i = 5 upto 19:
119			scale_value := 1 + .5j;
120			beginfig(i);
121			label("{\Largebx Coming Soon}", origin) scaled (scale_value, scale_value)
122			with_text_color red;
123			current_picture += frame_picture;
124			endfig with_projection parallel_x_y;
125			j += 1;
126			endfor;
127
128
129			scale_value := 8;
130
131			for i := 20 upto 23:
132			beginfig(i);
133			label("{\Largebx Coming Soon}", origin) scaled (scale_value, scale_value)
134			with_text_color red;
135			current_picture += frame_picture;
136			endfig with_projection parallel_x_y;
137			endfor;
138
139			%% ** (2)
140
141
142			%% *** (3)
143
144			for i = 24 upto 28:
145			beginfig(i);
146			draw frame with_pen pensquare scaled (pen_width, pen_width, pen_width);
147			frame_picture := current_picture;
148			endfig with_projection parallel_x_y;
149			endfor;
150
151
152
153			% *** (3)
154
155			j := 0;
156			for i = 29 upto 43:
157			scale_value := 1 + .5j;
158
159
160
161			beginfig(i);
162			text_scale_value := 1/4scale_value;
163			message "scale_value:";
164			show scale_value;
165			message "text_scale_value:";
166			show text_scale_value;
167			label("{\Largebx To a Theater}", (0, text_scale_value))
168			scaled (scale_value, scale_value)
169			with_text_color blue;
170			label("{\Largebx Near You}", (0, -text_scale_value))
171			scaled (scale_value, scale_value)
172			with_text_color blue;
173			current_picture += frame_picture;
174			endfig with_projection parallel_x_y;
175			j += 1;
176			endfor;
177
178			scale_value := 8;
179			text_scale_value := 1/4scale_value;
180
181			message "scale_value:";
182			show scale_value;
183			message "text_scale_value:";
184			show text_scale_value;
185
186
187			for i := 44 upto 47:
188			beginfig(i);
189
190			label("{\Largebx To a Theater}", (0, text_scale_value))
191			scaled (scale_value, scale_value)
192			with_text_color blue;
193			label("{\Largebx Near You}", (0, -text_scale_value))
194			scaled (scale_value, scale_value) with_text_color blue;
195			current_picture += frame_picture;
196			endfig with_projection parallel_x_y;
197			endfor;
198
199			%% *** (3)
200
201
202			%% ** (2)
203
204			verbatim_metapost "end";
205
206			end;
207
208
209
210			%% ** (2) End of 3DLDF code.
211
212			%% * (1) Local variables for Emacs.
213
214			%% Local Variables:
215			%% mode:Metafont
216			%% eval:(outline-minor-mode t)
217			%% eval:(read-abbrev-file abbrev-file-name)
218			%% outline-regexp:"%% [*\f]+"
219			%% End:
savannah-hackers-public@gnu.org	ViewVC Help
Powered by ViewVC 1.1.26