Index: scripts/d.out.file/d.out.file
===================================================================
--- scripts/d.out.file/d.out.file	(revision 29816)
+++ scripts/d.out.file/d.out.file	(working copy)
@@ -319,6 +319,21 @@
 
 d.mon start=$GRAPHICS_DRIVER --quiet
 eval "$dsave"
+
+# create world file
+eval `d.info -g`
+RES=`echo $nsres | awk '{printf "%.15f\n", $1}'`
+HALFRES=`echo $nsres | awk '{printf "%f\n", $1/2.}'`
+WEST=`echo $w $HALFRES | awk '{printf "%.15f\n", $1 + $2}'`
+NORTH=`echo $n $HALFRES | awk '{printf "%.15f", $1 - $2}'`
+
+echo "                 $RES" > "${GIS_OPT_OUTPUT}".wld
+echo "                   0.000000000000000" >> "${GIS_OPT_OUTPUT}".wld
+echo "                   0.000000000000000" >> "${GIS_OPT_OUTPUT}".wld
+echo "                -$RES" >> "${GIS_OPT_OUTPUT}".wld
+echo "              $WEST"   >> "${GIS_OPT_OUTPUT}".wld
+echo "              $NORTH"  >> "${GIS_OPT_OUTPUT}".wld
+
 d.mon stop=$GRAPHICS_DRIVER --quiet
 ################################