<pre>on centerDessin  put rectDessin() into theRect  set itemDelimiter to comma  put item 1 of theRect into x1  put item 2 of theRect into y1  put item 3 of theRect into x2  put item 4 of theRect into y2  ---  put x2-x1 into theWidth  put y2-y1 into theHeight  put x1 + theWidth div 2 & "," & y1 + theHeight div 2 into theCenter  ---  choose select tool  drag from x1,y1 to x2,y2        -- select dessin  drag from theCenter to 256,171  -- move dessin  choose browse tool  beep 3end centerDessin</pre>