|
1
|
|
|
<?php |
|
2
|
|
|
|
|
3
|
|
|
/* vim: set expandtab tabstop=4 shiftwidth=4: */ |
|
4
|
|
|
|
|
5
|
|
|
/** |
|
6
|
|
|
* NetPBM implementation for Image_Transform package |
|
7
|
|
|
* |
|
8
|
|
|
* PHP versions 4 and 5 |
|
9
|
|
|
* |
|
10
|
|
|
* LICENSE: This source file is subject to version 3.0 of the PHP license |
|
11
|
|
|
* that is available through the world-wide-web at the following URI: |
|
12
|
|
|
* http://www.php.net/license/3_0.txt. If you did not receive a copy of |
|
13
|
|
|
* the PHP License and are unable to obtain it through the web, please |
|
14
|
|
|
* send a note to [email protected] so we can mail you a copy immediately. |
|
15
|
|
|
* |
|
16
|
|
|
* @category Image |
|
17
|
|
|
* @package Image_Transform |
|
18
|
|
|
* @author Peter Bowyer <[email protected]> |
|
19
|
|
|
* @author Philippe Jausions <[email protected]> |
|
20
|
|
|
* @copyright 2002-2005 The PHP Group |
|
21
|
|
|
* @license http://www.php.net/license/3_0.txt PHP License 3.0 |
|
22
|
|
|
* @version CVS: $Id: NetPBM.php 236527 2007-05-28 16:36:09Z dufuz $ |
|
23
|
|
|
* @link http://pear.php.net/package/Image_Transform |
|
24
|
|
|
*/ |
|
25
|
|
|
|
|
26
|
|
|
//require_once __DIR__ . '/Image/Transform.php'; |
|
27
|
|
|
//require_once __DIR__ . '/System.php'; |
|
28
|
|
|
require_once XOOPS_ROOT_PATH . '/modules/extgallery/class/pear/Image/Transform.php'; |
|
29
|
|
|
require_once XOOPS_ROOT_PATH . '/modules/extgallery/class/pear/System.php'; |
|
30
|
|
|
|
|
31
|
|
|
/** |
|
32
|
|
|
* NetPBM implementation for Image_Transform package |
|
33
|
|
|
* |
|
34
|
|
|
* @category Image |
|
35
|
|
|
* @package Image_Transform |
|
36
|
|
|
* @subpackage Image_Transform_Driver_NetPBM |
|
37
|
|
|
* @author Peter Bowyer <[email protected]> |
|
38
|
|
|
* @author Philippe Jausions <[email protected]> |
|
39
|
|
|
* @copyright 2002-2005 The PHP Group |
|
40
|
|
|
* @license http://www.php.net/license/3_0.txt PHP License 3.0 |
|
41
|
|
|
* @version Release: @package_version@ |
|
42
|
|
|
* @link http://pear.php.net/package/Image_Transform |
|
43
|
|
|
* @link http://netpbm.sourceforge.net/ |
|
44
|
|
|
*/ |
|
45
|
|
|
class Image_Transform_Driver_NetPBM extends Image_Transform |
|
46
|
|
|
{ |
|
47
|
|
|
/** |
|
48
|
|
|
* associative array commands to be executed |
|
49
|
|
|
* @var array |
|
50
|
|
|
*/ |
|
51
|
|
|
public $command = []; |
|
52
|
|
|
|
|
53
|
|
|
/** |
|
54
|
|
|
* Class Constructor |
|
55
|
|
|
*/ |
|
56
|
|
|
public function Image_Transform_Driver_NetPBM() |
|
57
|
|
|
{ |
|
58
|
|
|
$this->__construct(); |
|
59
|
|
|
} |
|
60
|
|
|
|
|
61
|
|
|
// End function Image_NetPBM |
|
62
|
|
|
|
|
63
|
|
|
/** |
|
64
|
|
|
* Class Constructor |
|
65
|
|
|
*/ |
|
66
|
|
|
public function __construct() |
|
67
|
|
|
{ |
|
68
|
|
|
if (!defined('IMAGE_TRANSFORM_NETPBM_PATH')) { |
|
69
|
|
|
$path = \dirname(System::which('pnmscale')) . DIRECTORY_SEPARATOR; |
|
|
|
|
|
|
70
|
|
|
define('IMAGE_TRANSFORM_NETPBM_PATH', $path); |
|
71
|
|
|
} |
|
72
|
|
|
if (!System::which(IMAGE_TRANSFORM_NETPBM_PATH . 'pnmscale' . (OS_WINDOWS ? '.exe' : ''))) { |
|
73
|
|
|
$this->isError(PEAR::raiseError('Couldn\'t find "pnmscale" binary', IMAGE_TRANSFORM_ERROR_UNSUPPORTED)); |
|
|
|
|
|
|
74
|
|
|
} |
|
75
|
|
|
} |
|
76
|
|
|
|
|
77
|
|
|
// End function Image_NetPBM |
|
78
|
|
|
|
|
79
|
|
|
/** |
|
80
|
|
|
* Load image |
|
81
|
|
|
* |
|
82
|
|
|
* @param mixed $image |
|
83
|
|
|
* @return bool|PEAR_Error TRUE or a PEAR_Error object on error |
|
84
|
|
|
* @access public |
|
85
|
|
|
*/ |
|
86
|
|
|
public function load($image) |
|
87
|
|
|
{ |
|
88
|
|
|
$this->image = $image; |
|
89
|
|
|
$result = $this->_get_image_details($image); |
|
90
|
|
|
if (PEAR::isError($result)) { |
|
91
|
|
|
return $result; |
|
92
|
|
|
} |
|
93
|
|
|
|
|
94
|
|
|
return true; |
|
95
|
|
|
} |
|
96
|
|
|
|
|
97
|
|
|
// End load |
|
98
|
|
|
|
|
99
|
|
|
/** |
|
100
|
|
|
* Resize the image. |
|
101
|
|
|
* |
|
102
|
|
|
* @access private |
|
103
|
|
|
* |
|
104
|
|
|
* @param int $new_x New width |
|
105
|
|
|
* @param int $new_y New height |
|
106
|
|
|
* @param mixed $options Optional parameters |
|
107
|
|
|
* |
|
108
|
|
|
* @return true on success or PEAR Error object on error |
|
109
|
|
|
* @see PEAR::isError() |
|
110
|
|
|
*/ |
|
111
|
|
|
public function _resize($new_x, $new_y, $options = null) |
|
112
|
|
|
{ |
|
113
|
|
|
// there's no technical reason why resize can't be called multiple |
|
114
|
|
|
// times...it's just silly to do so |
|
115
|
|
|
$scaleMethod = $this->_getOption('scaleMethod', $options, 'smooth'); |
|
116
|
|
|
switch ($scaleMethod) { |
|
117
|
|
|
case 'pixel': |
|
118
|
|
|
$scale_x = $new_x / $this->img_x; |
|
119
|
|
|
if ($scale_x == $new_y / $this->img_x |
|
120
|
|
|
&& $scale_x > 1 |
|
121
|
|
|
&& floor($scale_x) == $scale_x) { |
|
122
|
|
|
if (System::which(IMAGE_TRANSFORM_NETPBM_PATH . 'pnmenlarge' . (OS_WINDOWS ? '.exe' : ''))) { |
|
123
|
|
|
$this->command[] = $this->_prepare_cmd(IMAGE_TRANSFORM_NETPBM_PATH, 'pnmenlarge', $scale_x); |
|
124
|
|
|
} else { |
|
125
|
|
|
return PEAR::raiseError('Couldn\'t find "pnmenlarge" binary', IMAGE_TRANSFORM_ERROR_UNSUPPORTED); |
|
126
|
|
|
} |
|
127
|
|
|
} else { |
|
128
|
|
|
$this->command[] = $this->_prepare_cmd(IMAGE_TRANSFORM_NETPBM_PATH, 'pnmscale', '-nomix -width ' . ((int)$new_x) . ' -height ' . ((int)$new_y)); |
|
129
|
|
|
} |
|
130
|
|
|
break; |
|
131
|
|
|
case 'smooth': |
|
132
|
|
|
default: |
|
133
|
|
|
$this->command[] = $this->_prepare_cmd(IMAGE_TRANSFORM_NETPBM_PATH, 'pnmscale', '-width ' . ((int)$new_x) . ' -height ' . ((int)$new_y)); |
|
134
|
|
|
// Smooth things if scaling by a factor more than 3 |
|
135
|
|
|
// (see pnmscale man page) |
|
136
|
|
|
if ($new_x / $this->img_x > 3 |
|
137
|
|
|
|| $new_y / $this->img_y > 3) { |
|
138
|
|
|
if (System::which(IMAGE_TRANSFORM_NETPBM_PATH . 'pnmsmooth' . (OS_WINDOWS ? '.exe' : ''))) { |
|
139
|
|
|
$this->command[] = $this->_prepare_cmd(IMAGE_TRANSFORM_NETPBM_PATH, 'pnmsmooth'); |
|
140
|
|
|
} else { |
|
141
|
|
|
return PEAR::raiseError('Couldn\'t find "pnmsmooth" binary', IMAGE_TRANSFORM_ERROR_UNSUPPORTED); |
|
142
|
|
|
} |
|
143
|
|
|
} |
|
144
|
|
|
} // End [SWITCH] |
|
145
|
|
|
|
|
146
|
|
|
$this->_set_new_x($new_x); |
|
147
|
|
|
$this->_set_new_y($new_y); |
|
148
|
|
|
|
|
149
|
|
|
return true; |
|
150
|
|
|
} |
|
151
|
|
|
|
|
152
|
|
|
// End resize |
|
153
|
|
|
|
|
154
|
|
|
/** |
|
155
|
|
|
* Rotates the image |
|
156
|
|
|
* |
|
157
|
|
|
* @param int $angle The angle to rotate the image through |
|
158
|
|
|
* @param array $options |
|
159
|
|
|
* @return bool|PEAR_Error TRUE on success, PEAR_Error object on error |
|
160
|
|
|
*/ |
|
161
|
|
|
public function rotate($angle, $options = null) |
|
162
|
|
|
{ |
|
163
|
|
|
if (!($angle == $this->_rotation_angle($angle))) { |
|
164
|
|
|
// No rotation needed |
|
165
|
|
|
return true; |
|
166
|
|
|
} |
|
167
|
|
|
|
|
168
|
|
|
// For pnmrotate, we want to limit rotations from -45 to +45 degrees |
|
169
|
|
|
// even if acceptable range is -90 to +90 (see pnmrotate man page) |
|
170
|
|
|
// Bring image to that range by using pamflip |
|
171
|
|
|
if ($angle > 45 && $angle < 315) { |
|
172
|
|
|
if (!System::which(IMAGE_TRANSFORM_NETPBM_PATH . 'pamflip' . (OS_WINDOWS ? '.exe' : ''))) { |
|
173
|
|
|
return PEAR::raiseError('Couldn\'t find "pamflip" binary', IMAGE_TRANSFORM_ERROR_UNSUPPORTED); |
|
174
|
|
|
} |
|
175
|
|
|
|
|
176
|
|
|
$quarters = floor(ceil($angle / 45) / 2); |
|
177
|
|
|
$this->command[] = $this->_prepare_cmd(IMAGE_TRANSFORM_NETPBM_PATH, 'pamflip', '-rotate' . (360 - $quarters * 90)); |
|
178
|
|
|
$angle -= $quarters * 90; |
|
179
|
|
|
} |
|
180
|
|
|
|
|
181
|
|
|
if (0 != $angle) { |
|
182
|
|
|
if ($angle > 45) { |
|
183
|
|
|
$angle -= 360; |
|
184
|
|
|
} |
|
185
|
|
|
|
|
186
|
|
|
if (!System::which(IMAGE_TRANSFORM_NETPBM_PATH . 'pnmrotate' . (OS_WINDOWS ? '.exe' : ''))) { |
|
187
|
|
|
return PEAR::raiseError('Couldn\'t find "pnmrotate" binary', IMAGE_TRANSFORM_ERROR_UNSUPPORTED); |
|
188
|
|
|
} |
|
189
|
|
|
|
|
190
|
|
|
$bgcolor = $this->_getColor('canvasColor', $options, [255, 255, 255]); |
|
191
|
|
|
$bgcolor = $this->colorarray2colorhex($bgcolor); |
|
192
|
|
|
|
|
193
|
|
|
$scaleMethod = $this->_getOption('scaleMethod', $options, 'smooth'); |
|
194
|
|
|
if ('pixel' != $scaleMethod) { |
|
195
|
|
|
$this->command[] = $this->_prepare_cmd(IMAGE_TRANSFORM_NETPBM_PATH, 'pnmrotate', '-background=' . $bgcolor . ' -' . (float)$angle); |
|
|
|
|
|
|
196
|
|
|
} else { |
|
197
|
|
|
$this->command[] = $this->_prepare_cmd(IMAGE_TRANSFORM_NETPBM_PATH, 'pnmrotate', '-background=' . $bgcolor . ' -noantialias -' . (float)$angle); |
|
198
|
|
|
} |
|
199
|
|
|
} |
|
200
|
|
|
|
|
201
|
|
|
return true; |
|
202
|
|
|
} |
|
203
|
|
|
|
|
204
|
|
|
// End rotate |
|
205
|
|
|
|
|
206
|
|
|
/** |
|
207
|
|
|
* Crop an image |
|
208
|
|
|
* |
|
209
|
|
|
* @param int $width Cropped image width |
|
210
|
|
|
* @param int $height Cropped image height |
|
211
|
|
|
* @param int $x positive X-coordinate to crop at |
|
212
|
|
|
* @param int $y positive Y-coordinate to crop at |
|
213
|
|
|
* |
|
214
|
|
|
* @return mixed TRUE or a PEAR error object on error |
|
215
|
|
|
* @todo keep track of the new cropped size |
|
216
|
|
|
**/ |
|
217
|
|
|
public function crop($width, $height, $x = 0, $y = 0) |
|
218
|
|
|
{ |
|
219
|
|
|
// Sanity check |
|
220
|
|
|
if (!$this->intersects($width, $height, $x, $y)) { |
|
221
|
|
|
return PEAR::raiseError('Nothing to crop', IMAGE_TRANSFORM_ERROR_OUTOFBOUND); |
|
222
|
|
|
} |
|
223
|
|
|
if (0 != $x || 0 != $y |
|
224
|
|
|
|| $width != $this->img_x |
|
225
|
|
|
|| $height != $this->img_y) { |
|
226
|
|
|
if (!System::which(IMAGE_TRANSFORM_NETPBM_PATH . 'pnmcut' . (OS_WINDOWS ? '.exe' : ''))) { |
|
227
|
|
|
return PEAR::raiseError('Couldn\'t find "pnmcut" binary', IMAGE_TRANSFORM_ERROR_UNSUPPORTED); |
|
228
|
|
|
} |
|
229
|
|
|
|
|
230
|
|
|
$this->command[] = $this->_prepare_cmd(IMAGE_TRANSFORM_NETPBM_PATH, 'pnmcut', '-left ' . ((int)$x) . ' -top ' . ((int)$y) . ' -width ' . ((int)$width) . ' -height ' . ((int)$height)); |
|
231
|
|
|
} |
|
232
|
|
|
|
|
233
|
|
|
return true; |
|
234
|
|
|
} |
|
235
|
|
|
|
|
236
|
|
|
// End crop |
|
237
|
|
|
|
|
238
|
|
|
/** |
|
239
|
|
|
* Adjust the image gamma |
|
240
|
|
|
* |
|
241
|
|
|
* @param float $outputgamma |
|
242
|
|
|
* |
|
243
|
|
|
* @return mixed TRUE or a PEAR error object on error |
|
244
|
|
|
*/ |
|
245
|
|
|
public function gamma($outputgamma = 1.0) |
|
246
|
|
|
{ |
|
247
|
|
|
if (1.0 != $outputgamme) { |
|
|
|
|
|
|
248
|
|
|
if (!System::which(IMAGE_TRANSFORM_NETPBM_PATH . 'pnmgamma' . (OS_WINDOWS ? '.exe' : ''))) { |
|
249
|
|
|
return PEAR::raiseError('Couldn\'t find "pnmgamma" binary', IMAGE_TRANSFORM_ERROR_UNSUPPORTED); |
|
250
|
|
|
} |
|
251
|
|
|
$this->command[] = $this->_prepare_cmd(IMAGE_TRANSFORM_NETPBM_PATH, 'pnmgamma', (float)$outputgamma); |
|
252
|
|
|
} |
|
253
|
|
|
|
|
254
|
|
|
return true; |
|
255
|
|
|
} |
|
256
|
|
|
|
|
257
|
|
|
/** |
|
258
|
|
|
* Vertical mirroring |
|
259
|
|
|
* |
|
260
|
|
|
* @return true or PEAR Error object on error |
|
261
|
|
|
**@see mirror() |
|
262
|
|
|
*/ |
|
263
|
|
|
public function flip() |
|
264
|
|
|
{ |
|
265
|
|
|
if (!System::which(IMAGE_TRANSFORM_NETPBM_PATH . 'pamflip' . (OS_WINDOWS ? '.exe' : ''))) { |
|
266
|
|
|
return PEAR::raiseError('Couldn\'t find "pamflip" binary', IMAGE_TRANSFORM_ERROR_UNSUPPORTED); |
|
267
|
|
|
} |
|
268
|
|
|
$this->command[] = $this->_prepare_cmd(IMAGE_TRANSFORM_NETPBM_PATH, 'pamflip', '-topbottom'); |
|
269
|
|
|
|
|
270
|
|
|
return true; |
|
271
|
|
|
} |
|
272
|
|
|
|
|
273
|
|
|
/** |
|
274
|
|
|
* Horizontal mirroring |
|
275
|
|
|
* |
|
276
|
|
|
* @return true or PEAR Error object on error |
|
277
|
|
|
**@see flip() |
|
278
|
|
|
*/ |
|
279
|
|
|
public function mirror() |
|
280
|
|
|
{ |
|
281
|
|
|
if (!System::which(IMAGE_TRANSFORM_NETPBM_PATH . 'pamflip' . (OS_WINDOWS ? '.exe' : ''))) { |
|
282
|
|
|
return PEAR::raiseError('Couldn\'t find "pamflip" binary', IMAGE_TRANSFORM_ERROR_UNSUPPORTED); |
|
283
|
|
|
} |
|
284
|
|
|
$this->command[] = $this->_prepare_cmd(IMAGE_TRANSFORM_NETPBM_PATH, 'pamflip', '-leftright'); |
|
285
|
|
|
|
|
286
|
|
|
return true; |
|
287
|
|
|
} |
|
288
|
|
|
|
|
289
|
|
|
/** |
|
290
|
|
|
* Converts an image into greyscale colors |
|
291
|
|
|
* |
|
292
|
|
|
* @access public |
|
293
|
|
|
* @return mixed TRUE or a PEAR error object on error |
|
294
|
|
|
**/ |
|
295
|
|
|
public function greyscale() |
|
296
|
|
|
{ |
|
297
|
|
|
if (!System::which(IMAGE_TRANSFORM_NETPBM_PATH . 'ppmtopgm' . (OS_WINDOWS ? '.exe' : ''))) { |
|
298
|
|
|
return PEAR::raiseError('Couldn\'t find "ppmtopgm" binary', IMAGE_TRANSFORM_ERROR_UNSUPPORTED); |
|
299
|
|
|
} |
|
300
|
|
|
$this->command[] = $this->_prepare_cmd(IMAGE_TRANSFORM_NETPBM_PATH, 'ppmtopgm'); |
|
301
|
|
|
|
|
302
|
|
|
return true; |
|
303
|
|
|
} |
|
304
|
|
|
|
|
305
|
|
|
/** |
|
306
|
|
|
* adds text to an image |
|
307
|
|
|
* |
|
308
|
|
|
* @param mixed $params |
|
309
|
|
|
* |
|
310
|
|
|
* @return object |
|
311
|
|
|
*/ |
|
312
|
|
|
public function addText($params) |
|
313
|
|
|
{ |
|
314
|
|
|
if (!System::which(IMAGE_TRANSFORM_NETPBM_PATH . 'ppmlabel' . (OS_WINDOWS ? '.exe' : ''))) { |
|
315
|
|
|
return PEAR::raiseError('Couldn\'t find "ppmlabel" binary', IMAGE_TRANSFORM_ERROR_UNSUPPORTED); |
|
316
|
|
|
} |
|
317
|
|
|
|
|
318
|
|
|
// we ignore 'resize_first' since the more logical approach would be |
|
319
|
|
|
// for the user to just call $this->_resize() _first_ ;) |
|
320
|
|
|
extract(array_merge($this->_get_default_text_params(), $params)); |
|
321
|
|
|
|
|
322
|
|
|
$options = ['colorFont' => $color]; |
|
323
|
|
|
$color = $this->_getColor('colorFont', $options, [0, 0, 0]); |
|
324
|
|
|
$color = $this->colorarray2colorhex($color); |
|
325
|
|
|
|
|
326
|
|
|
$this->command[] = $this->_prepare_cmd(IMAGE_TRANSFORM_NETPBM_PATH, 'ppmlabel', '-angle ' . ((int)$angle) . ' -colour ' . escapeshellarg($color) . ' -size ' . ((float)$size) . ' -x ' . ((int)$x) . ' -y ' . $y + $size . ' -text ' . escapeshellarg($text)); |
|
|
|
|
|
|
327
|
|
|
} |
|
328
|
|
|
|
|
329
|
|
|
// End addText |
|
330
|
|
|
|
|
331
|
|
|
/** |
|
332
|
|
|
* Image_Transform_Driver_NetPBM::_postProcess() |
|
333
|
|
|
* |
|
334
|
|
|
* @param $type |
|
335
|
|
|
* @param $quality |
|
336
|
|
|
* @return string A chain of shell command |
|
337
|
|
|
* @link http://netpbm.sourceforge.net/doc/directory.html |
|
338
|
|
|
*/ |
|
339
|
|
|
public function _postProcess($type, $quality) |
|
340
|
|
|
{ |
|
341
|
|
|
array_unshift($this->command, $this->_prepare_cmd(IMAGE_TRANSFORM_NETPBM_PATH, mb_strtolower($this->type) . 'topnm', escapeshellarg($this->image))); |
|
342
|
|
|
$arg = ''; |
|
|
|
|
|
|
343
|
|
|
$type = mb_strtolower($type); |
|
344
|
|
|
$program = ''; |
|
345
|
|
|
switch ($type) { |
|
346
|
|
|
// ppmto* converters |
|
347
|
|
|
case 'gif': |
|
348
|
|
|
if (!System::which(IMAGE_TRANSFORM_NETPBM_PATH . 'ppmquant' . (OS_WINDOWS ? '.exe' : ''))) { |
|
349
|
|
|
return PEAR::raiseError('Couldn\'t find "ppmquant" binary', IMAGE_TRANSFORM_ERROR_UNSUPPORTED); |
|
350
|
|
|
} |
|
351
|
|
|
$this->command[] = $this->_prepare_cmd(IMAGE_TRANSFORM_NETPBM_PATH, 'ppmquant', 256); |
|
352
|
|
|
// no break |
|
353
|
|
|
case 'acad': |
|
354
|
|
|
case 'bmp': |
|
355
|
|
|
case 'eyuv': |
|
356
|
|
|
case 'ilbm': |
|
357
|
|
|
case 'leaf': |
|
358
|
|
|
case 'lj': |
|
359
|
|
|
case 'mitsu': |
|
360
|
|
|
case 'mpeg': |
|
361
|
|
|
case 'neo': |
|
362
|
|
|
case 'pcx': |
|
363
|
|
|
case 'pi1': |
|
364
|
|
|
case 'pict': |
|
365
|
|
|
case 'pj': |
|
366
|
|
|
case 'pjxl': |
|
367
|
|
|
case 'puzz': |
|
368
|
|
|
case 'sixel': |
|
369
|
|
|
case 'tga': |
|
370
|
|
|
case 'uil': |
|
371
|
|
|
case 'xpm': |
|
372
|
|
|
case 'yuv': |
|
373
|
|
|
$program = 'ppmto' . $type; |
|
374
|
|
|
break; |
|
375
|
|
|
// Windows icon |
|
376
|
|
|
case 'winicon': |
|
377
|
|
|
case 'ico': |
|
378
|
|
|
$type = 'winicon'; |
|
379
|
|
|
$program = 'ppmto' . $type; |
|
380
|
|
|
break; |
|
381
|
|
|
// pbmto* converters |
|
382
|
|
|
case 'ascii': |
|
383
|
|
|
case 'text': |
|
384
|
|
|
case 'txt': |
|
385
|
|
|
$type = 'ascii'; |
|
386
|
|
|
// no break |
|
387
|
|
|
case 'atk': |
|
388
|
|
|
case 'bbubg': |
|
389
|
|
|
case 'epsi': |
|
390
|
|
|
case 'epson': |
|
391
|
|
|
case 'escp2': |
|
392
|
|
|
case 'icon': // Sun icon |
|
393
|
|
|
case 'gem': |
|
394
|
|
|
case 'go': |
|
395
|
|
|
case 'lj': |
|
396
|
|
|
case 'ln03': |
|
397
|
|
|
case 'lps': |
|
398
|
|
|
case 'macp': |
|
399
|
|
|
case 'mda': |
|
400
|
|
|
case 'mgr': |
|
401
|
|
|
case 'pi3': |
|
402
|
|
|
case 'pk': |
|
403
|
|
|
case 'plot': |
|
404
|
|
|
case 'ptx': |
|
405
|
|
|
case 'wbp': |
|
406
|
|
|
case 'xbm': |
|
407
|
|
|
case 'x10bm': |
|
408
|
|
|
case 'ybm': |
|
409
|
|
|
case 'zinc': |
|
410
|
|
|
case '10x': |
|
411
|
|
|
$program = 'pbmto' . $type; |
|
412
|
|
|
break; |
|
413
|
|
|
// pamto* converters |
|
414
|
|
|
case 'jpc': |
|
415
|
|
|
$type = 'jpeg2k'; |
|
416
|
|
|
// no break |
|
417
|
|
|
case 'html': |
|
418
|
|
|
case 'pfm': |
|
419
|
|
|
case 'tga': |
|
420
|
|
|
$program = 'pamto' . $type; |
|
421
|
|
|
break; |
|
422
|
|
|
// pnmto* converters |
|
423
|
|
|
case 'jpc': |
|
424
|
|
|
$type = 'jpeg2k'; |
|
425
|
|
|
break; |
|
426
|
|
|
case 'wfa': |
|
427
|
|
|
$type = 'fiasco'; |
|
428
|
|
|
break; |
|
429
|
|
|
case 'jpg': |
|
430
|
|
|
$type = 'jpeg'; |
|
431
|
|
|
// no break |
|
432
|
|
|
case 'jpeg': |
|
433
|
|
|
$arg = '--quality=' . $quality; |
|
434
|
|
|
// no break |
|
435
|
|
|
case 'jbig': |
|
436
|
|
|
case 'fits': |
|
437
|
|
|
case 'palm': |
|
438
|
|
|
case 'pclxl': |
|
439
|
|
|
case 'png': |
|
440
|
|
|
case 'ps': |
|
441
|
|
|
case 'rast': |
|
442
|
|
|
case 'rle': |
|
443
|
|
|
case 'sgi': |
|
444
|
|
|
case 'sir': |
|
445
|
|
|
case 'tiff': |
|
446
|
|
|
case 'xwd': |
|
447
|
|
|
$program = 'pnmto' . $type; |
|
448
|
|
|
break; |
|
449
|
|
|
} // switch |
|
450
|
|
|
|
|
451
|
|
|
if ('' == $program) { |
|
452
|
|
|
$program = 'pnmto' . $type; |
|
453
|
|
|
} |
|
454
|
|
|
|
|
455
|
|
|
if (!System::which(IMAGE_TRANSFORM_NETPBM_PATH . $program . (OS_WINDOWS ? '.exe' : ''))) { |
|
456
|
|
|
return PEAR::raiseError("Couldn't find \"$program\" binary", IMAGE_TRANSFORM_ERROR_UNSUPPORTED); |
|
457
|
|
|
} |
|
458
|
|
|
$this->command[] = $this->_prepare_cmd(IMAGE_TRANSFORM_NETPBM_PATH, $program); |
|
459
|
|
|
|
|
460
|
|
|
return implode('|', $this->command); |
|
461
|
|
|
} |
|
462
|
|
|
|
|
463
|
|
|
/** |
|
464
|
|
|
* Save the image file |
|
465
|
|
|
* |
|
466
|
|
|
* @param string $filename the name of the file to write to |
|
467
|
|
|
* @param string $type (jpeg,png...); |
|
468
|
|
|
* @param int $quality 75 |
|
469
|
|
|
* @return true or PEAR Error object on error |
|
470
|
|
|
*/ |
|
471
|
|
|
public function save($filename, $type = null, $quality = 75) |
|
472
|
|
|
{ |
|
473
|
|
|
$type = $type ?? $this->type; |
|
474
|
|
|
$options = []; |
|
475
|
|
|
if (null !== $quality) { |
|
|
|
|
|
|
476
|
|
|
$options['quality'] = $quality; |
|
477
|
|
|
} |
|
478
|
|
|
$quality = $this->_getOption('quality', $options, $quality); |
|
479
|
|
|
|
|
480
|
|
|
$nullDevice = OS_WINDOWS ? 'nul' : '/dev/null'; |
|
481
|
|
|
|
|
482
|
|
|
$cmd = $this->_postProcess($type, $quality) . '> "' . $filename . '"'; |
|
483
|
|
|
exec($cmd . ' 2> ' . $nullDevice, $res, $exit); |
|
484
|
|
|
if (!$this->keep_settings_on_save) { |
|
485
|
|
|
$this->free(); |
|
486
|
|
|
} |
|
487
|
|
|
|
|
488
|
|
|
return (0 == $exit) ? true : PEAR::raiseError(implode('. ', $res), IMAGE_TRANSFORM_ERROR_IO); |
|
489
|
|
|
} |
|
490
|
|
|
|
|
491
|
|
|
// End save |
|
492
|
|
|
|
|
493
|
|
|
/** |
|
494
|
|
|
* Display image without saving and lose changes |
|
495
|
|
|
* |
|
496
|
|
|
* @param string $type (jpeg,png...); |
|
497
|
|
|
* @param int $quality 75 |
|
498
|
|
|
* @return true or PEAR Error object on error |
|
499
|
|
|
*/ |
|
500
|
|
|
public function display($type = null, $quality = null) |
|
501
|
|
|
{ |
|
502
|
|
|
$type = $type ?? $this->type; |
|
503
|
|
|
$options = []; |
|
504
|
|
|
if (null !== $quality) { |
|
505
|
|
|
$options['quality'] = $quality; |
|
506
|
|
|
} |
|
507
|
|
|
$quality = $this->_getOption('quality', $options, 75); |
|
508
|
|
|
|
|
509
|
|
|
header('Content-type: ' . $this->getMimeType($type)); |
|
510
|
|
|
$cmd = $this->_postProcess($type, $quality); |
|
511
|
|
|
passthru($cmd . ' 2>&1'); |
|
512
|
|
|
if (!$this->keep_settings_on_save) { |
|
513
|
|
|
$this->free(); |
|
514
|
|
|
} |
|
515
|
|
|
|
|
516
|
|
|
return true; |
|
517
|
|
|
} |
|
518
|
|
|
|
|
519
|
|
|
/** |
|
520
|
|
|
* Destroy image handle |
|
521
|
|
|
*/ |
|
522
|
|
|
public function free() |
|
523
|
|
|
{ |
|
524
|
|
|
$this->command = []; |
|
525
|
|
|
} |
|
526
|
|
|
} // End class ImageIM |
|
527
|
|
|
|