fmpfunctions/char.arrows.fmfn at master · petrowsky/fmpfunctions · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
/*
 * =====================================================
 * char.arrows ( direction )
 *
 * RETURNS:        (string) Unicode arrow character
 * PARAMS:         direction = (enum) up, down, left, right
 * DEPENDENCIES:   none
 * AUTHOR:         Matt Petrowsky
 * NOTES:
 * =====================================================
*/

Let ( [
  var.direction = Left ( direction ; 1 );
  var.arrow = Case (
                  var.direction = "u"; char ( 9650 ); //"▲";
                  var.direction = "d"; char ( 9660 ); //"▼";
                  var.direction = "l"; char ( 9664 ); //"◀";
                  var.direction = "r"; char ( 9654 ); //"▶";
                )
];
  // Result
  TextFont ( var.arrow ; If ( Get( SystemPlatform ) = -2 ; "Arial" ; "Apple Symbol Regular" ) )

)