author | Vladimir Marek <Vladimir.Marek@oracle.com> |
Wed, 18 Jan 2017 16:42:33 +0100 | |
branch | s11u3-sru |
changeset 7644 | b5a859411118 |
parent 7538 | 1668450ff96c |
permissions | -rw-r--r-- |
7046
d80040c62de5
24708195 Update ImageMagick to 6.9.5-10
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
diff
changeset
|
1 |
cd /var/tmp |
d80040c62de5
24708195 Update ImageMagick to 6.9.5-10
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
diff
changeset
|
2 |
|
d80040c62de5
24708195 Update ImageMagick to 6.9.5-10
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
diff
changeset
|
3 |
convert -list font | wc -l # ~ 200 lines of output |
d80040c62de5
24708195 Update ImageMagick to 6.9.5-10
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
diff
changeset
|
4 |
|
7538
1668450ff96c
24788889 Update ImageMagick to 6.9.6-7
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
7046
diff
changeset
|
5 |
# Make sure that all the config files can be found. The next line should print |
1668450ff96c
24788889 Update ImageMagick to 6.9.6-7
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
7046
diff
changeset
|
6 |
# no output |
1668450ff96c
24788889 Update ImageMagick to 6.9.6-7
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
7046
diff
changeset
|
7 |
for i in $(convert -list list); do convert -list $i; done 2>&1 | grep 'convert: unable to access' |
1668450ff96c
24788889 Update ImageMagick to 6.9.6-7
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
7046
diff
changeset
|
8 |
|
1668450ff96c
24788889 Update ImageMagick to 6.9.6-7
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
7046
diff
changeset
|
9 |
# List all xml files opened during the operation. Both files found and not |
1668450ff96c
24788889 Update ImageMagick to 6.9.6-7
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
7046
diff
changeset
|
10 |
# found |
1668450ff96c
24788889 Update ImageMagick to 6.9.6-7
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
7046
diff
changeset
|
11 |
A=$( |
1668450ff96c
24788889 Update ImageMagick to 6.9.6-7
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
7046
diff
changeset
|
12 |
for i in $(convert -list list); do |
1668450ff96c
24788889 Update ImageMagick to 6.9.6-7
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
7046
diff
changeset
|
13 |
truss -'t!all' -t open convert -list $i |
1668450ff96c
24788889 Update ImageMagick to 6.9.6-7
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
7046
diff
changeset
|
14 |
done 2>&1 | |
1668450ff96c
24788889 Update ImageMagick to 6.9.6-7
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
7046
diff
changeset
|
15 |
grep ".xml\"," | |
1668450ff96c
24788889 Update ImageMagick to 6.9.6-7
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
7046
diff
changeset
|
16 |
sed -e 's,.*/,,' | |
1668450ff96c
24788889 Update ImageMagick to 6.9.6-7
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
7046
diff
changeset
|
17 |
sort -u |
1668450ff96c
24788889 Update ImageMagick to 6.9.6-7
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
7046
diff
changeset
|
18 |
) |
1668450ff96c
24788889 Update ImageMagick to 6.9.6-7
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
7046
diff
changeset
|
19 |
|
1668450ff96c
24788889 Update ImageMagick to 6.9.6-7
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
7046
diff
changeset
|
20 |
# Sort the files to found ones and not found ones |
1668450ff96c
24788889 Update ImageMagick to 6.9.6-7
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
7046
diff
changeset
|
21 |
FOUND=$( ggrep -P '\d$' <<<"$A" | sed -e 's/".*//' ) |
1668450ff96c
24788889 Update ImageMagick to 6.9.6-7
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
7046
diff
changeset
|
22 |
NOT_FOUND=$( ggrep -v -P '\d$' <<<"$A" | sed -e 's/".*//' ) |
1668450ff96c
24788889 Update ImageMagick to 6.9.6-7
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
7046
diff
changeset
|
23 |
|
1668450ff96c
24788889 Update ImageMagick to 6.9.6-7
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
7046
diff
changeset
|
24 |
# Now for every not_found file there has to be the same file found, else |
1668450ff96c
24788889 Update ImageMagick to 6.9.6-7
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
7046
diff
changeset
|
25 |
# display it's name. The output should be empty |
1668450ff96c
24788889 Update ImageMagick to 6.9.6-7
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
7046
diff
changeset
|
26 |
ggrep -F -x -v -f <(echo "$FOUND") <(echo "$NOT_FOUND") |
1668450ff96c
24788889 Update ImageMagick to 6.9.6-7
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
7046
diff
changeset
|
27 |
|
7046
d80040c62de5
24708195 Update ImageMagick to 6.9.5-10
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
diff
changeset
|
28 |
convert -size 170x100 xc:black \ |
d80040c62de5
24708195 Update ImageMagick to 6.9.5-10
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
diff
changeset
|
29 |
-fill white -draw 'circle 50,50 13,50' \ |
d80040c62de5
24708195 Update ImageMagick to 6.9.5-10
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
diff
changeset
|
30 |
-draw 'circle 120,50 157,50' \ |
d80040c62de5
24708195 Update ImageMagick to 6.9.5-10
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
diff
changeset
|
31 |
-draw 'rectangle 50,13 120,87' \ |
d80040c62de5
24708195 Update ImageMagick to 6.9.5-10
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
diff
changeset
|
32 |
-fill black -draw 'circle 50,50 25,50' \ |
d80040c62de5
24708195 Update ImageMagick to 6.9.5-10
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
diff
changeset
|
33 |
-draw 'circle 120,50 145,50' \ |
d80040c62de5
24708195 Update ImageMagick to 6.9.5-10
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
diff
changeset
|
34 |
-draw 'rectangle 50,25 120,75' \ |
d80040c62de5
24708195 Update ImageMagick to 6.9.5-10
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
diff
changeset
|
35 |
-fill white -draw 'circle 60,50 40,50' \ |
d80040c62de5
24708195 Update ImageMagick to 6.9.5-10
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
diff
changeset
|
36 |
-draw 'circle 110,50 130,50' \ |
d80040c62de5
24708195 Update ImageMagick to 6.9.5-10
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
diff
changeset
|
37 |
-draw 'rectangle 60,30 110,70' \ |
d80040c62de5
24708195 Update ImageMagick to 6.9.5-10
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
diff
changeset
|
38 |
-gaussian 1x1 +matte logo_mask.png |
d80040c62de5
24708195 Update ImageMagick to 6.9.5-10
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
diff
changeset
|
39 |
|
d80040c62de5
24708195 Update ImageMagick to 6.9.5-10
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
diff
changeset
|
40 |
convert logo_mask.png -background red -alpha shape \ |
d80040c62de5
24708195 Update ImageMagick to 6.9.5-10
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
diff
changeset
|
41 |
-font Times-Roman -pointsize 36 -fill white -stroke black \ |
d80040c62de5
24708195 Update ImageMagick to 6.9.5-10
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
diff
changeset
|
42 |
-gravity Center -annotate 0 "Ant" \ |
d80040c62de5
24708195 Update ImageMagick to 6.9.5-10
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
diff
changeset
|
43 |
logo.png |
d80040c62de5
24708195 Update ImageMagick to 6.9.5-10
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
diff
changeset
|
44 |
|
d80040c62de5
24708195 Update ImageMagick to 6.9.5-10
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
diff
changeset
|
45 |
convert logo.png -alpha extract -blur 0x6 -shade 110x30 -normalize \ |
d80040c62de5
24708195 Update ImageMagick to 6.9.5-10
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
diff
changeset
|
46 |
logo.png -compose Overlay -composite \ |
d80040c62de5
24708195 Update ImageMagick to 6.9.5-10
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
diff
changeset
|
47 |
logo.png -alpha on -compose Dst_In -composite \ |
d80040c62de5
24708195 Update ImageMagick to 6.9.5-10
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
diff
changeset
|
48 |
logo_3D.png |
d80040c62de5
24708195 Update ImageMagick to 6.9.5-10
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
diff
changeset
|
49 |
|
d80040c62de5
24708195 Update ImageMagick to 6.9.5-10
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
diff
changeset
|
50 |
convert logo_3D.png \( +clone -background navy -shadow 80x4+6+6 \) \ |
d80040c62de5
24708195 Update ImageMagick to 6.9.5-10
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
diff
changeset
|
51 |
+swap -background none -layers merge +repage logo_3D_shadowed.png |
d80040c62de5
24708195 Update ImageMagick to 6.9.5-10
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
diff
changeset
|
52 |
|
d80040c62de5
24708195 Update ImageMagick to 6.9.5-10
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
diff
changeset
|
53 |
convert logo_3D_shadowed.png \ |
d80040c62de5
24708195 Update ImageMagick to 6.9.5-10
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
diff
changeset
|
54 |
\( +clone +repage -alpha off -fx 'rand()' -shade 120x30 \ |
d80040c62de5
24708195 Update ImageMagick to 6.9.5-10
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
diff
changeset
|
55 |
-fill grey70 -colorize 60 \ |
d80040c62de5
24708195 Update ImageMagick to 6.9.5-10
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
diff
changeset
|
56 |
-fill lavender -tint 100 \) \ |
d80040c62de5
24708195 Update ImageMagick to 6.9.5-10
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
diff
changeset
|
57 |
+swap -composite logo_3D_bg.jpg |
d80040c62de5
24708195 Update ImageMagick to 6.9.5-10
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
diff
changeset
|
58 |
|
d80040c62de5
24708195 Update ImageMagick to 6.9.5-10
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
diff
changeset
|
59 |
# Now compare logo_3D_bg.jpg to the image at |
d80040c62de5
24708195 Update ImageMagick to 6.9.5-10
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
diff
changeset
|
60 |
# http://www.imagemagick.org/Usage/advanced/#3d-logos |
7644
b5a859411118
25239410 Update ImageMagick to 6.9.7-4
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
7538
diff
changeset
|
61 |
|
b5a859411118
25239410 Update ImageMagick to 6.9.7-4
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
7538
diff
changeset
|
62 |
|
b5a859411118
25239410 Update ImageMagick to 6.9.7-4
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
7538
diff
changeset
|
63 |
cat > a.pl <<'EOT' |
b5a859411118
25239410 Update ImageMagick to 6.9.7-4
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
7538
diff
changeset
|
64 |
#!/usr/bin/perl |
b5a859411118
25239410 Update ImageMagick to 6.9.7-4
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
7538
diff
changeset
|
65 |
|
b5a859411118
25239410 Update ImageMagick to 6.9.7-4
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
7538
diff
changeset
|
66 |
use Image::Magick; |
b5a859411118
25239410 Update ImageMagick to 6.9.7-4
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
7538
diff
changeset
|
67 |
|
b5a859411118
25239410 Update ImageMagick to 6.9.7-4
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
7538
diff
changeset
|
68 |
$image=Image::Magick->new; |
b5a859411118
25239410 Update ImageMagick to 6.9.7-4
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
7538
diff
changeset
|
69 |
$image->Set(size=>'300x300'); |
b5a859411118
25239410 Update ImageMagick to 6.9.7-4
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
7538
diff
changeset
|
70 |
$image->Read('xc:white'); |
b5a859411118
25239410 Update ImageMagick to 6.9.7-4
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
7538
diff
changeset
|
71 |
|
b5a859411118
25239410 Update ImageMagick to 6.9.7-4
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
7538
diff
changeset
|
72 |
$tile=Image::Magick->new; |
b5a859411118
25239410 Update ImageMagick to 6.9.7-4
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
7538
diff
changeset
|
73 |
$tile->Read('tile.gif'); |
b5a859411118
25239410 Update ImageMagick to 6.9.7-4
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
7538
diff
changeset
|
74 |
$image->Draw(primitive=>'Polygon',tile=>$tile,fill=>'none', |
b5a859411118
25239410 Update ImageMagick to 6.9.7-4
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
7538
diff
changeset
|
75 |
points=>'30,30 100,10 190,290 30,290'); |
b5a859411118
25239410 Update ImageMagick to 6.9.7-4
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
7538
diff
changeset
|
76 |
$image->Draw(stroke=>'red',primitive=>'Ellipse',stroke=>'black',fill=>'red', |
b5a859411118
25239410 Update ImageMagick to 6.9.7-4
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
7538
diff
changeset
|
77 |
strokewidth=>5,points=>'100,100 50,75 0,360'); |
b5a859411118
25239410 Update ImageMagick to 6.9.7-4
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
7538
diff
changeset
|
78 |
$image->Draw(primitive=>'Polygon',fill=>'none',stroke=>'black',strokewidth=>5, |
b5a859411118
25239410 Update ImageMagick to 6.9.7-4
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
7538
diff
changeset
|
79 |
points=>'30,30 100,10 190,290 30,290'); |
b5a859411118
25239410 Update ImageMagick to 6.9.7-4
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
7538
diff
changeset
|
80 |
$image->FloodfillPaint(geometry=>'+132+62',fill=>'blue',bordercolor=>'black', |
b5a859411118
25239410 Update ImageMagick to 6.9.7-4
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
7538
diff
changeset
|
81 |
invert=>'true'); |
b5a859411118
25239410 Update ImageMagick to 6.9.7-4
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
7538
diff
changeset
|
82 |
|
b5a859411118
25239410 Update ImageMagick to 6.9.7-4
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
7538
diff
changeset
|
83 |
$image->Annotate(fill=>'red',geometry=>'+280+120',font=>'Generic.ttf', |
b5a859411118
25239410 Update ImageMagick to 6.9.7-4
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
7538
diff
changeset
|
84 |
pointsize=>14,text=>''.localtime(),rotate=>90.0); |
b5a859411118
25239410 Update ImageMagick to 6.9.7-4
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
7538
diff
changeset
|
85 |
|
b5a859411118
25239410 Update ImageMagick to 6.9.7-4
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
7538
diff
changeset
|
86 |
$image->Write('shapes.gif'); |
b5a859411118
25239410 Update ImageMagick to 6.9.7-4
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
7538
diff
changeset
|
87 |
EOT |
b5a859411118
25239410 Update ImageMagick to 6.9.7-4
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
7538
diff
changeset
|
88 |
|
b5a859411118
25239410 Update ImageMagick to 6.9.7-4
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
7538
diff
changeset
|
89 |
chmod +x a.pl |
b5a859411118
25239410 Update ImageMagick to 6.9.7-4
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
7538
diff
changeset
|
90 |
./a.pl |
b5a859411118
25239410 Update ImageMagick to 6.9.7-4
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
7538
diff
changeset
|
91 |
|
b5a859411118
25239410 Update ImageMagick to 6.9.7-4
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
7538
diff
changeset
|
92 |
# Now display 'shapes.gif' and make sure it contains current date |
b5a859411118
25239410 Update ImageMagick to 6.9.7-4
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
7538
diff
changeset
|
93 |
|
b5a859411118
25239410 Update ImageMagick to 6.9.7-4
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
7538
diff
changeset
|
94 |
|
b5a859411118
25239410 Update ImageMagick to 6.9.7-4
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
7538
diff
changeset
|
95 |
# Emacs is using imagemagick - let's test it |
b5a859411118
25239410 Update ImageMagick to 6.9.7-4
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
7538
diff
changeset
|
96 |
|
b5a859411118
25239410 Update ImageMagick to 6.9.7-4
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
7538
diff
changeset
|
97 |
pkg install gnu-emacs-x11 gnu-emacs-gtk |
b5a859411118
25239410 Update ImageMagick to 6.9.7-4
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
7538
diff
changeset
|
98 |
cd /usr/share/doc/ImageMagick-6/images |
b5a859411118
25239410 Update ImageMagick to 6.9.7-4
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
7538
diff
changeset
|
99 |
|
b5a859411118
25239410 Update ImageMagick to 6.9.7-4
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
7538
diff
changeset
|
100 |
# We need to convert to bmp, because other file types (like png) emacs opens |
b5a859411118
25239410 Update ImageMagick to 6.9.7-4
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
7538
diff
changeset
|
101 |
# directly via libpng and not using ImageMagick's libWand |
b5a859411118
25239410 Update ImageMagick to 6.9.7-4
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
7538
diff
changeset
|
102 |
convert wizard.png wizard.bmp |
b5a859411118
25239410 Update ImageMagick to 6.9.7-4
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
7538
diff
changeset
|
103 |
|
b5a859411118
25239410 Update ImageMagick to 6.9.7-4
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
7538
diff
changeset
|
104 |
# Now both emacs should be able to display image |
b5a859411118
25239410 Update ImageMagick to 6.9.7-4
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
7538
diff
changeset
|
105 |
|
b5a859411118
25239410 Update ImageMagick to 6.9.7-4
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
7538
diff
changeset
|
106 |
emacs-x wizard.bmp |
b5a859411118
25239410 Update ImageMagick to 6.9.7-4
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
7538
diff
changeset
|
107 |
emacs-gtk wizard.bmp |