! Transform functions are extended to complex numbers.
OPTION ARITHMETIC COMPLEX
PICTURE D(n)
   IF n=20 THEN      
      PLOT POINTS: 0,0
   ELSE
      DRAW D(n+1) WITH SCALE(a)
      DRAW D(n+1) WITH SHIFT(-1)*SCALE(a)*SHIFT(1)
   END IF
END PICTURE
LET a=(1+SQR(-1))/2
SET WINDOW -1/2,3/2,-1,1
DRAW axes
SET POINT STYLE 1
DRAW D(1)
END


