home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 5 Edit / 05-Edit.zip / xfedor.zip / XFree86 / src / xfedor / tr_extra.c < prev    next >
C/C++ Source or Header  |  1999-03-02  |  10KB  |  364 lines
  1. /* Copyright 1989 GROUPE BULL -- See licence conditions in file COPYRIGHT */
  2. #include <stdio.h>
  3. #include "clientimage.h"  /* ClientImage pour fedor.h  */
  4. #include "couche.h"      /*  CURS2 */
  5. #include "fedor.h"      /* fedchar .. MAXFONTCARD */
  6.  
  7. extern root ;
  8. extern fedchar cartrav ;    /* depuis tr_edit */
  9. extern int Baseliney,Xleft ;        /* depuis tr_edit */
  10. extern int BackColor, CurColor ;
  11.  
  12. void Init_extrafont();
  13. void Extra_Resize() ;
  14. void Autom_extrafont();
  15.  
  16. void ShowArrow();      
  17. void ShowAChar() ;
  18. void Scroll(); 
  19. void ShowLift();        /* pour la fentre fonte principale */
  20. int Shadow() ;
  21. void ShowAFont() ;
  22. void GetFromaFont() ;
  23.  
  24. int nf_extrafont ;   /* NUMERO DE LA FENETRE FONTE */      
  25.  
  26. fedchar extratab[MAXFONTCARD];    /* pour filer GetFont */
  27.  
  28. int PremExtra ; 
  29.  
  30.     /*------------ reste du LOCAL */
  31. #define HMENU 0 
  32. #include "font.h"
  33.  
  34. #define XFONT 0
  35. #define YFONT (10+514+10+22+25+128)
  36.  
  37. static int zfont,zleft,zright,zlift ;
  38.  
  39. static int maxup ;
  40.  
  41. static int lifton = 0 ;     /* flag ascenseur en cours */
  42.  
  43. static int Dern  ;        /* indice dans extratab */
  44.  
  45. static int Resol ;         /* 16,32,64,ou 128 */
  46.                    
  47. static hfont ;            /* hauteur zone fonte */
  48.  
  49. static int barlift ;
  50.  
  51. void Init_extrafont () 
  52. /***************/
  53. { 
  54.     nf_extrafont = w_ouvrir(root,XFONT,YFONT,WFONT,HFONTMAX,
  55.                  "xfedor_extra",CURS2,
  56.                  EnterZone|ButtonPressed|ButtonReleased|
  57.                  MoveMouse|LeaveZone,WMON) ;
  58.  
  59.     zleft = w_crzon(nf_extrafont,0,0,WSCROLL,HFONT,CURS2);
  60.     zlift = w_crzon(nf_extrafont,WSCROLL,0,WFONT-WSCROLL,HFONT,CURS2);
  61.     zright = w_crzon(nf_extrafont,WFONT-WSCROLL,0,WFONT,HFONT,CURS2);
  62.  
  63.     zfont =  w_crzon(nf_extrafont,0,HFONT,WFONT,HFONTMAX,CURS1);
  64. }
  65.  
  66. static Reaffich(fen) 
  67. int fen ;
  68. {
  69.     if (fen == nf_extrafont) {
  70.       w_clear(nf_extrafont);
  71.       w_line(nf_extrafont,WSCROLL,0,WSCROLL,HFONT,ON);
  72.       w_line(nf_extrafont,WFONT-WSCROLL,0,WFONT-WSCROLL,HFONT,ON);
  73.  
  74.       ShowArrow(nf_extrafont,HFONT) ;
  75.       ShowAFont(nf_extrafont,extratab,PremExtra,
  76.         Dern,Resol,HFONT,hfont,maxup) ; 
  77.         /* valeurs calculees par Extra_Resize dans GetExtraFont */
  78.     }
  79. }    
  80.    
  81.  
  82. void ShowArrow(nf,Hfen)
  83. /*-------------*/
  84.     int nf ;
  85.     int Hfen ;    
  86. {    int x ,y ;
  87.  
  88.     x = (WSCROLL - left_width)/2 ;
  89.     y = Hfen - (HSCROLL +left_height)/2 ;
  90.         w_pixel(nf,left_bits,x,y,left_width,left_height);
  91.         w_pixel(nf,right_bits,WFONT-WSCROLL+x,y,right_width,right_height);
  92. }
  93.  
  94. void ShowAChar(nf,tabchar,code,Prem,Dern,Resol,Hfen,hfont,maxup)
  95. /*-------------*/
  96.     int nf ;    /* fenetre */
  97.     fedchar * tabchar ;    /* tableau ou sont les car */
  98.     int code ;    /* indice dans tabchar du car a afficher */
  99.     int Prem,Dern ; /* indice du premier et dernier visibles */
  100.     int Resol ;    /* 16, 32, 64, 128 */
  101.     int Hfen ;    /* ordonnee origine zone fonte */
  102.     int hfont ;    /* taille reelle zone fonte */
  103.     int maxup ;    /* max dans tabchar.up */
  104.  
  105. {    int xcode ;
  106.  
  107.     if ( (code < Prem) || (code > Dern)) return; /* invisible ? */
  108.     
  109.     xcode = (code - Prem) * Resol ;
  110.     
  111.     if (tabchar[code].hsize <= 0)    
  112.             w_gris(nf,xcode,Hfen+1,xcode+Resol,Hfen+hfont);
  113.     else {       w_cleararea(nf,xcode,Hfen+1,xcode+Resol,Hfen+hfont);
  114.           w_bitblt(nf,tabchar[code].image,
  115.             0,0,tabchar[code].hsize,
  116.             tabchar[code].down-tabchar[code].up,
  117.             xcode+(Resol-tabchar[code].hsize)/2,
  118.             Hfen-maxup+tabchar[code].up+1);
  119.         }    
  120.     w_line(nf,xcode,Hfen,xcode+Resol,Hfen,ON);  
  121.     w_line(nf,xcode,Hfen,xcode,Hfen+hfont,ON);
  122. }
  123.  
  124.  
  125. void Scroll(nf,tabchar,dir,Prem,Dern,Resol,Hfen,hfont,maxup)
  126. /*-------------*/
  127.     int nf ;    /* fenetre */
  128.     fedchar * tabchar ;    /* tableau ou sont les car */
  129.     int dir ;    /* LEFT ou RIGHT  */
  130.     int *Prem,*Dern ; /* indice du premier et dernier visibles */
  131.     int Resol ;    /* 16, 32, 64, 128 */
  132.     int Hfen ;    /* ordonnee origine zone fonte */
  133.     int hfont ;    /* taille reelle zone fonte */
  134.     int maxup ;    /* max dans tabchar.up */
  135. {
  136.     int xsrc,ysrc,xdest,ydest ;
  137.     int l,h;
  138.         
  139.     xsrc = xdest = -1; ysrc = ydest = Hfen ; 
  140.     ShowLift(nf,OFF,*Prem,*Dern,Hfen) ;
  141.     if (dir == RIGHT) {
  142.         if (*Dern < MAXFONTCARD - 1) {
  143.             (*Prem)++; (*Dern)++;
  144.             xsrc +=  Resol  ;
  145.         }
  146.     } else 
  147.      if (*Prem > 0) {
  148.         (*Prem)-- ; (*Dern)--;
  149.         xdest += Resol  ;
  150.     }
  151.     /* decaler tous les caracteres  */
  152.     w_rastop(nf,nf,xsrc, ysrc, (*Dern - *Prem)*Resol,hfont,xdest, ydest);
  153.     /* Afficher le caractere */    
  154.         ShowAChar(nf,tabchar,(dir == RIGHT) ? *Dern : *Prem,
  155.             *Prem,*Dern,Resol,Hfen,hfont,maxup);
  156.     ShowLift(nf,ON,*Prem,*Dern,Hfen) ;
  157. }
  158.  
  159. void ShowLift(nf,onoff, Prem, Dern, Hfen)
  160. /*-------------*/
  161.     int nf ;    /* fenetre */
  162.     int onoff;
  163.     int Prem,Dern ; /* indice du premier et dernier visibles */
  164.     int Hfen ;    /* ordonnee origine zone fonte */
  165. {
  166.     int xliftpos  ;    /* position ascenseur */
  167.     int barlift ;
  168.  
  169.     barlift = (WLIFT*(Dern - Prem))/MAXFONTCARD ;    /* largeur barre ascenceur */
  170.     xliftpos = WSCROLL + (Prem * WLIFT)/MAXFONTCARD + 1 ;
  171.     if (onoff == ON)
  172.           w_gris(nf,xliftpos ,Hfen - HSCROLL + 2,xliftpos + barlift, 
  173.                 Hfen  - 2);
  174.         else       w_cleararea(nf,xliftpos ,Hfen - HSCROLL+ 2,
  175.                 xliftpos + barlift, Hfen - 2);
  176.     
  177. }
  178.  
  179.  
  180. int Shadow(nf,x,Prem, Dern, Hfen)
  181. /*-------------*/
  182.     int nf ;    /* fenetre */
  183.     int x ;
  184.     int Prem,Dern ; /* indice du premier et dernier visibles */
  185.     int Hfen ;    /* ordonnee origine zone fonte */
  186.  
  187. /* soit x=-1 et on efface l'ascenseur a l'ex shadow
  188.    sinon on trace un nouvel ascenseur en fonction de x */
  189. /* rends l'abcisse de l'ascenceur corrige pour la limite WLIFT */
  190. {
  191.     static xshadow ;
  192.  
  193.      if ( x > 0) {
  194.         xshadow = x;
  195.         barlift = (WLIFT*(Dern - Prem))/MAXFONTCARD ;
  196.         if ((xshadow + barlift ) > WLIFT)
  197.             xshadow = WLIFT - barlift - 1;
  198.         xshadow += WSCROLL;
  199.     }
  200.     w_inv(nf,xshadow,Hfen-HSCROLL+2,xshadow + barlift,Hfen-2) ;
  201.     return xshadow ;
  202. }
  203.  
  204.  
  205.          
  206. void Extra_Resize()
  207. /* calcule maxup, hfont et Resol */
  208. {
  209.     int code ;
  210.     int maxdown,maxhsize ;
  211.     static int old_hfont ;
  212.  
  213.     maxup = maxdown = maxhsize = 0 ;
  214.     for (code=0; code < MAXFONTCARD; code++) 
  215.        if (extratab[code].hsize > 0) {
  216.         if (extratab[code].up < maxup ) 
  217.             maxup = extratab[code].up ;
  218.         if (extratab[code].down > maxdown ) 
  219.             maxdown = extratab[code].down ;
  220.         if (extratab[code].hsize > maxhsize ) 
  221.             maxhsize = extratab[code].hsize;
  222.        }
  223.  
  224.     hfont = (((maxdown-maxup)>0)?(maxdown-maxup):32) + 1;
  225.     Resol = New_Resol((maxhsize>0)?maxhsize:32);
  226.     Dern = PremExtra + WFONT / Resol - 1 ;
  227.     w_resize(nf_extrafont,WFONT,HFONT+hfont);
  228.     if (hfont <= old_hfont) Reaffich(nf_extrafont); 
  229.     old_hfont = hfont ;
  230. }
  231.  
  232. void ShowAFont(nf,tabchar,Prem,Dern,Resol,Hfen,hfont,maxup)
  233. /*-------------*/
  234.     int nf ;    /* fenetre */
  235.     fedchar * tabchar ;    /* tableau ou sont les car */
  236.     int Prem,Dern ; /* indice du premier et dernier visibles */
  237.     int Resol ;    /* 16, 32, 64, 128 */
  238.     int Hfen ;    /* ordonnee origine zone fonte */
  239.     int hfont ;    /* taille reelle zone fonte */
  240.     int maxup ;    /* max dans tabchar.up */
  241.  
  242. {    int code;
  243.  
  244.     for (code = Prem ; code <= Dern ; code++) 
  245.         ShowAChar(nf,tabchar,code,Prem,Dern,Resol,
  246.                 Hfen,hfont,maxup);
  247.     ShowLift(nf,ON,Prem,Dern,Hfen) ;
  248.  
  249. }
  250.  
  251. void GetFromaFont(tabchar,code)
  252. /*-------------*/
  253.     fedchar * tabchar ;
  254.     int code ;            /* code dans tabchar */
  255. {
  256.     if ( (code >= 0) && (code < MAXFONTCARD) && 
  257.         (tabchar[code].hsize > 0 )) {
  258.             Dodo(); 
  259.         CopyCar(&tabchar[code],&cartrav);
  260.         Xleft = 0 ;
  261.         Baseliney = - cartrav.up ;
  262.         if (Baseliney < 0) Baseliney = 0 ;
  263.         Rast_Off(&cartrav.image,BackColor) ;
  264.         Rast_Op_1n(tabchar[code].image,&cartrav.image,
  265.             0,0,
  266.             Xleft,Baseliney+cartrav.up,
  267.             cartrav.hsize,cartrav.down-cartrav.up,
  268.             VIDSTR,CurColor);
  269.         MontrerCarTrav();
  270.     }
  271. }
  272.  
  273.  
  274. static int Traiter_zone(evt)
  275. /* on a recu un click dans la zone */
  276.     myEvent * evt ;
  277. {
  278.     int i ;
  279.  
  280.     if ((evt->zone == zleft) && (evt->click == 1))
  281.         Scroll(nf_extrafont,extratab,LEFT,&PremExtra,&Dern,
  282.                 Resol,HFONT,hfont,maxup) ; else
  283.     if ((evt->zone == zleft) && (evt->click == 2))
  284.         Scroll(nf_extrafont,extratab,RIGHT,&PremExtra,&Dern,
  285.                 Resol,HFONT,hfont,maxup) ; else
  286.     if ((evt->zone == zright) && (evt->click == 1))
  287.         Scroll(nf_extrafont,extratab,RIGHT,&PremExtra,&Dern,
  288.                 Resol,HFONT,hfont,maxup) ; else
  289.     if ((evt->zone == zright) && (evt->click == 2))
  290.         Scroll(nf_extrafont,extratab,LEFT,&PremExtra,&Dern,
  291.                 Resol,HFONT,hfont,maxup) ; else
  292.     if (evt->zone == zlift) {
  293.       lifton = 1 ;
  294.       Shadow(nf_extrafont,evt->x,PremExtra,Dern,HFONT);
  295.     } else
  296.     if (evt->zone == zfont)  
  297.       GetFromaFont(extratab,PremExtra + evt->x/Resol); 
  298. }
  299.  
  300. /*********************** procedure AUTOM_EXTRAFONT ***********************/ 
  301. /* Des que le controleur detecte l'entree de la souris dans la fenetre,
  302.    il appelle cette procedure */
  303.  
  304. void Autom_extrafont(pev) 
  305.   myEvent * pev ;  
  306. {
  307.   int code ;    /* pour reaffichage apres scroll ascenseur */
  308.   int xshadow ;
  309.  
  310.   switch (pev->type){
  311.     case Exposure :
  312.         Reaffich(pev->window) ;
  313.         if (lifton) Shadow(nf_extrafont,-1,PremExtra,Dern,HFONT);
  314.         break ;
  315.     case EnterZone   : 
  316.       if (pev->zone==zfont) Afficher_boutons("GET","GET") ; else
  317.       if (pev->zone == zlift) {
  318.         Afficher_boutons("Select","Select"); 
  319.         lifton = 1 ;
  320.         Shadow(nf_extrafont,pev->x,PremExtra,Dern,HFONT);
  321.       } else Afficher_boutons("Select","Select"); 
  322.        break ;
  323.     case ButtonPressed :  
  324.       if ((pev->zone != zlift) || (lifton == 0)){
  325.         Traiter_zone(pev);
  326.         break ;
  327.       }    /* no break : meme effet que le release ... SHAME on CODE */
  328.      case ButtonReleased :
  329.       if ((pev->zone==zlift)&&(lifton)) { 
  330.         xshadow = Shadow(nf_extrafont,-1,PremExtra,Dern,HFONT);
  331.         /* efface l'ascenseur courant et recupere xshadow */
  332.         lifton = 0 ;
  333.         ShowLift(nf_extrafont,OFF,PremExtra,Dern,HFONT) ;
  334.         xshadow -= WSCROLL ;
  335.         PremExtra = (xshadow * MAXFONTCARD) / WLIFT ;
  336.         Dern = PremExtra + WFONT/Resol - 1;
  337.         if (Dern >= MAXFONTCARD) Dern = MAXFONTCARD -1 ;
  338.         for (code=PremExtra ; code <= Dern ; code++) 
  339.           ShowAChar(nf_extrafont,extratab,code,
  340.             PremExtra,Dern,Resol,
  341.             HFONT,hfont,maxup);
  342.         ShowLift(nf_extrafont,ON,PremExtra,Dern,HFONT) ;
  343.       }
  344.       break ;        
  345.        case MoveMouse :
  346.         if ((pev->zone==zlift)&&(lifton)) {
  347.             Shadow(nf_extrafont,-1,PremExtra,Dern,HFONT);
  348.             Shadow(nf_extrafont,pev->x,PremExtra,Dern,HFONT);
  349.         }
  350.         break ;
  351.         case LeaveZone : 
  352.         if ((pev->zone==zlift)&&(lifton)) {
  353.             Shadow(nf_extrafont,-1,PremExtra,Dern,HFONT);
  354.             lifton = 0 ;
  355.         }
  356.         Afficher_boutons("","");
  357.         break ;
  358.     case CloseWindow :
  359.         w_cacher(pev->window); //ET: not sure if this is enough...
  360.         break;
  361.       }
  362. }
  363.             
  364.