← Back to branch summary

~ubuntu-branches/ubuntu/quantal/imagemagick/quantal-updates

« back to all changes in this revision

Viewing changes to www/source/examples.pl

  • Committer: Bazaar Package Importer
  • Author(s): Luke Yelavich
  • Date: 2009-11-06 17:18:57 UTC
  • mfrom: (6.1.2 sid)
  • Revision ID: james.westby@ubuntu.com-20091106171857-dlpl0avgxsy4vohw
Tags: 7:6.5.5.3-1ubuntu1
* Merge from debian testing, remaining changes:
  - Don't build-dep on librsvg, it brings in excessive dependencies
  - Don't build-dep on liblqr-1-0-dev, it is in universe

Show diffs side-by-side

added added

removed removed

Lines of Context:
www/source/examples.pl
30
30
print "Transform image...\n";
31
31
$images=Image::Magick->new();
32
32
 
 
33
print "Adaptive Blur...\n";
 
34
$example=$model->Clone();
 
35
$example->Label('Adaptive Blur');
 
36
$example->AdaptiveBlur('0x1');
 
37
push(@$images,$example);
 
38
 
 
39
print "Adaptive Resize...\n";
 
40
$example=$model->Clone();
 
41
$example->Label('Adaptive Resize');
 
42
$example->AdaptiveResize('60%');
 
43
push(@$images,$example);
 
44
 
 
45
print "Adaptive Sharpen...\n";
 
46
$example=$model->Clone();
 
47
$example->Label('Adaptive Sharpen');
 
48
$example->AdaptiveSharpen('0x1');
 
49
push(@$images,$example);
 
50
 
33
51
print "Adaptive Threshold...\n";
34
52
$example=$model->Clone();
35
53
$example->Label('Adaptive Threshold');
89
107
$example=$model->Clone();
90
108
$example->Label('Contrast Stretch');
91
109
$example->ContrastStretch('5%');
 
110
push(@$images,$example);
92
111
 
93
 
push(@$images,$example);
94
112
print "Convolve...\n";
95
113
$example=$model->Clone();
96
114
$example->Label('Convolve');
110
128
$example->Despeckle();
111
129
push(@$images,$example);
112
130
 
 
131
print "Distort...\n";
 
132
$example=$model->Clone();
 
133
$example->Label('Distort');
 
134
$example->Distort(method=>'arc',points=>[60],'virtual-pixel'=>'white');
 
135
push(@$images,$example);
 
136
 
113
137
print "Draw...\n";
114
138
$example=$model->Clone();
115
139
$example->Label('Draw');
199
223
print "Level...\n";
200
224
$example=$model->Clone();
201
225
$example->Label('Level');
202
 
$example->Level(level=>'20%');
 
226
$example->Level('20%');
203
227
push(@$images,$example);
204
228
 
205
229
print "Median Filter...\n";
252
276
$plasma->Label('Plasma');
253
277
push(@$images,$plasma);
254
278
 
 
279
print "Polaroid...\n";
 
280
$example=$model->Clone();
 
281
$example->Label('Polaroid');
 
282
$example->Polaroid(caption=>'Magick',rotate=>-5.0,gravity=>'center');
 
283
push(@$images,$example);
 
284
 
255
285
print "Quantize...\n";
256
286
$example=$model->Clone();
257
287
$example->Label('Quantize');
270
300
$example->Raise('10x10');
271
301
push(@$images,$example);
272
302
 
 
303
print "Recolor...\n";
 
304
$example=$model->Clone();
 
305
$example->Label('Recolor');
 
306
$example->Recolor([1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0.5, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 1]);
 
307
push(@$images,$example);
 
308
 
273
309
print "Reduce Noise...\n";
274
310
$example=$model->Clone();
275
311
$example->Label('Reduce Noise');
336
372
$example->Shear('-20x20');
337
373
push(@$images,$example);
338
374
 
 
375
print "Sketch...\n";
 
376
$example=$model->Clone();
 
377
$example->Label('Sketch');
 
378
$example->Set(colorspace=>'Gray');
 
379
$example->Sketch('0x20+120');
 
380
push(@$images,$example);
 
381
 
339
382
print "Sigmoidal Contrast...\n";
340
383
$example=$model->Clone();
341
384
$example->Label('Sigmoidal Contrast');
382
425
#
383
426
print "Montage...\n";
384
427
$montage=$images->Montage(geometry=>'128x160+8+4>',gravity=>'Center',
385
 
  tile=>'6x+10+200',compose=>'over',background=>'#ffffff',
386
 
  font=>'Generic.ttf',pointsize=>18,fill=>'#600',stroke=>'none');
 
428
  tile=>'5x+10+200',compose=>'over',background=>'#ffffff',
 
429
  font=>'Generic.ttf',pointsize=>18,fill=>'#600',stroke=>'none',
 
430
        shadow=>'true');
387
431
 
388
432
$logo=Image::Magick->new();
389
433
$logo->Read('logo:');