OPTION ARITHMETIC COMPLEX               !複素数モードに設定

SET WINDOW -2,2,-1,3

DRAW grid

SET LINE STYLE 1

SET LINE COLOR 1

PLOT LINES: 0,0 ; 1,0 ; 1,1 ; 0,1; 0,0  !元の図形

SET POINT STYLE 3

Do

   MOUSE POLL x,y,left,right

   if right=1 then exit do              !マウス右ボタンクリックで終了

   if left=1 then

      SET POINT COLOR 1

      PLOT POINTS: x , y

      LET z=COMPLEX(x,y)                !複素数用の関数

      LET w=z^2                         !変換する関数の定義

      SET POINT COLOR 4

      PLOT POINTS: Re(w),Im(w)          !変換後の点の描画

   end if

Loop

END