gdi32: Remove the remaining OpenGL entry points from the DC driver.
[wine] / dlls / gdi32 / mfdrv / init.c
1 /*
2  * Metafile driver initialisation functions
3  *
4  * Copyright 1996 Alexandre Julliard
5  *
6  * This library is free software; you can redistribute it and/or
7  * modify it under the terms of the GNU Lesser General Public
8  * License as published by the Free Software Foundation; either
9  * version 2.1 of the License, or (at your option) any later version.
10  *
11  * This library is distributed in the hope that it will be useful,
12  * but WITHOUT ANY WARRANTY; without even the implied warranty of
13  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
14  * Lesser General Public License for more details.
15  *
16  * You should have received a copy of the GNU Lesser General Public
17  * License along with this library; if not, write to the Free Software
18  * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
19  */
20
21 #include <stdarg.h>
22 #include <string.h>
23
24 #include "windef.h"
25 #include "winbase.h"
26 #include "winnls.h"
27 #include "gdi_private.h"
28 #include "mfdrv/metafiledrv.h"
29 #include "wine/debug.h"
30
31 WINE_DEFAULT_DEBUG_CHANNEL(metafile);
32
33 static BOOL MFDRV_CreateCompatibleDC( PHYSDEV orig, PHYSDEV *pdev );
34 static BOOL MFDRV_DeleteDC( PHYSDEV dev );
35
36
37 /**********************************************************************
38  *           MFDRV_ExtEscape
39  */
40 static INT MFDRV_ExtEscape( PHYSDEV dev, INT nEscape, INT cbInput, LPCVOID in_data,
41                             INT cbOutput, LPVOID out_data )
42 {
43     METARECORD *mr;
44     DWORD len;
45     INT ret;
46
47     if (cbOutput) return 0;  /* escapes that require output cannot work in metafiles */
48
49     len = sizeof(*mr) + sizeof(WORD) + ((cbInput + 1) & ~1);
50     mr = HeapAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY, len);
51     mr->rdSize = len / 2;
52     mr->rdFunction = META_ESCAPE;
53     mr->rdParm[0] = nEscape;
54     mr->rdParm[1] = cbInput;
55     memcpy(&(mr->rdParm[2]), in_data, cbInput);
56     ret = MFDRV_WriteRecord( dev, mr, len);
57     HeapFree(GetProcessHeap(), 0, mr);
58     return ret;
59 }
60
61
62 /******************************************************************
63  *         MFDRV_GetBoundsRect
64  */
65 static UINT MFDRV_GetBoundsRect( PHYSDEV dev, RECT *rect, UINT flags )
66 {
67     return 0;
68 }
69
70
71 /******************************************************************
72  *         MFDRV_SetBoundsRect
73  */
74 static UINT MFDRV_SetBoundsRect( PHYSDEV dev, RECT *rect, UINT flags )
75 {
76     return 0;
77 }
78
79
80 /******************************************************************
81  *         MFDRV_GetDeviceCaps
82  *
83  *A very simple implementation that returns DT_METAFILE
84  */
85 static INT MFDRV_GetDeviceCaps(PHYSDEV dev, INT cap)
86 {
87     switch(cap)
88     {
89     case TECHNOLOGY:
90         return DT_METAFILE;
91     case TEXTCAPS:
92         return 0;
93     default:
94         TRACE(" unsupported capability %d, will return 0\n", cap );
95     }
96     return 0;
97 }
98
99
100 static const struct gdi_dc_funcs MFDRV_Funcs =
101 {
102     NULL,                            /* pAbortDoc */
103     MFDRV_AbortPath,                 /* pAbortPath */
104     NULL,                            /* pAlphaBlend */
105     NULL,                            /* pAngleArc */
106     MFDRV_Arc,                       /* pArc */
107     NULL,                            /* pArcTo */
108     MFDRV_BeginPath,                 /* pBeginPath */
109     NULL,                            /* pBlendImage */
110     MFDRV_Chord,                     /* pChord */
111     MFDRV_CloseFigure,               /* pCloseFigure */
112     MFDRV_CreateCompatibleDC,        /* pCreateCompatibleDC */
113     NULL,                            /* pCreateDC */
114     MFDRV_DeleteDC,                  /* pDeleteDC */
115     MFDRV_DeleteObject,              /* pDeleteObject */
116     NULL,                            /* pDescribePixelFormat */
117     NULL,                            /* pDeviceCapabilities */
118     MFDRV_Ellipse,                   /* pEllipse */
119     NULL,                            /* pEndDoc */
120     NULL,                            /* pEndPage */
121     MFDRV_EndPath,                   /* pEndPath */
122     NULL,                            /* pEnumFonts */
123     NULL,                            /* pEnumICMProfiles */
124     MFDRV_ExcludeClipRect,           /* pExcludeClipRect */
125     NULL,                            /* pExtDeviceMode */
126     MFDRV_ExtEscape,                 /* pExtEscape */
127     MFDRV_ExtFloodFill,              /* pExtFloodFill */
128     MFDRV_ExtSelectClipRgn,          /* pExtSelectClipRgn */
129     MFDRV_ExtTextOut,                /* pExtTextOut */
130     MFDRV_FillPath,                  /* pFillPath */
131     MFDRV_FillRgn,                   /* pFillRgn */
132     MFDRV_FlattenPath,               /* pFlattenPath */
133     NULL,                            /* pFontIsLinked */
134     MFDRV_FrameRgn,                  /* pFrameRgn */
135     NULL,                            /* pGdiComment */
136     NULL,                            /* pGdiRealizationInfo */
137     MFDRV_GetBoundsRect,             /* pGetBoundsRect */
138     NULL,                            /* pGetCharABCWidths */
139     NULL,                            /* pGetCharABCWidthsI */
140     NULL,                            /* pGetCharWidth */
141     MFDRV_GetDeviceCaps,             /* pGetDeviceCaps */
142     NULL,                            /* pGetDeviceGammaRamp */
143     NULL,                            /* pGetFontData */
144     NULL,                            /* pGetFontUnicodeRanges */
145     NULL,                            /* pGetGlyphIndices */
146     NULL,                            /* pGetGlyphOutline */
147     NULL,                            /* pGetICMProfile */
148     NULL,                            /* pGetImage */
149     NULL,                            /* pGetKerningPairs */
150     NULL,                            /* pGetNearestColor */
151     NULL,                            /* pGetOutlineTextMetrics */
152     NULL,                            /* pGetPixel */
153     NULL,                            /* pGetSystemPaletteEntries */
154     NULL,                            /* pGetTextCharsetInfo */
155     NULL,                            /* pGetTextExtentExPoint */
156     NULL,                            /* pGetTextExtentExPointI */
157     NULL,                            /* pGetTextFace */
158     NULL,                            /* pGetTextMetrics */
159     NULL,                            /* pGradientFill */
160     MFDRV_IntersectClipRect,         /* pIntersectClipRect */
161     MFDRV_InvertRgn,                 /* pInvertRgn */
162     MFDRV_LineTo,                    /* pLineTo */
163     NULL,                            /* pModifyWorldTransform */
164     MFDRV_MoveTo,                    /* pMoveTo */
165     MFDRV_OffsetClipRgn,             /* pOffsetClipRgn */
166     MFDRV_OffsetViewportOrgEx,       /* pOffsetViewportOrgEx */
167     MFDRV_OffsetWindowOrgEx,         /* pOffsetWindowOrgEx */
168     MFDRV_PaintRgn,                  /* pPaintRgn */
169     MFDRV_PatBlt,                    /* pPatBlt */
170     MFDRV_Pie,                       /* pPie */
171     MFDRV_PolyBezier,                /* pPolyBezier */
172     MFDRV_PolyBezierTo,              /* pPolyBezierTo */
173     NULL,                            /* pPolyDraw */
174     MFDRV_PolyPolygon,               /* pPolyPolygon */
175     NULL,                            /* pPolyPolyline */
176     MFDRV_Polygon,                   /* pPolygon */
177     MFDRV_Polyline,                  /* pPolyline */
178     NULL,                            /* pPolylineTo */
179     NULL,                            /* pPutImage */
180     NULL,                            /* pRealizeDefaultPalette */
181     MFDRV_RealizePalette,            /* pRealizePalette */
182     MFDRV_Rectangle,                 /* pRectangle */
183     NULL,                            /* pResetDC */
184     MFDRV_RestoreDC,                 /* pRestoreDC */
185     MFDRV_RoundRect,                 /* pRoundRect */
186     MFDRV_SaveDC,                    /* pSaveDC */
187     MFDRV_ScaleViewportExtEx,        /* pScaleViewportExtEx */
188     MFDRV_ScaleWindowExtEx,          /* pScaleWindowExtEx */
189     MFDRV_SelectBitmap,              /* pSelectBitmap */
190     MFDRV_SelectBrush,               /* pSelectBrush */
191     MFDRV_SelectClipPath,            /* pSelectClipPath */
192     MFDRV_SelectFont,                /* pSelectFont */
193     MFDRV_SelectPalette,             /* pSelectPalette */
194     MFDRV_SelectPen,                 /* pSelectPen */
195     NULL,                            /* pSetArcDirection */
196     MFDRV_SetBkColor,                /* pSetBkColor */
197     MFDRV_SetBkMode,                 /* pSetBkMode */
198     MFDRV_SetBoundsRect,             /* pSetBoundsRect */
199     MFDRV_SetDCBrushColor,           /* pSetDCBrushColor*/
200     MFDRV_SetDCPenColor,             /* pSetDCPenColor*/
201     MFDRV_SetDIBitsToDevice,         /* pSetDIBitsToDevice */
202     NULL,                            /* pSetDeviceClipping */
203     NULL,                            /* pSetDeviceGammaRamp */
204     NULL,                            /* pSetLayout */
205     MFDRV_SetMapMode,                /* pSetMapMode */
206     MFDRV_SetMapperFlags,            /* pSetMapperFlags */
207     MFDRV_SetPixel,                  /* pSetPixel */
208     NULL,                            /* pSetPixelFormat */
209     MFDRV_SetPolyFillMode,           /* pSetPolyFillMode */
210     MFDRV_SetROP2,                   /* pSetROP2 */
211     MFDRV_SetRelAbs,                 /* pSetRelAbs */
212     MFDRV_SetStretchBltMode,         /* pSetStretchBltMode */
213     MFDRV_SetTextAlign,              /* pSetTextAlign */
214     MFDRV_SetTextCharacterExtra,     /* pSetTextCharacterExtra */
215     MFDRV_SetTextColor,              /* pSetTextColor */
216     MFDRV_SetTextJustification,      /* pSetTextJustification */
217     MFDRV_SetViewportExtEx,          /* pSetViewportExtEx */
218     MFDRV_SetViewportOrgEx,          /* pSetViewportOrgEx */
219     MFDRV_SetWindowExtEx,            /* pSetWindowExtEx */
220     MFDRV_SetWindowOrgEx,            /* pSetWindowOrgEx */
221     NULL,                            /* pSetWorldTransform */
222     NULL,                            /* pStartDoc */
223     NULL,                            /* pStartPage */
224     MFDRV_StretchBlt,                /* pStretchBlt */
225     MFDRV_StretchDIBits,             /* pStretchDIBits */
226     MFDRV_StrokeAndFillPath,         /* pStrokeAndFillPath */
227     MFDRV_StrokePath,                /* pStrokePath */
228     NULL,                            /* pSwapBuffers */
229     NULL,                            /* pUnrealizePalette */
230     MFDRV_WidenPath,                 /* pWidenPath */
231     NULL,                            /* wine_get_wgl_driver */
232     GDI_PRIORITY_GRAPHICS_DRV        /* priority */
233 };
234
235
236
237 /**********************************************************************
238  *           MFDRV_AllocMetaFile
239  */
240 static DC *MFDRV_AllocMetaFile(void)
241 {
242     DC *dc;
243     METAFILEDRV_PDEVICE *physDev;
244
245     if (!(dc = alloc_dc_ptr( OBJ_METADC ))) return NULL;
246
247     physDev = HeapAlloc(GetProcessHeap(),0,sizeof(*physDev));
248     if (!physDev)
249     {
250         free_dc_ptr( dc );
251         return NULL;
252     }
253     if (!(physDev->mh = HeapAlloc( GetProcessHeap(), 0, sizeof(*physDev->mh) )))
254     {
255         HeapFree( GetProcessHeap(), 0, physDev );
256         free_dc_ptr( dc );
257         return NULL;
258     }
259
260     push_dc_driver( &dc->physDev, &physDev->dev, &MFDRV_Funcs );
261
262     physDev->handles = HeapAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY, HANDLE_LIST_INC * sizeof(physDev->handles[0]));
263     physDev->handles_size = HANDLE_LIST_INC;
264     physDev->cur_handles = 0;
265
266     physDev->hFile = 0;
267
268     physDev->mh->mtHeaderSize   = sizeof(METAHEADER) / sizeof(WORD);
269     physDev->mh->mtVersion      = 0x0300;
270     physDev->mh->mtSize         = physDev->mh->mtHeaderSize;
271     physDev->mh->mtNoObjects    = 0;
272     physDev->mh->mtMaxRecord    = 0;
273     physDev->mh->mtNoParameters = 0;
274
275     SetVirtualResolution( physDev->dev.hdc, 0, 0, 0, 0);
276
277     return dc;
278 }
279
280
281 /**********************************************************************
282  *           MFDRV_CreateCompatibleDC
283  */
284 static BOOL MFDRV_CreateCompatibleDC( PHYSDEV orig, PHYSDEV *pdev )
285 {
286     /* not supported on metafile DCs */
287     return FALSE;
288 }
289
290
291 /**********************************************************************
292  *           MFDRV_DeleteDC
293  */
294 static BOOL MFDRV_DeleteDC( PHYSDEV dev )
295 {
296     METAFILEDRV_PDEVICE *physDev = (METAFILEDRV_PDEVICE *)dev;
297     DWORD index;
298
299     HeapFree( GetProcessHeap(), 0, physDev->mh );
300     for(index = 0; index < physDev->handles_size; index++)
301         if(physDev->handles[index])
302             GDI_hdc_not_using_object(physDev->handles[index], dev->hdc);
303     HeapFree( GetProcessHeap(), 0, physDev->handles );
304     HeapFree( GetProcessHeap(), 0, physDev );
305     return TRUE;
306 }
307
308
309 /**********************************************************************
310  *           CreateMetaFileW   (GDI32.@)
311  *
312  *  Create a new DC and associate it with a metafile. Pass a filename
313  *  to create a disk-based metafile, NULL to create a memory metafile.
314  *
315  * PARAMS
316  *  filename [I] Filename of disk metafile
317  *
318  * RETURNS
319  *  A handle to the metafile DC if successful, NULL on failure.
320  */
321 HDC WINAPI CreateMetaFileW( LPCWSTR filename )
322 {
323     HDC ret;
324     DC *dc;
325     METAFILEDRV_PDEVICE *physDev;
326     HANDLE hFile;
327
328     TRACE("%s\n", debugstr_w(filename) );
329
330     if (!(dc = MFDRV_AllocMetaFile())) return 0;
331     physDev = (METAFILEDRV_PDEVICE *)dc->physDev;
332
333     if (filename)  /* disk based metafile */
334     {
335         physDev->mh->mtType = METAFILE_DISK;
336         if ((hFile = CreateFileW(filename, GENERIC_WRITE, 0, NULL,
337                                 CREATE_ALWAYS, 0, 0)) == INVALID_HANDLE_VALUE) {
338             free_dc_ptr( dc );
339             return 0;
340         }
341         if (!WriteFile( hFile, physDev->mh, sizeof(*physDev->mh), NULL,
342                         NULL )) {
343             free_dc_ptr( dc );
344             return 0;
345         }
346         physDev->hFile = hFile;
347
348         /* Grow METAHEADER to include filename */
349         physDev->mh = MF_CreateMetaHeaderDisk(physDev->mh, filename, TRUE);
350     }
351     else  /* memory based metafile */
352         physDev->mh->mtType = METAFILE_MEMORY;
353
354     TRACE("returning %p\n", physDev->dev.hdc);
355     ret = physDev->dev.hdc;
356     release_dc_ptr( dc );
357     return ret;
358 }
359
360 /**********************************************************************
361  *          CreateMetaFileA   (GDI32.@)
362  *
363  * See CreateMetaFileW.
364  */
365 HDC WINAPI CreateMetaFileA(LPCSTR filename)
366 {
367     LPWSTR filenameW;
368     DWORD len;
369     HDC hReturnDC;
370
371     if (!filename) return CreateMetaFileW(NULL);
372
373     len = MultiByteToWideChar( CP_ACP, 0, filename, -1, NULL, 0 );
374     filenameW = HeapAlloc( GetProcessHeap(), 0, len*sizeof(WCHAR) );
375     MultiByteToWideChar( CP_ACP, 0, filename, -1, filenameW, len );
376
377     hReturnDC = CreateMetaFileW(filenameW);
378
379     HeapFree( GetProcessHeap(), 0, filenameW );
380
381     return hReturnDC;
382 }
383
384
385 /**********************************************************************
386  *          MFDRV_CloseMetaFile
387  */
388 static DC *MFDRV_CloseMetaFile( HDC hdc )
389 {
390     DC *dc;
391     METAFILEDRV_PDEVICE *physDev;
392
393     TRACE("(%p)\n", hdc );
394
395     if (!(dc = get_dc_ptr( hdc ))) return NULL;
396     if (dc->header.type != OBJ_METADC)
397     {
398         release_dc_ptr( dc );
399         return NULL;
400     }
401     if (dc->refcount != 1)
402     {
403         FIXME( "not deleting busy DC %p refcount %u\n", hdc, dc->refcount );
404         release_dc_ptr( dc );
405         return NULL;
406     }
407     physDev = (METAFILEDRV_PDEVICE *)dc->physDev;
408
409     /* Construct the end of metafile record - this is documented
410      * in SDK Knowledgebase Q99334.
411      */
412
413     if (!MFDRV_MetaParam0(dc->physDev, META_EOF))
414     {
415         free_dc_ptr( dc );
416         return 0;
417     }
418
419     if (physDev->mh->mtType == METAFILE_DISK)  /* disk based metafile */
420     {
421         if (SetFilePointer(physDev->hFile, 0, NULL, FILE_BEGIN) != 0) {
422             free_dc_ptr( dc );
423             return 0;
424         }
425
426         physDev->mh->mtType = METAFILE_MEMORY; /* This is what windows does */
427         if (!WriteFile(physDev->hFile, physDev->mh, sizeof(*physDev->mh),
428                        NULL, NULL)) {
429             free_dc_ptr( dc );
430             return 0;
431         }
432         CloseHandle(physDev->hFile);
433         physDev->mh->mtType = METAFILE_DISK;
434     }
435
436     return dc;
437 }
438
439 /******************************************************************
440  *           CloseMetaFile   (GDI32.@)
441  *
442  *  Stop recording graphics operations in metafile associated with
443  *  hdc and retrieve metafile.
444  *
445  * PARAMS
446  *  hdc [I] Metafile DC to close 
447  *
448  * RETURNS
449  *  Handle of newly created metafile on success, NULL on failure.
450  */
451 HMETAFILE WINAPI CloseMetaFile(HDC hdc)
452 {
453     HMETAFILE hmf;
454     METAFILEDRV_PDEVICE *physDev;
455     DC *dc = MFDRV_CloseMetaFile(hdc);
456     if (!dc) return 0;
457     physDev = (METAFILEDRV_PDEVICE *)dc->physDev;
458
459     /* Now allocate a global handle for the metafile */
460
461     hmf = MF_Create_HMETAFILE( physDev->mh );
462
463     physDev->mh = NULL;  /* So it won't be deleted */
464     free_dc_ptr( dc );
465     return hmf;
466 }
467
468
469 /******************************************************************
470  *         MFDRV_WriteRecord
471  *
472  * Warning: this function can change the pointer to the metafile header.
473  */
474 BOOL MFDRV_WriteRecord( PHYSDEV dev, METARECORD *mr, DWORD rlen)
475 {
476     DWORD len, size;
477     METAHEADER *mh;
478     METAFILEDRV_PDEVICE *physDev = (METAFILEDRV_PDEVICE *)dev;
479
480     switch(physDev->mh->mtType)
481     {
482     case METAFILE_MEMORY:
483         len = physDev->mh->mtSize * 2 + rlen;
484         /* reallocate memory if needed */
485         size = HeapSize( GetProcessHeap(), 0, physDev->mh );
486         if (len > size)
487         {
488             /*expand size*/
489             size += size / 2 + rlen;
490             mh = HeapReAlloc( GetProcessHeap(), 0, physDev->mh, size);
491             if (!mh) return FALSE;
492             physDev->mh = mh;
493             TRACE("Reallocated metafile: new size is %d\n",size);
494         }
495         memcpy((WORD *)physDev->mh + physDev->mh->mtSize, mr, rlen);
496         break;
497     case METAFILE_DISK:
498         TRACE("Writing record to disk\n");
499         if (!WriteFile(physDev->hFile, mr, rlen, NULL, NULL))
500             return FALSE;
501         break;
502     default:
503         ERR("Unknown metafile type %d\n", physDev->mh->mtType );
504         return FALSE;
505     }
506
507     physDev->mh->mtSize += rlen / 2;
508     physDev->mh->mtMaxRecord = max(physDev->mh->mtMaxRecord, rlen / 2);
509     return TRUE;
510 }
511
512
513 /******************************************************************
514  *         MFDRV_MetaParam0
515  */
516
517 BOOL MFDRV_MetaParam0(PHYSDEV dev, short func)
518 {
519     char buffer[8];
520     METARECORD *mr = (METARECORD *)&buffer;
521
522     mr->rdSize = 3;
523     mr->rdFunction = func;
524     return MFDRV_WriteRecord( dev, mr, mr->rdSize * 2);
525 }
526
527
528 /******************************************************************
529  *         MFDRV_MetaParam1
530  */
531 BOOL MFDRV_MetaParam1(PHYSDEV dev, short func, short param1)
532 {
533     char buffer[8];
534     METARECORD *mr = (METARECORD *)&buffer;
535     WORD *params = mr->rdParm;
536
537     mr->rdSize = 4;
538     mr->rdFunction = func;
539     params[0] = param1;
540     return MFDRV_WriteRecord( dev, mr, mr->rdSize * 2);
541 }
542
543
544 /******************************************************************
545  *         MFDRV_MetaParam2
546  */
547 BOOL MFDRV_MetaParam2(PHYSDEV dev, short func, short param1, short param2)
548 {
549     char buffer[10];
550     METARECORD *mr = (METARECORD *)&buffer;
551     WORD *params = mr->rdParm;
552
553     mr->rdSize = 5;
554     mr->rdFunction = func;
555     params[0] = param2;
556     params[1] = param1;
557     return MFDRV_WriteRecord( dev, mr, mr->rdSize * 2);
558 }
559
560
561 /******************************************************************
562  *         MFDRV_MetaParam4
563  */
564
565 BOOL MFDRV_MetaParam4(PHYSDEV dev, short func, short param1, short param2,
566                       short param3, short param4)
567 {
568     char buffer[14];
569     METARECORD *mr = (METARECORD *)&buffer;
570     WORD *params = mr->rdParm;
571
572     mr->rdSize = 7;
573     mr->rdFunction = func;
574     params[0] = param4;
575     params[1] = param3;
576     params[2] = param2;
577     params[3] = param1;
578     return MFDRV_WriteRecord( dev, mr, mr->rdSize * 2);
579 }
580
581
582 /******************************************************************
583  *         MFDRV_MetaParam6
584  */
585
586 BOOL MFDRV_MetaParam6(PHYSDEV dev, short func, short param1, short param2,
587                       short param3, short param4, short param5, short param6)
588 {
589     char buffer[18];
590     METARECORD *mr = (METARECORD *)&buffer;
591     WORD *params = mr->rdParm;
592
593     mr->rdSize = 9;
594     mr->rdFunction = func;
595     params[0] = param6;
596     params[1] = param5;
597     params[2] = param4;
598     params[3] = param3;
599     params[4] = param2;
600     params[5] = param1;
601     return MFDRV_WriteRecord( dev, mr, mr->rdSize * 2);
602 }
603
604
605 /******************************************************************
606  *         MFDRV_MetaParam8
607  */
608 BOOL MFDRV_MetaParam8(PHYSDEV dev, short func, short param1, short param2,
609                       short param3, short param4, short param5,
610                       short param6, short param7, short param8)
611 {
612     char buffer[22];
613     METARECORD *mr = (METARECORD *)&buffer;
614     WORD *params = mr->rdParm;
615
616     mr->rdSize = 11;
617     mr->rdFunction = func;
618     params[0] = param8;
619     params[1] = param7;
620     params[2] = param6;
621     params[3] = param5;
622     params[4] = param4;
623     params[5] = param3;
624     params[6] = param2;
625     params[7] = param1;
626     return MFDRV_WriteRecord( dev, mr, mr->rdSize * 2);
627 }