components/imagemagick/TESTING
author Vladimir Marek <Vladimir.Marek@oracle.com>
Wed, 18 Jan 2017 16:42:33 +0100
branchs11u3-sru
changeset 7644 b5a859411118
parent 7538 1668450ff96c
permissions -rw-r--r--
25239410 Update ImageMagick to 6.9.7-4 25326326 problem in UTILITY/IMAGEMAGICK
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
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