- Modifications to compile ImageMagick
This commit is contained in:
Santi Noreña
parent
615ec83706
commit
83522c16c3
3442 changed files with 57 additions and 412926 deletions
132
ImageMagick/PerlMagick/t/ps/input.eps
Normal file
132
ImageMagick/PerlMagick/t/ps/input.eps
Normal file
|
|
@ -0,0 +1,132 @@
|
|||
%!PS-Adobe-2.0 EPSF-2.0
|
||||
%%Title: congrats.eps
|
||||
%%Creator: fig2dev Version 3.2 Patchlevel 0-beta2
|
||||
%%CreationDate: Thu Sep 3 18:27:20 1998
|
||||
%%For: bfriesen@scooby (Bob Friesenhahn)
|
||||
%%Orientation: Portrait
|
||||
%%BoundingBox: 0 0 497 317
|
||||
%%Pages: 0
|
||||
%%BeginSetup
|
||||
%%IncludeFeature: *PageSize Letter
|
||||
%%EndSetup
|
||||
%%Magnification: 1.00
|
||||
%%EndComments
|
||||
/$F2psDict 200 dict def
|
||||
$F2psDict begin
|
||||
$F2psDict /mtrx matrix put
|
||||
/col-1 {0 setgray} bind def
|
||||
/col0 {0.000 0.000 0.000 srgb} bind def
|
||||
/col1 {0.000 0.000 1.000 srgb} bind def
|
||||
/col2 {0.000 1.000 0.000 srgb} bind def
|
||||
/col3 {0.000 1.000 1.000 srgb} bind def
|
||||
/col4 {1.000 0.000 0.000 srgb} bind def
|
||||
/col5 {1.000 0.000 1.000 srgb} bind def
|
||||
/col6 {1.000 1.000 0.000 srgb} bind def
|
||||
/col7 {1.000 1.000 1.000 srgb} bind def
|
||||
/col8 {0.000 0.000 0.560 srgb} bind def
|
||||
/col9 {0.000 0.000 0.690 srgb} bind def
|
||||
/col10 {0.000 0.000 0.820 srgb} bind def
|
||||
/col11 {0.530 0.810 1.000 srgb} bind def
|
||||
/col12 {0.000 0.560 0.000 srgb} bind def
|
||||
/col13 {0.000 0.690 0.000 srgb} bind def
|
||||
/col14 {0.000 0.820 0.000 srgb} bind def
|
||||
/col15 {0.000 0.560 0.560 srgb} bind def
|
||||
/col16 {0.000 0.690 0.690 srgb} bind def
|
||||
/col17 {0.000 0.820 0.820 srgb} bind def
|
||||
/col18 {0.560 0.000 0.000 srgb} bind def
|
||||
/col19 {0.690 0.000 0.000 srgb} bind def
|
||||
/col20 {0.820 0.000 0.000 srgb} bind def
|
||||
/col21 {0.560 0.000 0.560 srgb} bind def
|
||||
/col22 {0.690 0.000 0.690 srgb} bind def
|
||||
/col23 {0.820 0.000 0.820 srgb} bind def
|
||||
/col24 {0.500 0.190 0.000 srgb} bind def
|
||||
/col25 {0.630 0.250 0.000 srgb} bind def
|
||||
/col26 {0.750 0.380 0.000 srgb} bind def
|
||||
/col27 {1.000 0.500 0.500 srgb} bind def
|
||||
/col28 {1.000 0.630 0.630 srgb} bind def
|
||||
/col29 {1.000 0.750 0.750 srgb} bind def
|
||||
/col30 {1.000 0.880 0.880 srgb} bind def
|
||||
/col31 {1.000 0.840 0.000 srgb} bind def
|
||||
|
||||
end
|
||||
save
|
||||
-53.0 352.0 translate
|
||||
1 -1 scale
|
||||
|
||||
/cp {closepath} bind def
|
||||
/ef {eofill} bind def
|
||||
/gr {grestore} bind def
|
||||
/gs {gsave} bind def
|
||||
/sa {save} bind def
|
||||
/rs {restore} bind def
|
||||
/l {lineto} bind def
|
||||
/m {moveto} bind def
|
||||
/rm {rmoveto} bind def
|
||||
/n {newpath} bind def
|
||||
/s {stroke} bind def
|
||||
/sh {show} bind def
|
||||
/slc {setlinecap} bind def
|
||||
/slj {setlinejoin} bind def
|
||||
/slw {setlinewidth} bind def
|
||||
/srgb {setrgbcolor} bind def
|
||||
/rot {rotate} bind def
|
||||
/sc {scale} bind def
|
||||
/sd {setdash} bind def
|
||||
/ff {findfont} bind def
|
||||
/sf {setfont} bind def
|
||||
/scf {scalefont} bind def
|
||||
/sw {stringwidth} bind def
|
||||
/tr {translate} bind def
|
||||
/tnt {dup dup currentrgbcolor
|
||||
4 -2 roll dup 1 exch sub 3 -1 roll mul add
|
||||
4 -2 roll dup 1 exch sub 3 -1 roll mul add
|
||||
4 -2 roll dup 1 exch sub 3 -1 roll mul add srgb}
|
||||
bind def
|
||||
/shd {dup dup currentrgbcolor 4 -2 roll mul 4 -2 roll mul
|
||||
4 -2 roll mul srgb} bind def
|
||||
/$F2psBegin {$F2psDict begin /$F2psEnteredState save def} def
|
||||
/$F2psEnd {$F2psEnteredState restore end} def
|
||||
%%EndProlog
|
||||
|
||||
$F2psBegin
|
||||
10 setmiterlimit
|
||||
n 0 5902 m 0 0 l 9202 0 l 9202 5902 l cp clip
|
||||
0.06000 0.06000 sc
|
||||
% Polyline
|
||||
7.500 slw
|
||||
n 1005 600 m 900 600 900 5745 105 arcto 4 {pop} repeat
|
||||
900 5850 9045 5850 105 arcto 4 {pop} repeat
|
||||
9150 5850 9150 705 105 arcto 4 {pop} repeat
|
||||
9150 600 1005 600 105 arcto 4 {pop} repeat
|
||||
cp gs col0 s gr
|
||||
% Polyline
|
||||
30.000 slw
|
||||
n 5415 3735 m 5115 3735 l gs col0 s gr
|
||||
% Polyline
|
||||
n 4335 3720 m 4035 3720 l gs col0 s gr
|
||||
/Helvetica-Bold ff 480.00 scf sf
|
||||
5025 1950 m
|
||||
gs 1 -1 sc (You can display an image!) dup sw pop 2 div neg 0 rm col4 sh gr
|
||||
/Helvetica-Bold ff 480.00 scf sf
|
||||
5025 1275 m
|
||||
gs 1 -1 sc (CONGRATULATIONS!) dup sw pop 2 div neg 0 rm col4 sh gr
|
||||
/Helvetica-Bold ff 360.00 scf sf
|
||||
1500 3375 m
|
||||
gs 1 -1 sc (2\) Use CNTRL-Q key combination) col0 sh gr
|
||||
/Helvetica-Bold ff 360.00 scf sf
|
||||
4575 3825 m
|
||||
gs 1 -1 sc (or) col0 sh gr
|
||||
/Helvetica-Bold ff 360.00 scf sf
|
||||
1875 4350 m
|
||||
gs 1 -1 sc (Depress right mouse button to bring) col0 sh gr
|
||||
/Helvetica-Bold ff 360.00 scf sf
|
||||
1875 4875 m
|
||||
gs 1 -1 sc (up menu and select 'Quit' to continue) col0 sh gr
|
||||
/Helvetica-Bold ff 360.00 scf sf
|
||||
1875 5325 m
|
||||
gs 1 -1 sc (tests.) col0 sh gr
|
||||
/Helvetica-Bold ff 360.00 scf sf
|
||||
1500 2775 m
|
||||
gs 1 -1 sc (1\) Move mouse cursor into this window.) col0 sh gr
|
||||
$F2psEnd
|
||||
rs
|
||||
9
ImageMagick/PerlMagick/t/ps/input.miff
Normal file
9
ImageMagick/PerlMagick/t/ps/input.miff
Normal file
File diff suppressed because one or more lines are too long
134
ImageMagick/PerlMagick/t/ps/input.ps
Normal file
134
ImageMagick/PerlMagick/t/ps/input.ps
Normal file
|
|
@ -0,0 +1,134 @@
|
|||
%!PS-Adobe-2.0
|
||||
%%Title: congrats.ps
|
||||
%%Creator: fig2dev Version 3.2 Patchlevel 0-beta2
|
||||
%%CreationDate: Thu Sep 3 18:27:58 1998
|
||||
%%For: bfriesen@scooby (Bob Friesenhahn)
|
||||
%%Orientation: Portrait
|
||||
%%BoundingBox: 57 237 554 554
|
||||
%%Pages: 1
|
||||
%%BeginSetup
|
||||
%%IncludeFeature: *PageSize Letter
|
||||
%%EndSetup
|
||||
%%Magnification: 1.00
|
||||
%%EndComments
|
||||
/$F2psDict 200 dict def
|
||||
$F2psDict begin
|
||||
$F2psDict /mtrx matrix put
|
||||
/col-1 {0 setgray} bind def
|
||||
/col0 {0.000 0.000 0.000 srgb} bind def
|
||||
/col1 {0.000 0.000 1.000 srgb} bind def
|
||||
/col2 {0.000 1.000 0.000 srgb} bind def
|
||||
/col3 {0.000 1.000 1.000 srgb} bind def
|
||||
/col4 {1.000 0.000 0.000 srgb} bind def
|
||||
/col5 {1.000 0.000 1.000 srgb} bind def
|
||||
/col6 {1.000 1.000 0.000 srgb} bind def
|
||||
/col7 {1.000 1.000 1.000 srgb} bind def
|
||||
/col8 {0.000 0.000 0.560 srgb} bind def
|
||||
/col9 {0.000 0.000 0.690 srgb} bind def
|
||||
/col10 {0.000 0.000 0.820 srgb} bind def
|
||||
/col11 {0.530 0.810 1.000 srgb} bind def
|
||||
/col12 {0.000 0.560 0.000 srgb} bind def
|
||||
/col13 {0.000 0.690 0.000 srgb} bind def
|
||||
/col14 {0.000 0.820 0.000 srgb} bind def
|
||||
/col15 {0.000 0.560 0.560 srgb} bind def
|
||||
/col16 {0.000 0.690 0.690 srgb} bind def
|
||||
/col17 {0.000 0.820 0.820 srgb} bind def
|
||||
/col18 {0.560 0.000 0.000 srgb} bind def
|
||||
/col19 {0.690 0.000 0.000 srgb} bind def
|
||||
/col20 {0.820 0.000 0.000 srgb} bind def
|
||||
/col21 {0.560 0.000 0.560 srgb} bind def
|
||||
/col22 {0.690 0.000 0.690 srgb} bind def
|
||||
/col23 {0.820 0.000 0.820 srgb} bind def
|
||||
/col24 {0.500 0.190 0.000 srgb} bind def
|
||||
/col25 {0.630 0.250 0.000 srgb} bind def
|
||||
/col26 {0.750 0.380 0.000 srgb} bind def
|
||||
/col27 {1.000 0.500 0.500 srgb} bind def
|
||||
/col28 {1.000 0.630 0.630 srgb} bind def
|
||||
/col29 {1.000 0.750 0.750 srgb} bind def
|
||||
/col30 {1.000 0.880 0.880 srgb} bind def
|
||||
/col31 {1.000 0.840 0.000 srgb} bind def
|
||||
|
||||
end
|
||||
save
|
||||
4.5 589.5 translate
|
||||
1 -1 scale
|
||||
|
||||
/cp {closepath} bind def
|
||||
/ef {eofill} bind def
|
||||
/gr {grestore} bind def
|
||||
/gs {gsave} bind def
|
||||
/sa {save} bind def
|
||||
/rs {restore} bind def
|
||||
/l {lineto} bind def
|
||||
/m {moveto} bind def
|
||||
/rm {rmoveto} bind def
|
||||
/n {newpath} bind def
|
||||
/s {stroke} bind def
|
||||
/sh {show} bind def
|
||||
/slc {setlinecap} bind def
|
||||
/slj {setlinejoin} bind def
|
||||
/slw {setlinewidth} bind def
|
||||
/srgb {setrgbcolor} bind def
|
||||
/rot {rotate} bind def
|
||||
/sc {scale} bind def
|
||||
/sd {setdash} bind def
|
||||
/ff {findfont} bind def
|
||||
/sf {setfont} bind def
|
||||
/scf {scalefont} bind def
|
||||
/sw {stringwidth} bind def
|
||||
/tr {translate} bind def
|
||||
/tnt {dup dup currentrgbcolor
|
||||
4 -2 roll dup 1 exch sub 3 -1 roll mul add
|
||||
4 -2 roll dup 1 exch sub 3 -1 roll mul add
|
||||
4 -2 roll dup 1 exch sub 3 -1 roll mul add srgb}
|
||||
bind def
|
||||
/shd {dup dup currentrgbcolor 4 -2 roll mul 4 -2 roll mul
|
||||
4 -2 roll mul srgb} bind def
|
||||
/$F2psBegin {$F2psDict begin /$F2psEnteredState save def} def
|
||||
/$F2psEnd {$F2psEnteredState restore end} def
|
||||
%%EndProlog
|
||||
|
||||
$F2psBegin
|
||||
10 setmiterlimit
|
||||
n 0 5902 m 0 0 l 9202 0 l 9202 5902 l cp clip
|
||||
0.06000 0.06000 sc
|
||||
%%Page: 1 1
|
||||
% Polyline
|
||||
7.500 slw
|
||||
n 1005 600 m 900 600 900 5745 105 arcto 4 {pop} repeat
|
||||
900 5850 9045 5850 105 arcto 4 {pop} repeat
|
||||
9150 5850 9150 705 105 arcto 4 {pop} repeat
|
||||
9150 600 1005 600 105 arcto 4 {pop} repeat
|
||||
cp gs col0 s gr
|
||||
% Polyline
|
||||
30.000 slw
|
||||
n 5415 3735 m 5115 3735 l gs col0 s gr
|
||||
% Polyline
|
||||
n 4335 3720 m 4035 3720 l gs col0 s gr
|
||||
/Helvetica-Bold ff 480.00 scf sf
|
||||
5025 1950 m
|
||||
gs 1 -1 sc (You can display an image!) dup sw pop 2 div neg 0 rm col4 sh gr
|
||||
/Helvetica-Bold ff 480.00 scf sf
|
||||
5025 1275 m
|
||||
gs 1 -1 sc (CONGRATULATIONS!) dup sw pop 2 div neg 0 rm col4 sh gr
|
||||
/Helvetica-Bold ff 360.00 scf sf
|
||||
1500 3375 m
|
||||
gs 1 -1 sc (2\) Use CNTRL-Q key combination) col0 sh gr
|
||||
/Helvetica-Bold ff 360.00 scf sf
|
||||
4575 3825 m
|
||||
gs 1 -1 sc (or) col0 sh gr
|
||||
/Helvetica-Bold ff 360.00 scf sf
|
||||
1875 4350 m
|
||||
gs 1 -1 sc (Depress right mouse button to bring) col0 sh gr
|
||||
/Helvetica-Bold ff 360.00 scf sf
|
||||
1875 4875 m
|
||||
gs 1 -1 sc (up menu and select 'Quit' to continue) col0 sh gr
|
||||
/Helvetica-Bold ff 360.00 scf sf
|
||||
1875 5325 m
|
||||
gs 1 -1 sc (tests.) col0 sh gr
|
||||
/Helvetica-Bold ff 360.00 scf sf
|
||||
1500 2775 m
|
||||
gs 1 -1 sc (1\) Move mouse cursor into this window.) col0 sh gr
|
||||
$F2psEnd
|
||||
rs
|
||||
showpage
|
||||
73
ImageMagick/PerlMagick/t/ps/read.t
Normal file
73
ImageMagick/PerlMagick/t/ps/read.t
Normal file
|
|
@ -0,0 +1,73 @@
|
|||
#!/usr/bin/perl
|
||||
#
|
||||
# Test Reading Postscript images
|
||||
#
|
||||
# Contributed by Bob Friesenhahn <bfriesen@simple.dallas.tx.us>
|
||||
#
|
||||
|
||||
BEGIN { $| = 1; $test=1; print "1..3\n"; }
|
||||
END {print "not ok $test\n" unless $loaded;}
|
||||
use Image::Magick;
|
||||
$loaded=1;
|
||||
|
||||
require 't/subroutines.pl';
|
||||
|
||||
chdir 't/ps' || die 'Cd failed';
|
||||
|
||||
#
|
||||
# 1) Test reading Postscript
|
||||
#
|
||||
$image=Image::Magick->new;
|
||||
$x=$image->ReadImage('input.ps');
|
||||
if( "$x" ) {
|
||||
print "ReadImage: $x\n";
|
||||
print "not ok $test\n";
|
||||
} else {
|
||||
print "ok $test\n";
|
||||
}
|
||||
undef $image;
|
||||
|
||||
|
||||
#
|
||||
# 2) Test reading Encapsulated Postscript
|
||||
#
|
||||
++$test;
|
||||
$image=Image::Magick->new;
|
||||
$x=$image->ReadImage('input.eps');
|
||||
if( "$x" ) {
|
||||
print "ReadImage: $x\n";
|
||||
print "not ok $test\n";
|
||||
} else {
|
||||
print "ok $test\n";
|
||||
}
|
||||
undef $image;
|
||||
|
||||
#
|
||||
# 3) Test rendering using a Postscript font
|
||||
#
|
||||
++$test;
|
||||
$font = 'helvetica';
|
||||
|
||||
$image=Image::Magick->new;
|
||||
$x=$image->Set(font=>"$font", pen=>'#0000FF', dither=>'False');
|
||||
if( "$x" ) {
|
||||
print "$x\n";
|
||||
print "not ok $test\n";
|
||||
} else {
|
||||
$x=$image->ReadImage('label:The quick brown fox jumps over the lazy dog.');
|
||||
if ( "$x" ) {
|
||||
print "ReadImage: $x\n";
|
||||
# If server can't be accessed, ImageMagick returns this warning
|
||||
# Warning 305: Unable to open X server
|
||||
$x =~ /(\d+)/;
|
||||
my $errorCode = $1;
|
||||
if ( $errorCode > 0 ) {
|
||||
print "not ok $test\n";
|
||||
} else {
|
||||
print "ok $test\n";
|
||||
}
|
||||
} else {
|
||||
print "ok $test\n";
|
||||
}
|
||||
}
|
||||
undef $image;
|
||||
30
ImageMagick/PerlMagick/t/ps/write.t
Normal file
30
ImageMagick/PerlMagick/t/ps/write.t
Normal file
|
|
@ -0,0 +1,30 @@
|
|||
#!/usr/bin/perl
|
||||
#
|
||||
# Test writing Postscript images
|
||||
#
|
||||
# Contributed by Bob Friesenhahn <bfriesen@simple.dallas.tx.us>
|
||||
#
|
||||
BEGIN { $| = 1; $test=1; print "1..2\n"; }
|
||||
END {print "not ok $test\n" unless $loaded;}
|
||||
|
||||
use Image::Magick;
|
||||
$loaded=1;
|
||||
|
||||
require 't/subroutines.pl';
|
||||
|
||||
chdir 't/ps' || die 'Cd failed';
|
||||
|
||||
#
|
||||
# 1) Test Postscript
|
||||
#
|
||||
testReadWriteNoVerify( 'input.miff',
|
||||
'output.ps',
|
||||
q// );
|
||||
#
|
||||
# 2) Test Encapsulated Postscript
|
||||
#
|
||||
++$test;
|
||||
testReadWriteNoVerify( 'input.miff',
|
||||
'output.eps',
|
||||
q// );
|
||||
|
||||
Loading…
Add table
Add a link
Reference in a new issue