home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 5 Edit / 05-Edit.zip / xfedor.zip / XFree86 / src / xfedor / tr_font.c < prev    next >
C/C++ Source or Header  |  1999-03-02  |  14KB  |  523 lines
  1. /* Copyright 1989 GROUPE BULL -- See licence conditions in file COPYRIGHT */
  2. #include <stdio.h>
  3. #include "clientimage.h"  /* pour fedor.h et VID  */
  4. #include "couche.h"      /*  CURS2 , myEvent */
  5. #include "sos.h"      /* FONT .. */
  6. #include "fedor.h"      /* fedchar .. MAXFONTCARD */
  7.  
  8. extern nf_mono ;
  9. extern fedchar cartrav ;    /* depuis tr_edit */
  10. extern int Baseliney,Xleft ;    /* depuis tr_edit */
  11. extern int BackColor ;
  12.  
  13. void Init_font();
  14. void ShowDoIt() ;
  15. int FontMax_Resize() ;
  16. int New_Resol() ;
  17. void Autom_font();
  18. static void Aff_mode() ;
  19. static void Aff_first();
  20. static void Aff_last();
  21.  
  22. int nf_font ;   /* NUMERO DE LA FENETRE FONTE */      
  23.  
  24. fedchar chartab[MAXFONTCARD];    /* pour filer GetFont */
  25.  
  26. int maxup, maxdown, maxhsize,  maxhincr, maxhadj ;
  27. char codemaxup, codemaxdown, codemaxhsize, codemaxhincr, codemaxhadj ;
  28.  
  29. int First, Last ;    /* pour otherfont */
  30. int Prem ;
  31.  
  32.     /*------------ reste du LOCAL */
  33.  
  34. #define HMENU 22
  35.  
  36. #include "font.h"
  37.  
  38. #define WHELP 45
  39. #define WASCII (WHELP+(2*WITEM-WHELP)/2)
  40.  
  41. #define WITEM (WFONT / 9) 
  42. /* pourquoi 9 : 
  43.    |SOS| ASCII 48 a | Command : ITALIC | First : 12 | Last : 100 | DOIT | 
  44.         1     2          3        4       5       6     7     8     9
  45.  */
  46.  
  47. #define putget 0
  48. #define kill 1
  49. #define anim 2         /* pour le switch de DoIt() */
  50. #define bold 3
  51. #define slant 4
  52. #define scale 5
  53.  
  54.  
  55. static int lifton = 0 ;     /* flag ascenseur en cours */
  56.  
  57. static int Dern  ;
  58.  
  59. static int Resol ;     /* 16,32,64,ou 128 : donne la taille de 
  60.             la fenetre fonte. est modifie par ShowFont ou Put */
  61. static codeputget ;    /* code du dernier car select */
  62.  
  63. static int codecour, codeprec ;/* avec codeputget global, permettent la 
  64.                  gestion du tracking code ascii */
  65. static hfont ;    /* hauteur fenetre */
  66.  
  67. #define XFONT 0
  68. #define YFONT (10+514+10)
  69.  
  70. static int zfont,zhelp,zleft,zright,zlift,
  71.     zascii,zmode,zfirst,zlast,zdoit ; /* id des zones crees */
  72.  
  73. static int Mode ;    /* modifie par le popup */
  74. static int idmode ;
  75. static char * choixmode[]= {"Put/Get","Kill","Animate","Bold",
  76.                 "Slant","Scale",0};
  77. static int idanim ;
  78. static char * choixanim[]= {"Slow","Normal","Quick",0};
  79.  
  80.  
  81.  
  82. /************************* procedure INIT_FONT ***************************/
  83. /* Procedure d'initialisation du module  */
  84. /* la fenetre est cree sans sa zone fonte (ou ya les chars) */
  85.  
  86. void Init_font () 
  87.  
  88. { 
  89.   int i ;
  90.  
  91.     nf_font = w_ouvrir(nf_mono,XFONT,YFONT,WFONT,HFONTMAX,
  92.               "XFEDOR : Font Window",CURS2,
  93.               EnterZone|ButtonPressed|ButtonReleased|
  94.               MoveMouse|LeaveZone,WMON) ;
  95.  
  96.     zascii = w_crzon(nf_font,WHELP,0,2*WITEM,HMENU,CURS2);
  97.     zmode = w_crzon(nf_font,2*WITEM,0,4*WITEM,HMENU,CURS2);
  98.     zfirst = w_crzon(nf_font,4*WITEM,0,6*WITEM,HMENU,CURS2);
  99.     zlast = w_crzon(nf_font,6*WITEM,0,8*WITEM,HMENU,CURS2);
  100.     zdoit = w_crzon(nf_font,8*WITEM,0,WFONT,HMENU,CURS2);
  101.  
  102.     zhelp = w_crzon(nf_font,0,0,WHELP,HMENU,CURS2);
  103.     
  104.     zleft = w_crzon(nf_font,0,HMENU,WSCROLL,HFONT,CURS2);
  105.     zlift = w_crzon(nf_font,WSCROLL,HMENU,WFONT-WSCROLL,HFONT,CURS2);
  106.     zright = w_crzon(nf_font,WFONT-WSCROLL,HMENU,WFONT,HFONT,CURS2);
  107.  
  108.     zfont =  w_crzon(nf_font,0,HFONT,WFONT,HFONTMAX,CURS1);
  109.  
  110.     Mode = putget ;
  111.     First = 0 ; Last = MAXFONTCARD ;
  112.     Prem = 64 ;
  113.  
  114.     for (i=0 ; i<MAXFONTCARD; i++) {
  115.       chartab[i].hsize = 0 ;
  116.     }
  117.  
  118.     w_montrer(nf_font) ;
  119.  
  120.     idmode = MenuCreat(choixmode);
  121.     idanim = MenuCreat(choixanim);
  122. }
  123.  
  124. static Reaffich(pev)
  125.     myEvent * pev ;
  126.  
  127. {      int code, code1, code2 ;
  128.  
  129.     if (pev->window == nf_font) {
  130.  
  131.      w_centrer(nf_font,"Ascii ",WHELP,0,WASCII,HMENU);
  132.      w_centrer(nf_font,"Command :",2*WITEM,0,3*WITEM,HMENU);
  133.      w_centrer(nf_font,"First :",4*WITEM,0,5*WITEM,HMENU);
  134.      w_centrer(nf_font,"Last :",6*WITEM,0,7*WITEM,HMENU);
  135.      w_centrer(nf_font,"DO IT",8*WITEM,0,WFONT,HMENU);
  136.      
  137.      w_line(nf_font,WHELP,0,WHELP,HMENU,ON);
  138.      w_centrer(nf_font,"SOS",0,0,WHELP,HMENU);
  139.  
  140.      w_line(nf_font,2*WITEM,0,2*WITEM,HMENU,ON);
  141.      w_line(nf_font,4*WITEM,0,4*WITEM,HMENU,ON);
  142.      w_line(nf_font,6*WITEM,0,6*WITEM,HMENU,ON);
  143.       w_line(nf_font,8*WITEM,0,8*WITEM,HMENU,ON); 
  144.                     /* barre vertic menu */
  145.  
  146.          w_line(nf_font,0,HMENU,WFONT,HMENU,ON);     
  147.                     /* barre horiz sous menu */
  148.      w_line(nf_font,WSCROLL,HMENU,WSCROLL,HFONT,ON);
  149.                         /* vertic zone left */
  150.      w_line(nf_font,WFONT-WSCROLL,HMENU,WFONT-WSCROLL,HFONT,ON);
  151.                             /*right*/
  152.      ShowArrow(nf_font,HFONT) ;
  153.          
  154.      code1 = Prem + pev->x/Resol ;
  155.      code2 = Prem + (pev->x+pev->xz)/Resol ;
  156.      if ((pev->y+pev->yz) > HFONT)
  157.         for (code=code1; code<=code2; code++) 
  158.         ShowAChar(nf_font,chartab,code,Prem,Dern,
  159.                 Resol,HFONT,hfont,maxup);
  160.          ShowLift(nf_font,ON,Prem,Dern,HFONT) ;
  161.      Aff_mode() ;
  162.      Aff_first() ; 
  163.      Aff_last() ;
  164.     }
  165. }    
  166.  
  167. void ShowDoIt(First,Last)
  168.     int First, Last ;
  169. {    int res ;
  170.     int code ;
  171.  
  172.       res = FontMax_Resize() ;
  173.     /* res = 0 si il n'y a aucune modif de taille dans la police 
  174.        res = 1 si la resolution horizontale doit changer ou la hauteur
  175.                 diminue
  176.        res = 2 si la taille augmente (=> un expose genere) */
  177.     
  178.       if (res == 0) 
  179.       for (code=First; code<=Last; code++) 
  180.         ShowAChar(nf_font,chartab,code,Prem,Dern,
  181.                 Resol,HFONT,hfont,maxup);
  182.        else
  183.       if (res == 1) 
  184.      ShowAFont(nf_font,chartab,Prem,Dern,
  185.            Resol,HFONT,hfont,maxup) ;
  186. }
  187.    
  188. int FontMax_Resize()  
  189.  
  190. {
  191.     int code, res ;
  192.     static old_hfont, old_Resol=32 ;
  193.  
  194.     maxup = maxdown = maxhsize = maxhincr = maxhadj = 0 ;
  195.  
  196.     for (code=0; code < MAXFONTCARD;code++) 
  197.        if (chartab[code].hsize>0) {
  198.         if (chartab[code].up < maxup ) 
  199.             { maxup = chartab[code].up ;    /* up NEGATIF */
  200.               codemaxup = code ;}
  201.         if (chartab[code].down > maxdown ) 
  202.             { maxdown = chartab[code].down ;
  203.               codemaxdown = code ;}
  204.         if (chartab[code].hsize > maxhsize ) 
  205.             { maxhsize = chartab[code].hsize;
  206.               codemaxhsize = code ;}
  207.         if (chartab[code].hincr > maxhincr ) 
  208.             { maxhincr = chartab[code].hincr ;
  209.               codemaxhincr = code ;}
  210.         if (chartab[code].hadj > maxhadj ) 
  211.             { maxhadj = chartab[code].hadj ;
  212.               codemaxhadj = code ;}
  213.     }
  214.     Aff_max() ;
  215.  
  216.     hfont = (((maxdown-maxup)>0)?(maxdown-maxup):32) + 1;
  217.     Resol = New_Resol((maxhsize>0)?maxhsize:32);
  218.  
  219.      if (hfont == old_hfont) {
  220.         if (Resol == old_Resol) res = 0 ; 
  221.         else {
  222.             old_Resol = Resol ;
  223.             ShowLift(nf_font,OFF,Prem,Dern,HFONT) ;
  224.             res = 1 ;
  225.         }
  226.      } else {
  227.         w_resize(nf_font,WFONT,HFONT+hfont);
  228.         w_resize(nf_mono,
  229.              10+100+514+12+10+240+10,       /* Hack */
  230.              10+514+10+22+25+hfont);
  231.         if (hfont > old_hfont) res = 2 ; /* un expose genere */
  232.         else res = 1 ;      /* pas d'expose car bit_gravity */
  233.         old_hfont = hfont ;
  234.         old_Resol = Resol ;
  235.     }        
  236.     Dern = Prem + WFONT / Resol - 1 ;
  237.     return res ;
  238. }
  239.  
  240.  
  241. int New_Resol(val) 
  242.     int val ;
  243. /* rends la resolution entrainee par cette val : 16, 32, 64, 128 */
  244. {
  245.     if (val <= 16) return 16 ; else
  246.     if (val <= 32) return 32 ; else
  247.     if (val <= 64) return 64 ; else return 128 ;
  248. }
  249.  
  250. static PutToFont(code)
  251.     int code ;
  252. {
  253.  
  254.     if ((code < 0) || (code >= MAXFONTCARD)) return ;
  255.     if (chartab[code].hsize > 0 ) {
  256.         FontToGarb(&chartab[code]); 
  257.         Rast_Free(&chartab[code].image) ;
  258.     }
  259.     Rast_Init(&chartab[code].image,
  260.           cartrav.hsize,cartrav.down-cartrav.up,0); 
  261.                                           /* flag = 0 pour depth 1 */
  262.     Rast_Op_n1(cartrav.image,&chartab[code].image,
  263.             Xleft,Baseliney+cartrav.up,
  264.             0,0,
  265.             cartrav.hsize,cartrav.down-cartrav.up,
  266.                 VIDSTR,BackColor);
  267.     CopyCar(&cartrav,&chartab[code]);    /* metrique */
  268.     /* on veut tester si le nom du caractere est valable */
  269.     if (*chartab[code].name == '\0')    
  270.             if ((code <33) || (code >126))
  271.         sprintf(chartab[code].name,"C%d",code) ; else
  272.         sprintf(chartab[code].name,"%c",code) ;
  273.  
  274.     ShowDoIt(code,code);
  275.     codeputget = code ;
  276. }
  277.  
  278.  
  279. static Aff_code(code)
  280.     int code ;
  281. { char s[20] ;
  282.     if (code != -1) {
  283.         sprintf(s,"%d %c",code,code);
  284.         w_centrer(nf_font,s,WASCII,0,2*WITEM,HMENU);
  285.     } else w_centrer(nf_font,"",WASCII,0,2*WITEM,HMENU);
  286. }
  287.  
  288. static void Aff_mode() 
  289. /* affiche le champs Mode dans la fenetre */
  290. { 
  291.     w_centrer(nf_font,choixmode[Mode],3*WITEM,0,4*WITEM,HMENU);
  292. }
  293.  
  294. static void Aff_first()
  295. /* affiche la valeur du first : debut de traitement sur char */
  296. { char s[20] ;
  297.     sprintf(s,"%d",First);
  298.     w_centrer(nf_font,s,5*WITEM,0,6*WITEM,HMENU);
  299. }
  300.  
  301. static void Aff_last()
  302. /* affiche la valeur du Last : fin de traitement sur char */
  303. { char s[20] ;
  304.     sprintf(s,"%d",Last);
  305.     w_centrer(nf_font,s,7*WITEM,0,8*WITEM,HMENU);
  306. }
  307.  
  308.  
  309. static DoIt()
  310. /* First et Last sont connus.
  311.    Mode est connu. */
  312. {
  313.     int rep ;
  314.     static int delay = 0 ;
  315.     int numx,denx,numy,deny ;
  316.  
  317.     switch (Mode) {
  318.     case putget : 
  319.             First = 0 ;
  320.             Last = MAXFONTCARD-1 ;
  321.             Aff_first() ;
  322.             Aff_last();
  323.             break ;
  324.     case slant : Slant();
  325.               break ;    
  326.     case bold   : Bold();
  327.               break ;
  328.     case kill   : Kill(); 
  329.               break ;
  330.     case anim   : 
  331.         rep = MenuPop(idanim,choixanim) ;
  332.         if (w_nosaveunder()) 
  333.           { myEvent e ;
  334.             e.window = nf_font ;
  335.             e.x = WFONT - 2*WITEM ;
  336.             e.y = 0 ;
  337.             e.xz = 2*WITEM ;
  338.             e.yz = HFONTMAX ;
  339.             Reaffich(&e) ;        /* HACK OF THE SHAME */
  340.         }
  341.         switch(rep) {
  342.            case -1 : break ;
  343.            case 0 : delay = 50 ; break ;
  344.            case 1 : delay = 5 ; break ;
  345.            case 2 : delay = 0 ; break ;
  346.         }
  347.         Anim(delay) ;
  348.         break ;
  349.     case scale  : 
  350.       gd_askscale(&numx,&denx,&numy,&deny) ;
  351.       Scale(numx,denx,numy,deny);
  352.           break ;
  353.     default     : break ;
  354.     }
  355. }
  356.  
  357.          
  358.  
  359. static int Traiter_zone(evt)
  360. /* on a recu un click dans la zone */
  361.     myEvent * evt ;
  362. {
  363.     int i ;
  364.  
  365.     if ((evt->zone == zleft) && (evt->click == 1))
  366.         Scroll(nf_font,chartab,LEFT,&Prem,&Dern,
  367.                 Resol,HFONT,hfont,maxup) ; else
  368.     if ((evt->zone == zleft) && (evt->click == 2))
  369.         Scroll(nf_font,chartab,RIGHT,&Prem,&Dern,
  370.                 Resol,HFONT,hfont,maxup) ; else
  371.     if ((evt->zone == zright) && (evt->click == 1))
  372.         Scroll(nf_font,chartab,RIGHT,&Prem,&Dern,
  373.                 Resol,HFONT,hfont,maxup) ; else
  374.     if ((evt->zone == zright) && (evt->click == 2))
  375.         Scroll(nf_font,chartab,LEFT,&Prem,&Dern,
  376.                 Resol,HFONT,hfont,maxup) ; else
  377.     if (evt->zone==zhelp) Helping(FONT) ; else
  378.     if (evt->zone==zmode) {
  379.         i = MenuPop(idmode,choixmode) ; /* 1,2..6 */
  380.         if (i != -1) { 
  381.             Mode = i ;
  382.             Aff_mode();
  383.         }
  384.     } else
  385.     if (evt->zone==zfirst) {
  386.         gd_lireentier("Value for First ?",&First);
  387.         First = (First < 0)? 0 : First ;
  388.         First = (First > MAXFONTCARD)? MAXFONTCARD : First ;
  389.         Aff_first() ; 
  390.     } else
  391.     if (evt->zone==zlast) {
  392.         gd_lireentier("Value for Last ?",&Last);
  393.         Last = (Last < 0)? 0 : Last ;
  394.         Last = (Last > MAXFONTCARD)? MAXFONTCARD : Last ;
  395.         Aff_last() ;
  396.     } else        
  397.     if (evt->zone==zdoit) DoIt() ; else
  398.     if (evt->zone==zlift) {
  399.             lifton = 1 ;
  400.             Shadow(nf_font,evt->x,Prem,Dern,HFONT);
  401.     } else 
  402.     if (evt->zone==zfont) {   
  403.       if (Mode == putget ) {  /* pas de mode courant => PUT et GET */
  404.          switch (evt->click){
  405.         case 1 : if (cartrav.hsize > 0)
  406.                 PutToFont(Prem + evt->x/Resol) ;
  407.              break ;
  408.         case 2 : GetFromaFont(chartab,Prem + evt->x/Resol); 
  409.              break ;
  410.         default : break ;
  411.          }
  412.       } else
  413.          switch (evt->click) {
  414.         case 1 : 
  415.           i = evt->x / Resol + Prem ;
  416.           if ((i >= 0) || (i < MAXFONTCARD)) First = i ;
  417.           Aff_first() ;
  418.           break ;
  419.         case 2 :
  420.           i = evt->x / Resol + Prem ;
  421.           if ((i >= 0) || (i < MAXFONTCARD)) Last = i ;
  422.           Aff_last() ;
  423.           break ;
  424.         default : break ;
  425.          }
  426.     }
  427. }
  428.  
  429.  
  430.  
  431. static int Inverser_zone(zone)
  432.     int zone;
  433. {
  434.     if (zone==zmode) w_inv(nf_font,2*WITEM+2,2,3*WITEM-2,HMENU-2);
  435.                         else
  436.     if (zone==zfirst) w_inv(nf_font,4*WITEM+2,2,5*WITEM-2,HMENU-2);
  437.                         else
  438.     if (zone==zlast) w_inv(nf_font,6*WITEM+2,2,7*WITEM-2,HMENU-2);
  439.                         else
  440.     if (zone==zdoit) w_inv(nf_font,8*WITEM+2,2,WFONT-2,HMENU-2);
  441. }    
  442.  
  443. /*********************** procedure AUTOM_FONT ***************************/ 
  444. /* Des que le controleur detecte l'entree de la souris dans la fenetre,
  445.    il appelle cette procedure */
  446.  
  447. void Autom_font(pev) 
  448.   myEvent * pev ;  
  449. { int code ;    /* pour reaffichage apres scroll ascenseur */
  450.  
  451.   static zonecour = 0 ;
  452.   int xshadow ;
  453.  
  454.   switch (pev->type){
  455.     case Exposure :
  456.         Reaffich(pev);
  457.         if (zonecour) Inverser_zone(zonecour);
  458.         if (lifton) Shadow(nf_font,-1,Prem,Dern,HFONT);
  459.         break ;
  460.     case EnterZone   : 
  461.       if ((pev->zone==zfont)&&(Mode==putget))
  462.         Afficher_boutons("PUT","GET") ; else
  463.       if ((pev->zone==zfont)&&(Mode!=putget)) 
  464.         Afficher_boutons("First","Last") ; else
  465.             if (pev->zone==zhelp) Afficher_boutons("Help","Help") ; else
  466.           if (pev->zone == zlift) {
  467.         Afficher_boutons("Select","Select"); 
  468.         lifton = 1 ;
  469.         Shadow(nf_font,pev->x,Prem,Dern,HFONT);
  470.       } else
  471.       if (pev->zone==zfont) codeprec = codeputget ; else
  472.         Afficher_boutons("Select","Select"); 
  473.  
  474.       Inverser_zone(pev->zone);
  475.       zonecour = pev->zone ;
  476.       break;
  477.     case ButtonPressed :  
  478.       if ((pev->zone != zlift) || (lifton == 0)){
  479.         Traiter_zone(pev);
  480.         break ;
  481.       }    /* no break : meme effet que le release ... SHAME on CODE */
  482.     case ButtonReleased :
  483.       if ((pev->zone==zlift)&&(lifton)) { 
  484.         xshadow = Shadow(nf_font,-1,Prem,Dern,HFONT);
  485.         lifton = 0 ;
  486.         ShowLift(nf_font,OFF,Prem,Dern,HFONT) ;
  487.         Prem = ((xshadow-WSCROLL) * MAXFONTCARD) / WLIFT ;
  488.         Dern = Prem + WFONT/Resol - 1;
  489.         if (Dern >= MAXFONTCARD) Dern = MAXFONTCARD -1 ;
  490.         for (code=Prem ; code <= Dern; code++) 
  491.           ShowAChar(nf_font,chartab,code,Prem,Dern,
  492.             Resol,HFONT,hfont,maxup);
  493.         ShowLift(nf_font,ON,Prem,Dern,HFONT) ;
  494.       }
  495.       break ;        
  496.        case MoveMouse :
  497.         if ((pev->zone==zlift)&&(lifton)) {
  498.             Shadow(nf_font,-1,Prem,Dern,HFONT);
  499.             Shadow(nf_font,pev->x,Prem,Dern,HFONT);
  500.         }
  501.         if (pev->zone==zfont){
  502.             codecour = Prem + (pev->x/Resol) ;
  503.             if ((codeprec != codecour) && (codecour < MAXFONTCARD)) {
  504.                 Aff_code(codecour);
  505.                 codeprec = codecour ;
  506.             }
  507.         }        /* gestion track code ascii */    
  508.         break ;
  509.         case LeaveZone : 
  510.         Inverser_zone(pev->zone);
  511.         zonecour = 0 ;
  512.         if ((pev->zone==zlift)&&(lifton)) {
  513.             Shadow(nf_font,-1,Prem,Dern,HFONT);
  514.             lifton = 0 ;
  515.         }
  516.         if (pev->zone==zfont) Aff_code(codeputget);
  517.         Afficher_boutons("","");
  518.         break ;
  519.     case CloseWindow : break ;                
  520.       }
  521. }
  522.        
  523.