*** gl2ps.c	2005-04-29 14:33:33.000000000 +0300
--- gl2ps.c~	2005-04-27 22:05:06.000000000 +0300
***************
*** 2421,2438 ****
                "/SCR{ FC moveto SW neg SH -2 div rmoveto show } BD\n"
                "/STL{ FC moveto 0 SH neg rmoveto show } BD\n"
                "/STC{ FC moveto SW -2 div SH neg rmoveto show } BD\n"
!               "/STR{ FC moveto SW neg SH neg rmoveto show } BD\n"
! 	      /* rotated text routines -- same anem with R appended*/
! 	      "/FCT {FC translate 0 0 } BD\n"
!               "/SR { gsave FCT moveto rotate show grestore } BD\n"  
!               "/SBCR{ gsave FCT moveto SW -2 div 0 rmoveto rotate show grestore } BD\n"
!               "/SBRR{ gsave FCT moveto SW neg 0 rmoveto rotate show grestore } BD\n"
!               "/SCLR{ gsave FCT moveto 0 SH -2 div rmoveto rotate show grestore} BD\n"
!               "/SCCR{ gsave FCT moveto SW -2 div SH -2 div rmoveto rotate show grestore} BD\n"
!               "/SCRR{ gsave FCT moveto SW neg SH -2 div rmoveto rotate show grestore} BD\n"
!               "/STLR{ gsave FCT moveto 0 SH neg rmoveto rotate show grestore } BD\n"
!               "/STCR{ gsave FCT moveto SW -2 div SH neg rmoveto rotate show grestore } BD\n"
!               "/STRR{ gsave FCT moveto SW neg SH neg rmoveto rotate show grestore } BD\n");
  
    gl2psPrintf("/P  { newpath 0.0 360.0 arc closepath fill } BD\n"
                "/L  { newpath moveto lineto stroke } BD\n"
--- 2421,2427 ----
                "/SCR{ FC moveto SW neg SH -2 div rmoveto show } BD\n"
                "/STL{ FC moveto 0 SH neg rmoveto show } BD\n"
                "/STC{ FC moveto SW -2 div SH neg rmoveto show } BD\n"
!               "/STR{ FC moveto SW neg SH neg rmoveto show } BD\n");
  
    gl2psPrintf("/P  { newpath 0.0 360.0 arc closepath fill } BD\n"
                "/L  { newpath moveto lineto stroke } BD\n"
***************
*** 2661,2698 ****
      break;
    case GL2PS_TEXT :
      gl2psPrintPostScriptColor(prim->verts[0].rgba);
!     gl2psPrintf("(%s) %g %g %g %d /%s ",
!                 prim->data.text->str, prim->data.text->angle , prim->verts[0].xyz[0], prim->verts[0].xyz[1],
                  prim->data.text->fontsize, prim->data.text->fontname);
  
      switch(prim->data.text->alignment){
      case GL2PS_TEXT_C:
!       gl2psPrintf("SCCR\n");
        break;
      case GL2PS_TEXT_CL:
!       gl2psPrintf("SCLR\n");
        break;
      case GL2PS_TEXT_CR:
!       gl2psPrintf("SCRR\n");
        break;
      case GL2PS_TEXT_B:
!       gl2psPrintf("SBCR\n");
        break;
      case GL2PS_TEXT_BR:
!       gl2psPrintf("SBRR\n");
        break;
      case GL2PS_TEXT_T:
!       gl2psPrintf("STCR\n");
        break;
      case GL2PS_TEXT_TL:
!       gl2psPrintf("STLR\n");
        break;
      case GL2PS_TEXT_TR:
!       gl2psPrintf("STRR\n");
        break;
      case GL2PS_TEXT_BL:
      default:
!       gl2psPrintf("SR\n");
        break;
      }
      break;
--- 2650,2687 ----
      break;
    case GL2PS_TEXT :
      gl2psPrintPostScriptColor(prim->verts[0].rgba);
!     gl2psPrintf("(%s) %g %g %d /%s ",
!                 prim->data.text->str, prim->verts[0].xyz[0], prim->verts[0].xyz[1],
                  prim->data.text->fontsize, prim->data.text->fontname);
  
      switch(prim->data.text->alignment){
      case GL2PS_TEXT_C:
!       gl2psPrintf("SCC\n");
        break;
      case GL2PS_TEXT_CL:
!       gl2psPrintf("SCL\n");
        break;
      case GL2PS_TEXT_CR:
!       gl2psPrintf("SCR\n");
        break;
      case GL2PS_TEXT_B:
!       gl2psPrintf("SBC\n");
        break;
      case GL2PS_TEXT_BR:
!       gl2psPrintf("SBR\n");
        break;
      case GL2PS_TEXT_T:
!       gl2psPrintf("STC\n");
        break;
      case GL2PS_TEXT_TL:
!       gl2psPrintf("STL\n");
        break;
      case GL2PS_TEXT_TR:
!       gl2psPrintf("STR\n");
        break;
      case GL2PS_TEXT_BL:
      default:
!       gl2psPrintf("S\n");
        break;
      }
      break;