Changeset 5610 for trunk/Ohana/src/kapa/graph/DrawRotString.c

Timestamp:

Nov 27, 2005, 4:14:38 PM (21 years ago)

Author:

eugene

Message:

added bDrawFunctions to create PNG / PPM images

File:

• trunk/Ohana/src/kapa/graph/DrawRotString.c (modified) (2 diffs)

trunk/Ohana/src/kapa/graph/DrawRotString.c

@@ -2 +2 @@
 # include "alphabet.h"
 
-# define NROT 256
 # define XPROC(x,y) (scale*(cs*((x) - x0) - sn*((y) - y0)) + X0)
 # define YPROC(x,y) (scale*(cs*((y) - y0) + sn*((x) - x0)) + Y0)
@@ -213 +212 @@
   return (TRUE);
 }
-
-void InitRotFonts () {
-
-  int i, Nhardwired;
-
-  Nhardwired = sizeof (HardwiredFonts) / sizeof (FontSet);
-  
-  Nallfonts = Nhardwired;
-  ALLOCATE (AllFonts, FontSet, Nallfonts);
-  
-  for (i = 0; i < Nhardwired; i++) {
-    AllFonts[i] = HardwiredFonts[i];
-  }
-
-  activefont = AllFonts[DEFFONT].font;
-  activescale = 1.0;
-  strcpy (currentname, AllFonts[DEFFONT].name);
-  currentsize = AllFonts[DEFFONT].size;
-}
-
-int SetRotFont (char *name, int size) {
-  
-  int i, nsize, msize, bsize, bigger, dsize, match, good;
-
-  bigger = good = match = -1;
-  dsize = 10000;
-  bsize = 10000;
-  for (i = 0; i < Nallfonts; i++) {
-    if (!strcasecmp (AllFonts[i].name, name)) {
-      good = i;
-      nsize = abs (AllFonts[i].size - size);
-      if (nsize < dsize) {
-        match = i;
-        dsize = nsize;
-      }
-      msize = AllFonts[i].size - size;
-      if ((msize < bsize) && (msize >= 0)) {
-        bigger = i;
-        bsize = msize;
-      }
-    }
-  }
-  
-  if ((match == -1) && (good != -1)) match = good;
-  if (bigger != -1) match = bigger;
-  if (match != -1) {
-    activefont = AllFonts[match].font;
-    activescale = (double) size / AllFonts[match].size;
-    currentsize = size;
-    strcpy (currentname, name);
-    return (TRUE);
-  } else {
-    fprintf (stderr, "no matching font\n");
-    return (FALSE);
-  }
-
-}
-  
-char *GetRotFont (int *size) {
-
-  *size = currentsize;
-  return (currentname);
-
-}
-
-int RotStrlen (char *c) {
-
-  int i, N, dX, code;
-  double scale; 
-  
-  scale = activescale;
-
-  /* find string length */
-  dX = 0;
-
-  code = FALSE;
-  for (i = 0; i < strlen (c); i++) {
-    N = (int)(c[i]);
-    /* skip non-printing characters */
-    if ((N < 0) || (N >= NROT)) continue;
-
-    /* check for special characters */
-    if (!code) {
-      if (N == 94) { /* super-script */
-        scale *= 0.8;
-        continue;
-      }
-      if (N == 95) { /* sub-script */
-        scale *= 0.8;
-        continue;
-      }
-      if (N == 124) { /* normal-script */
-        scale = activescale;
-        continue;
-      }
-      if (N == 92) { /* backslash */
-        code = TRUE;
-        continue;
-      } 
-      if (N == 38) { /* font-code */
-        i++;
-        continue;
-      }
-    }
-    code = FALSE;
-    dX += scale*activefont[N].dx + 1;
-  }
-  return (dX);
-}
-
-/* writes commands to print string at location and angle using
-   currently set font and size */
-void PSRotText (FILE *f, int x, int y, char *string, int pos, double angle) {
-
-  char *c, *segment, basefont[64];
-  int i, N, code;
-  int dX, dY, Xoff, Yoff, X, Y, Nseg, NSEG, YoffBase;
-  double cs, sn, fscale;
-  int basesize;
-    
-  /* strip off leading whitespace */
-  for (c = string; (*c == ' ') || (*c == '\t'); c++);
-  if (*c == 0) return;
-  
-  /* compute string length */
-  /* PS fonts are somewhat different scales from bitmap font equivalents */
-  fscale = 1.0;
-  if (!strcmp (currentname, "times")) fscale = 1.07;
-  if (!strcmp (currentname, "courier")) fscale = 1.5;
-  if (!strcmp (currentname, "helvetica")) fscale = 0.9;
-  if (!strcmp (currentname, "symbol")) fscale = 1.2;
-  dX = fscale*RotStrlen (c);
-  dY = activefont[65].ascent;
-  
-  /* apply appropriate offset */
-  Xoff = Yoff = 0;
-  switch (pos) {
-  case 0: Xoff =     -dX; Yoff = -dY; break;
-  case 1: Xoff = -0.5*dX; Yoff = -dY; break;
-  case 2: Xoff =       0; Yoff = -dY; break;
-  case 3: Xoff =     -dX; Yoff = -0.5*dY; break;
-  case 4: Xoff = -0.5*dX; Yoff = -0.5*dY; break;
-  case 5: Xoff =       0; Yoff = -0.5*dY; break;
-  case 6: Xoff =     -dX; Yoff = 0; break;
-  case 7: Xoff = -0.5*dX; Yoff = 0; break;
-  case 8: Xoff =       0; Yoff = 0; break;
-  }
-  cs = cos(angle*RAD_DEG);
-  sn = sin(angle*RAD_DEG);
-  X = x + Xoff*cs + Yoff*sn;
-  Y = y - Xoff*sn + Yoff*cs;
-
-  basesize = currentsize;
-  strcpy (basefont, currentname);
-
-  PSSetFont (f, currentsize);
-  fprintf (f, "gsave\n");
-  fprintf (f, " %d %d moveto %f rotate\n", X, Y, -angle);
-
-  Nseg = 0;
-  NSEG = strlen(c) + 2;
-  ALLOCATE (segment, char, NSEG);
-  bzero (segment, NSEG);
-
-  code = FALSE;
-  YoffBase = 0;
-  /* accumulate string segments with common state */
-  for (i = 0; i < strlen (c); i++) {
-    N = (int)(c[i]);
-    if ((N < 0) || (N >= NROT)) continue;
-
-    /* check for special characters */
-    if (!code) {
-      /* superscript character (^) */
-      if (N == 94) {
-        PSDumpRotSegment (f, segment, &Nseg);
-        SetRotFont (currentname, (int)(0.8*currentsize));
-        Yoff = 0.75*activescale*dY;
-        fprintf (f, "0 %d rmoveto\n", Yoff);
-        YoffBase += Yoff;
-        PSSetFont (f, currentsize);
-        continue;
-      }
-      /* subscript character (_) */
-      if (N == 95) { 
-        PSDumpRotSegment (f, segment, &Nseg);
-        SetRotFont (currentname, (int)(0.8*currentsize));
-        Yoff = -0.5*activescale*dY;
-        fprintf (f, "0 %d rmoveto\n", Yoff);
-        YoffBase += Yoff;
-        PSSetFont (f, currentsize);
-        continue;
-      }
-      /* end super/sub script (|) */
-      if (N == 124) {
-        PSDumpRotSegment (f, segment, &Nseg);
-        SetRotFont (currentname, basesize);
-        fprintf (f, "0 %d rmoveto\n", -YoffBase);
-        YoffBase = 0;
-        PSSetFont (f, currentsize);
-        continue;
-      }
-      /* escape char (\) */
-      if (N == 92) {
-        code = TRUE;
-        continue;
-      } 
-      /* begin paren (insert \) */
-      if (N == 40) {
-        code = FALSE;
-        segment[Nseg] = 92;
-        Nseg ++;
-        CHECK_REALLOCATE (segment, char, NSEG, Nseg, 64);
-      }
-      /* end paren (insert \) */
-      if (N == 41) {
-        code = FALSE;
-        segment[Nseg] = 92;
-        Nseg ++;
-        CHECK_REALLOCATE (segment, char, NSEG, Nseg, 64);
-      }
-      /* font change character (&) */
-      if (N == 38) {
-        PSDumpRotSegment (f, segment, &Nseg);
-        if (c[i+1] == 'h') {
-          SetRotFont ("helvetica", currentsize);
-          PSSetFont (f, currentsize);
-        }
-        if (c[i+1] == 't') {
-          SetRotFont ("times", currentsize);
-          PSSetFont (f, currentsize);
-        }
-        if (c[i+1] == 'c') {
-          SetRotFont ("courier", currentsize);
-          PSSetFont (f, currentsize);
-        }
-        if (c[i+1] == 's') {
-          SetRotFont ("symbol", currentsize);
-          PSSetFont (f, currentsize);
-        }
-        i++;
-        continue;
-      }
-    }
-    code = FALSE;
-    segment[Nseg] = N;
-    Nseg ++;
-    CHECK_REALLOCATE (segment, char, NSEG, Nseg, 64);
-  }
-  PSDumpRotSegment (f, segment, &Nseg);
-  fprintf (f, "stroke grestore\n");
-  free (segment);
-  SetRotFont (basefont, basesize);
-}
-
-void PSDumpRotSegment (FILE *f, char *segment, int *Nseg) {
-  segment[*Nseg] = 0;
-  fprintf (f, "(%s) show\n", segment);
-  bzero (segment, *Nseg);
-  *Nseg = 0;
-}
-
-void PSSetFont (FILE *f, int size) {
-  if (!strcmp (currentname, "times")) 
-    fprintf (f, "/Times-Roman findfont %d scalefont setfont\n", size);
-  if (!strcmp (currentname, "helvetica")) 
-    fprintf (f, "/Helvetica findfont %d scalefont setfont\n", size);
-  if (!strcmp (currentname, "courier")) 
-    fprintf (f, "/Courier findfont %d scalefont setfont\n", size);
-  if (!strcmp (currentname, "symbol")) 
-    fprintf (f, "/Symbol findfont %d scalefont setfont\n", size);
-}
-
-
-
-  /* test cross hair
-  fprintf (f, "%d %d %d %d L\n", x-10, y, x+10, y);
-  fprintf (f, "%d %d %d %d L\n", x, y-10, x, y+10);
-  */