#!/bin/sh

[ ! "${w}" ] && exit
[ ! "${h}" ] && exit
[ ! "${mar}" ] && exit

xinc="$( echo "5 k ${w} ${mar} - ${mar} - 45 / p q" | dc )"; export xinc
xincn="$( echo "0 k ${xinc} 1 / p q" | dc )"; export xincn
x="$( echo "5 k ${xinc} 2 / ${mar} + p q" | dc )"; export x
x="$( echo "5 k ${x} 5 + p q" | dc )"; export x
xn="$( echo "0 k ${x} 1 / p q" | dc )"; export xn
xmax="$( echo "0 k ${w} ${mar} - p q" | dc )"; export xmax
while [ ${xn} -lt ${xmax} ]
do
x="$( echo "5 k ${x} ${xinc} + p q" | dc )"
xn="$( echo "0 k ${xn} ${xincn} + p q" | dc )"; export xn

yinc="$( echo "5 k ${h} ${mar} - ${mar} - 45 / p q" | dc )"; export yinc
yincn="$( echo "0 k ${yinc} 1 / p q" | dc )"; export yincn
y="$( echo "5 k ${yinc} 2 / ${mar} + p q" | dc )"; export y
y="$( echo "5 k ${y} 10 + p q" | dc )"; export y
yn="$( echo "0 k ${y} 1 / p q" | dc )"; export yn
ymax="$( echo "0 k ${h} ${mar} - p q" | dc )"; export ymax
while [ ${yn} -lt ${ymax} ]
do
echo "getpixel ${xn},${yn}"
y="$( echo "5 k ${y} ${yinc} + p q" | dc )"
yn="$( echo "0 k ${yn} ${yincn} + p q" | dc )"; export yn
done
done