Subversion Repositories cheapmusic

Rev

Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
103 - 1
<?php
2
 
3
class wmf {
4
 
5
var $mpdf = null;
6
var $gdiObjectArray;
7
 
8
function wmf(&$mpdf) {
9
	$this->mpdf = $mpdf;
10
}
11
 
12
 
13
function _getWMFimage($data) {
14
	$k = _MPDFK;
15
 
16
		$this->gdiObjectArray = array();
17
		$a=unpack('stest',"\1\0");
18
		if ($a['test']!=1)
19
		return array(0, 'Error parsing WMF image - Big-endian architecture not supported');
20
		// check for Aldus placeable metafile header
21
		$key = unpack('Lmagic', substr($data, 0, 4));
22
		$p = 18;  // WMF header
23
		if ($key['magic'] == (int)0x9AC6CDD7) { $p +=22; } // Aldus header
24
		// define some state variables
25
		$wo=null; // window origin
26
		$we=null; // window extent
27
		$polyFillMode = 0;
28
		$nullPen = false;
29
		$nullBrush = false;
30
		$endRecord = false;
31
		$wmfdata = '';
32
		while ($p < strlen($data) && !$endRecord) {
33
			$recordInfo = unpack('Lsize/Sfunc', substr($data, $p, 6));	$p += 6;
34
			// size of record given in WORDs (= 2 bytes)
35
			$size = $recordInfo['size'];
36
			// func is number of GDI function
37
			$func = $recordInfo['func'];
38
			if ($size > 3) {
39
				$parms = substr($data, $p, 2*($size-3));	$p += 2*($size-3);
40
			}
41
			switch ($func) {
42
				case 0x020b:  // SetWindowOrg
43
					// do not allow window origin to be changed
44
					// after drawing has begun
45
					if (!$wmfdata)
46
						$wo = array_reverse(unpack('s2', $parms));
47
					break;
48
				case 0x020c:  // SetWindowExt
49
					// do not allow window extent to be changed
50
					// after drawing has begun
51
					if (!$wmfdata)
52
						$we = array_reverse(unpack('s2', $parms));
53
					break;
54
				case 0x02fc:  // CreateBrushIndirect
55
					$brush = unpack('sstyle/Cr/Cg/Cb/Ca/Shatch', $parms);
56
					$brush['type'] = 'B';
57
					$this->_AddGDIObject($brush);
58
					break;
59
				case 0x02fa:  // CreatePenIndirect
60
					$pen = unpack('Sstyle/swidth/sdummy/Cr/Cg/Cb/Ca', $parms);
61
					// convert width from twips to user unit
62
					$pen['width'] /= (20 * $k);
63
					$pen['type'] = 'P';
64
					$this->_AddGDIObject($pen);
65
					break;
66
 
67
				// MUST create other GDI objects even if we don't handle them
68
				case 0x06fe: // CreateBitmap
69
				case 0x02fd: // CreateBitmapIndirect
70
				case 0x00f8: // CreateBrush
71
				case 0x02fb: // CreateFontIndirect
72
				case 0x00f7: // CreatePalette
73
				case 0x01f9: // CreatePatternBrush
74
				case 0x06ff: // CreateRegion
75
				case 0x0142: // DibCreatePatternBrush
76
					$dummyObject = array('type'=>'D');
77
					$this->_AddGDIObject($dummyObject);
78
					break;
79
				case 0x0106:  // SetPolyFillMode
80
					$polyFillMode = unpack('smode', $parms);
81
					$polyFillMode = $polyFillMode['mode'];
82
					break;
83
				case 0x01f0:  // DeleteObject
84
					$idx = unpack('Sidx', $parms);
85
					$idx = $idx['idx'];
86
					$this->_DeleteGDIObject($idx);
87
					break;
88
				case 0x012d:  // SelectObject
89
					$idx = unpack('Sidx', $parms);
90
					$idx = $idx['idx'];
91
					$obj = $this->_GetGDIObject($idx);
92
					switch ($obj['type']) {
93
						case 'B':
94
							$nullBrush = false;
95
							if ($obj['style'] == 1) { $nullBrush = true; }
96
							else {
97
								$wmfdata .= $this->mpdf->SetFColor($this->mpdf->ConvertColor('rgb('.$obj['r'].','.$obj['g'].','.$obj['b'].')'), true)."\n";
98
							}
99
							break;
100
						case 'P':
101
							$nullPen = false;
102
							$dashArray = array();
103
							// dash parameters are custom
104
							switch ($obj['style']) {
105
								case 0: // PS_SOLID
106
									break;
107
								case 1: // PS_DASH
108
									$dashArray = array(3,1);
109
									break;
110
								case 2: // PS_DOT
111
									$dashArray = array(0.5,0.5);
112
									break;
113
								case 3: // PS_DASHDOT
114
									$dashArray = array(2,1,0.5,1);
115
									break;
116
								case 4: // PS_DASHDOTDOT
117
									$dashArray = array(2,1,0.5,1,0.5,1);
118
									break;
119
								case 5: // PS_NULL
120
									$nullPen = true;
121
									break;
122
							}
123
							if (!$nullPen) {
124
								$wmfdata .= $this->mpdf->SetDColor($this->mpdf->ConvertColor('rgb('.$obj['r'].','.$obj['g'].','.$obj['b'].')'), true)."\n";
125
								$wmfdata .= sprintf("%.3F w\n",$obj['width']*$k);
126
							}
127
							if (!empty($dashArray)) {
128
								$s = '[';
129
								for ($i=0; $i<count($dashArray);$i++) {
130
									$s .= $dashArray[$i] * $k;
131
									if ($i != count($dashArray)-1) { $s .= ' '; }
132
								}
133
								$s .= '] 0 d';
134
								$wmfdata .= $s."\n";
135
							}
136
							break;
137
					}
138
					break;
139
				case 0x0325: // Polyline
140
				case 0x0324: // Polygon
141
					$coords = unpack('s'.($size-3), $parms);
142
					$numpoints = $coords[1];
143
					for ($i = $numpoints; $i > 0; $i--) {
144
						$px = $coords[2*$i];
145
						$py = $coords[2*$i+1];
146
 
147
						if ($i < $numpoints) { $wmfdata .= $this->_LineTo($px, $py); }
148
					   else { $wmfdata .= $this->_MoveTo($px, $py); }
149
					}
150
					if ($func == 0x0325) { $op = 's'; }
151
					else if ($func == 0x0324) {
152
						if ($nullPen) {
153
							if ($nullBrush) { $op = 'n'; } // no op
154
							else { $op = 'f'; } // fill
155
						}
156
						else {
157
							if ($nullBrush) { $op = 's'; } // stroke
158
							else { $op = 'b'; } // stroke and fill
159
						}
160
						if ($polyFillMode==1 && ($op=='b' || $op=='f')) { $op .= '*'; } // use even-odd fill rule
161
					}
162
					$wmfdata .= $op."\n";
163
					break;
164
				case 0x0538: // PolyPolygon
165
					$coords = unpack('s'.($size-3), $parms);
166
					$numpolygons = $coords[1];
167
					$adjustment = $numpolygons;
168
					for ($j = 1; $j <= $numpolygons; $j++) {
169
						$numpoints = $coords[$j + 1];
170
						for ($i = $numpoints; $i > 0; $i--) {
171
							$px = $coords[2*$i   + $adjustment];
172
							$py = $coords[2*$i+1 + $adjustment];
173
							if ($i == $numpoints) { $wmfdata .= $this->_MoveTo($px, $py); }
174
							else { $wmfdata .= $this->_LineTo($px, $py); }
175
						}
176
						$adjustment += $numpoints * 2;
177
					}
178
 
179
					if ($nullPen) {
180
						if ($nullBrush) { $op = 'n'; } // no op
181
						else { $op = 'f'; } // fill
182
					}
183
					else {
184
						if ($nullBrush) { $op = 's'; } // stroke
185
						else { $op = 'b'; } // stroke and fill
186
					}
187
					if ($polyFillMode==1 && ($op=='b' || $op=='f')) { $op .= '*'; } // use even-odd fill rule
188
					$wmfdata .= $op."\n";
189
					break;
190
				case 0x0000:
191
					$endRecord = true;
192
					break;
193
			}
194
		}
195
 
196
 
197
	return array(1,$wmfdata,$wo,$we);
198
}
199
 
200
 
201
function _MoveTo($x, $y) {
202
	return "$x $y m\n";
203
}
204
 
205
// a line must have been started using _MoveTo() first
206
function _LineTo($x, $y) {
207
	return "$x $y l\n";
208
}
209
 
210
function _AddGDIObject($obj) {
211
	// find next available slot
212
	$idx = 0;
213
	if (!empty($this->gdiObjectArray)) {
214
		$empty = false;
215
		$i = 0;
216
		while (!$empty) {
217
			$empty = !isset($this->gdiObjectArray[$i]);
218
			$i++;
219
		}
220
		$idx = $i-1;
221
	}
222
	$this->gdiObjectArray[$idx] = $obj;
223
}
224
 
225
function _GetGDIObject($idx) {
226
	return $this->gdiObjectArray[$idx];
227
}
228
 
229
function _DeleteGDIObject($idx) {
230
	unset($this->gdiObjectArray[$idx]);
231
}
232
 
233
 
234
}
235
 
236
?>