7.5.1 StrListInit



  \begin{texgraph}[name=StrListInit,export=pgf]
   view(-2,2,-2,2), Marges(0,0,0,0), size(7.5),
   StrListInit( name, -1,"$A$","O", i,"$B$","N",
                1,"$C$","E", -i,"$D$","S"),
   for k from 1 to name(0) step 3 do
       LabelDot( Eval(@name(k)), @name(k+1), @name(k+2), 1)
   od,
   StrListKill(name)
  \end{texgraph}

 PIC



StrListInit Usage

Another solution is to do three lists: name, position, orientation:

 view(-2,2,-2,2), Marges(0,0,0,0), size(7.5),  
 StrListInit( name, "$A$", "$B$", "$C$", "$D$"),  
 StrListInit(orientation, "O", "N", "E", "S"),  
 position:=[-1, i, 1, -i],  
 for k from 1 to name(0) do  
     LabelDot( position[k], @name(k), @orientation(k), 1)  
 od,  
 StrListKill(name, orientation)