SetDirectory["/home/adakkak/class/REU/mathlink/mandelbrotMathlink"];

link = Install["mandelbrotMathlink"];
ConnectToServer[9093, "130.126.108.215"];
ImageWidth = 100; ImageHeight = 100; Smoothness=4;
SetEnvironmentVariables[ImageWidth, ImageHeight, Smoothness];

mb = GetNewFrame[ ];
ArrayPlot[Partition[Partition[mb,4],ImageWidth]]

ZoomIn[ ];

ZoomOut[ ];

MoveLeft[ ];

MoveRight[ ];

MoveUp[ ];

MoveDown[ ];

SendRequestToTerminate[];