Make my own legend

tony_cooper1

I am creating a legend to show markers - currently it is trying (and failing) to repeat the legend built in, but I would like to extend it later.

The key line i the script is:

txtii=char(M1[ii,2])||" "||NmNow||" = "||char(M1[ii,1]);

This might put "8  C = -1" into text. I want it to be the 'marker of(8)' the symbol 'o' or whatever the marker state is. I believe these are unicode, so I think I just need to parse it correctly. Thanks for any ideas.

GetMarker=Expr(

  mb1=mb << Get();

  Mleg=dt << marker by column(column(nm[mb1]));

  markernow=J(n row(dm),1,0);

  For(ii=1, ii<= n row(dm), ii++,

  markernow[ii] = Marker Of( Row State( ii ) );

  );

  Colnow=dt << get as matrix(column(nm[mb1]));

  markerNow=ColNow||markerNow;

  markerNow=markerNow[Rank(Colnow),0]||J(n row(markerNow),1,0);

  markerNow[1,3]=1;

  For(ii=2, ii<= n row(markerNow), ii++,

  If(markerNow[ii,1]==markerNow[ii-1,1], markerNow[ii,3] = 0,markerNow[ii,3] = 1);

  );

  M1=markerNow[Loc(ColorNow[0,3]),1::2];

  NmNow=nm[mb1];

  // show(NmNow, colornow, C1);

  Try(mTxtBx << delete);

  For(ii=1, ii<= n row(M1), ii++,

  txtii=char(M1[ii,2])||" "||NmNow||" = "||char(M1[ii,1]);

  mTxtBx[ii]=Text Box(txtii);

  mbp << append(mTxtBx[ii]);

  );

);

ms

I do not think the 32 built-in symbols are unicode. But internally they seem to occupy the first 32 unicode characters, i.e. the non-printable ones. Try e.g. mval=43 and you will get a plus-sign, however not identical to the JMP symbol.

One idea: use a unicode table (like the one below) to mark the rows that best match the first 32 rows and put the them into an associative array that can be used in your script to translate Marker State to unicode symbols. (tip: many geometrical symbols from hex 2500)

New Table("markers galore", Add Rows(10260), New Column("Marker", Row State, "Row State", Formula(Marker State(Row()))), New Column("hex unicode", Character, "Nominal", Formula(Right(Hex(Row(), "integer"), 4))));