Picture and Input

[DrD]

There are several ways. Here is one way using reserved variables M1 and X. (Your input is through the editmat(M1) function):

Code:


EXPORT kor()
BEGIN

EDITMAT(M1);  // You can expand the matrix M1, or use separate matrices for "Y" and "Z"
RECT_P();

//Linie und Pfeil in x-Richtung
FOR X FROM 1 TO rowDim(M1) DO
  LINE_P(M1(X,1),M1(X,2),M1(X,3),M1(X,4),RGB(0,255,0));
END;

//LINE_P(40,59,79,59,RGB(0,255,0));
//LINE_P(40,60,80,60,RGB(0,255,0));
//LINE_P(40,61,79,61,RGB(0,255,0));
//LINE_P(80,60,73,57,RGB(0,255,0));
//LINE_P(80,60,73,63,RGB(0,255,0));

Textout_P("X",85,55,2);

//Linie und Pfeil in y-Ricjhtung
LINE_P(39,60,39,21,RGB(255,0,0));
LINE_P(40,60,40,20,RGB(255,0,0));
LINE_P(41,60,41,21,RGB(255,0,0));
LINE_P(40,20,37,26,RGB(255,0,0));
LINE_P(40,20,43,26,RGB(255,0,0));
Textout_P("Y",37,5,2);

//Linie und Pfeil in z-Richtung
LINE_P(39,60,20,79,RGB(0,0,255));
LINE_P(40,60,20,80,RGB(0,0,255));
LINE_P(41,60,21,80,RGB(0,0,255));
LINE_P(20,80,22,73,RGB(0,0,255));
LINE_P(20,80,27,77,RGB(0,0,255));
Textout_P("Z",10,85,2);
FREEZE;
END;