home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 5 Edit / 05-Edit.zip / xfedor.zip / XFree86 / src / xfedor / tr_grille.c < prev    next >
C/C++ Source or Header  |  1999-03-02  |  12KB  |  466 lines
  1. /* Copyright 1989 GROUPE BULL -- See licence conditions in file COPYRIGHT */
  2. #include <stdio.h>
  3. #include "couche.h"         /* myEvent */
  4. #include "clientimage.h"
  5. #include "fedor.h"        /* fedchar */
  6. #include "edit.h"        /* MODBLANC WMENU WEDIT WHITE GREY */
  7.  
  8. extern nf_edit ;
  9. extern MetrAff    ;     /* bool qui indique que la metrique est afficher */
  10.             /* cad la BiBox + les points adj et incr */
  11. extern modcolor ;     /* MODBACK, MODINV, ou MODCOLOR */
  12. extern modecour ;    /* point, line .. */
  13. extern colortrame ;    /* WHITE GREY */
  14. extern int BackColor ;
  15.  
  16. void Init_grille() ;
  17. void Autom_grille() ;
  18. int convert();
  19. void Changer_baseline() ;
  20. void Changer_guideline() ;
  21. int Resol_possible() ;
  22. void Afficher_back() ;
  23. void Afficher_all() ;
  24. void Changer_editresol() ;
  25. void MontrerCarTrav() ;
  26. int Adjpoint() ;
  27. void carre_pas();
  28. void Invpoint() ;
  29. void BiBox() ;
  30.  
  31. int nf_grille ;   /* NUMERO DE LA SOUS-FENETRE GRILLE */      
  32.  
  33. fedchar cartrav, carback, carundo[20] ;
  34. int Baseliney,Xleft ;        /* pour tr_font */
  35. int BackLeft,Baseback ;
  36. ClientImage * bitmapsave ;
  37.  
  38. int editresol ;        /* 16 32 64 128 */
  39.  
  40. #define XGRILLE WMENU
  41. #define YGRILLE 0
  42. #define WGRILLE WEDIT
  43. #define HGRILLE WEDIT
  44.  
  45. static int zedit ;
  46.  
  47. #define NGL 4
  48. static int tguide[NGL] ;
  49. static int ngl = 0 ;
  50.  
  51. #define NUNDO 2
  52.  
  53. int CurColor, TrameColor ;
  54.  
  55. static int back_pix ;
  56.  
  57. void Init_grille() 
  58. {    int i ;
  59.  
  60.     nf_grille = w_ouvrir(nf_edit,XGRILLE,YGRILLE,WGRILLE,HGRILLE,
  61.                       "",CURS4,
  62.                 EnterZone|ButtonPressed|ButtonReleased|
  63.                 KeyPressed|MoveMouse|LeaveZone,WMOFF) ;
  64.     w_backing(nf_grille);
  65.  
  66.     zedit = w_crzon(nf_grille,0,0,WGRILLE,HGRILLE,CURS4);
  67.  
  68.     CurColor = w_blackpixel();
  69.  
  70.     TrameColor = w_greypixel();
  71.  
  72.  
  73.  
  74.     /* INIT DES BITMAP CLIENTS */
  75.     Rast_Init(&cartrav.image,128,128,1);  /* flag = 1 pour depth n */
  76.     Rast_Init(&bitmapsave,128,128,1);
  77.     Rast_Init(&carback.image,128,128,1);
  78.     for (i=0; i<NUNDO ; i++) {
  79.       Rast_Init(&carundo[i].image,128,128,1);
  80.     }
  81.     Rast_Off(&cartrav.image,BackColor);  
  82.     Rast_Off(&bitmapsave,BackColor);
  83.     Rast_Off(&carback.image,BackColor);
  84.     for (i=0; i<NUNDO ; i++) {
  85.       Rast_Off(&carundo[i].image,BackColor);
  86.     }
  87.  
  88.     editresol = 32 ; 
  89.     Baseliney = 31 ;     
  90.     for (i=0 ; i<NGL; i++) tguide[i] = -1 ;
  91.  
  92.     back_pix = w_bitmap(32,32);
  93.  
  94.     w_montrer(nf_grille);
  95.  
  96. }
  97.  
  98. static Reaffich(pev)
  99.     myEvent * pev ;
  100. { 
  101. /*  printf("expose %d %d %d %d\n",pev->x,pev->y,pev->xz,pev->yz);*/
  102.        if (pev->window == nf_grille) Afficher_all();
  103. }
  104.  
  105. int convert(xy)
  106.     int xy ;
  107. {
  108.     if (xy == 0) return 0 ; else
  109.     if (xy >= 513) return (editresol - 1) ; else
  110.             return (xy - 1)/(512/editresol) ;
  111. }
  112.  
  113.  
  114. static Afficher_baseline()
  115. {    short pas = (512/editresol);
  116.  
  117.     if (Baseliney == 0) return ;
  118.     w_line(nf_grille,1,Baseliney*pas +1,WGRILLE-2,Baseliney*pas +1,ON);
  119.     w_line(nf_grille,1,Baseliney*pas,WGRILLE-2,Baseliney*pas,ON);
  120. }    
  121.     
  122. void Changer_baseline(by) 
  123.     int by ;    /* espace fenetre 0-514 */
  124. /* efface l'ex baseline, modifie la globale Baseliney et l'affiche */
  125. /* modifie aussi les valeurs up et down et les reaffiche */
  126. {
  127.     short dby,cby,i ;
  128.     short pas = (512/editresol) ;    
  129.     
  130.     cby = convert(by) ;
  131.         /* first, we verify that there is no guideline here */
  132.     for (i=0 ; i<NGL ; i++) if (tguide[i] == cby) return ;
  133.     dby = cby - Baseliney ; /* differentiel */
  134.     if (dby) {
  135.       if (colortrame == GREY) 
  136.         w_color(nf_grille,0,Baseliney*pas,
  137.             WGRILLE,Baseliney*pas +2,TrameColor); else
  138.       if (colortrame == WHITE) 
  139.         w_color(nf_grille,0,Baseliney*pas,
  140.             WGRILLE,Baseliney*pas +2,BackColor);
  141.         /* efface */
  142.         /* on doit reafficher les pixels back dont on a effacer
  143.             un cote horizontal */
  144.         for (i=BackLeft ; i < BackLeft+carback.hsize ; i++)
  145.            if ((Rast_Inq(carback.image,i,Baseliney) != BackColor) ||
  146.             (Rast_Inq(carback.image,i,Baseliney-1) != BackColor))
  147.             w_line(nf_grille,i*pas +1 , Baseliney*pas, 
  148.                 (i+1)*pas +1, Baseliney*pas,ON);
  149.                 
  150.         if (cartrav.down-cartrav.up!=0)    {     
  151.                 /* => up et down != 0 */
  152.             cartrav.up -= dby ;
  153.             cartrav.down -= dby ;
  154.             Aff_all() ;
  155.         }
  156.         Baseliney += dby ;
  157.         Afficher_baseline();
  158.     }
  159. }
  160.  
  161. static void Afficher_guidelines() 
  162. {
  163.     short i,pas = (512/editresol) ;    
  164.     
  165.     for (i=0 ; i<NGL ; i++)
  166.         if (tguide[i] > 0)     
  167.             w_line(nf_grille,0,tguide[i]*pas +1,
  168.                           WGRILLE,tguide[i]*pas +1,ON);
  169. }
  170.  
  171. void Changer_guideline(gy)
  172.     int gy ;
  173. {
  174.     short dgy ;
  175.     short i,pas = (512/editresol) ;    
  176.  
  177.     dgy = convert(gy) ;
  178.     /* first we see if there is a collision with Baseline */
  179.     /* we not permitted that */
  180.     if (dgy == Baseliney)  return ;
  181.     /* if there is already one guideline at this level, it erase it
  182.         on the root and on the internal memory, else
  183.        it add one new guideline in this two structure */
  184.     /* research of existense : we have NGL guideline possible :
  185.         from tguide[0] to tguide[NGL-1] */
  186.  
  187.     for (i=0 ; i< NGL ;i++) if (tguide[i]==dgy) break ;
  188.  
  189.     if (i==NGL) {/* it means that we haven't found any guideline
  190.             already stored */
  191.         if (ngl < NGL) {/* we have at least one free cell */
  192.             i = 0 ;
  193.             while(tguide[i]!=-1) i++ ;
  194.             tguide[i] = dgy ;
  195.             ngl ++ ;
  196.             if (dgy) w_line(nf_grille,0,dgy*pas +1,
  197.                               WGRILLE,dgy*pas +1,ON);
  198.         } 
  199.         } else {/* we have found a tguide[i] equal to dgy */
  200.         tguide[i] = -1 ;
  201.         ngl -- ;
  202.         if (colortrame == GREY) 
  203.           w_color(nf_grille,0,dgy*pas +1,
  204.                   WGRILLE,dgy*pas +2,TrameColor);    else
  205.         if (colortrame == WHITE) 
  206.           w_color(nf_grille,0,dgy*pas +1,
  207.                   WGRILLE,dgy*pas +2,BackColor);    
  208.         /* efface */
  209.         
  210.     }    
  211. }
  212.  
  213. static Afficher_grille ()    
  214. { 
  215.     register short l,pas=(512/editresol) ;
  216.     
  217.  
  218.     if (colortrame == GREY) 
  219.       w_color(back_pix,0,0,pas,pas+1,TrameColor) ; else
  220.     if (colortrame == WHITE) 
  221.       w_color(back_pix,0,0,pas,pas+1,BackColor) ;
  222.    
  223.      w_color(back_pix,1,2,pas,pas+1,BackColor) ;     
  224.  
  225.      for(l=pas ; l<32 ; l<<=1)
  226.          w_rastop(back_pix,back_pix,0, 0, l, pas, l, 0);
  227.  
  228.      for(l=pas ; l<32 ; l<<=1)
  229.          w_rastop(back_pix,back_pix,0, 0, 32, l, 0, l) ;
  230.  
  231.     w_setback(nf_grille,back_pix);
  232.      
  233. /*   if (colortrame == GREY) 
  234.       w_color(nf_grille,512,0,514,514,TrameColor) ; else
  235.     if (colortrame == WHITE) 
  236.       w_color(nf_grille,512,0,514,514,BackColor) ;
  237. */
  238. }     
  239.  
  240.  
  241. static Afficher_car() 
  242. {
  243.     register int x,y,limx,limy ;
  244.  
  245.     limx = Xleft + cartrav.hsize ;
  246.     limy = Baseliney + cartrav.down ;
  247.     for (x=Xleft; x < limx ; x ++)
  248.         for (y=Baseliney+cartrav.up; y < limy; y ++)
  249.          carre_pas(x,y,Rast_Inq(cartrav.image,x,y)) ;
  250.             
  251. }
  252.  
  253. void Afficher_back()
  254. /* ne fait rien si carback.hsize = 0 */
  255. {
  256.     int x,y ;
  257.     register short pas =(512/editresol), limx, limy ;
  258.  
  259.     limx = BackLeft + carback.hsize ;
  260.     limy = Baseback + carback.down ;
  261.     for (x=BackLeft; x < limx ; x ++)
  262.         for (y=Baseback+carback.up; y < limy; y ++)
  263.            if (Rast_Inq(carback.image,x,y) != BackColor)
  264.             w_rect(nf_grille,x*pas +1 , y*pas,
  265.                 (x+1)*pas +1, (y+1)*pas,ON);
  266. }
  267.     
  268. void Afficher_all()
  269. /* ne touche qu'a la fenetre nf_grille */
  270. {
  271.     Afficher_grille();
  272.     Afficher_baseline();
  273.     Afficher_guidelines();
  274.     Afficher_car() ;
  275.     Afficher_back() ;
  276.     if (MetrAff == 1) {    /* il faut retracer la metrique */
  277.                 /* afficher par ed_metric */
  278.         BiBox();
  279.                Invpoint(Xleft - cartrav.hadj,Baseliney);
  280.                Invpoint(Xleft - cartrav.hadj +cartrav.hincr ,Baseliney);
  281.     }
  282.     CarFen() ;
  283. }
  284.  
  285.  
  286. int Resol_possible(resol)
  287. /* rends VRAI si la resolution donnee peut contenir le caractere courant */
  288. {
  289.       if (resol == 128) return 1 ; 
  290.       return ( (Xleft+cartrav.hsize <= resol) &&
  291.          (Max(Baseliney,Baseliney+cartrav.down) <= resol) &&
  292.          (BackLeft+carback.hsize <= resol) &&
  293.          (Max(Baseback,Baseback+carback.down) <= resol)) ;
  294. }
  295.  
  296.  
  297. void Changer_editresol() 
  298. { 
  299.  
  300.     editresol = 16 ;
  301.     while (!Resol_possible(editresol))   editresol <<= 1;
  302. }
  303.  
  304.  
  305. void MontrerCarTrav() 
  306. /* cartrav est complet, Baseliney et Xleft sont fixes, on modifie 
  307.    editresol en fonction de ces valeurs */
  308. { 
  309.  
  310.         Changer_editresol() ;
  311.     Afficher_resol(editresol) ;
  312.     Afficher_all() ;
  313.     Aff_all() ;
  314.     Aff_name(cartrav.name);
  315. }
  316.  
  317.  
  318.  
  319. int Adjpoint(x,y)
  320. /* x,y en 0_128 */
  321. /* rends une couleur  ou -1 si on a rien trace */
  322.     int x,y ;
  323. {    
  324.     int color ;
  325.  
  326.     if ((x < 0) || (x > 128) || (y < 0) || (y > 128)) return -1 ;
  327.  
  328.     color = Rast_Inq(cartrav.image,x,y) ;
  329.  
  330.     if ((modcolor == MODINV) && (color == BackColor))
  331.       color = CurColor ; else
  332.     if ((modcolor == MODINV) && (color != BackColor))
  333.       color = BackColor ; else
  334.     if ((modcolor == MODBACK) && (color == BackColor))
  335.       return -1 ; else
  336.     if ((modcolor == MODCOLOR) && (color == CurColor))
  337.       return -1 ; else
  338.         if (modcolor == MODBACK) color = BackColor ; else
  339.         if (modcolor == MODCOLOR) color = CurColor ; 
  340.  
  341.     Rast_Pix(cartrav.image,x,y,color);
  342.     if (color != BackColor) {  /* on "allume" un pixel  */
  343.       if ((cartrav.down-cartrav.up)== 0) { /* init */
  344.         Xleft = x ;
  345.         cartrav.hsize = 1 ;
  346.         cartrav.up = y - Baseliney ;
  347.         cartrav.down = y - Baseliney + 1 ;
  348.         *cartrav.name = '\0' ;
  349.       } else {
  350.         if (x < Xleft)  {
  351.           cartrav.hsize += Xleft - x ;
  352.           Xleft = x ;
  353.         } else
  354.           if (x >= Xleft + cartrav.hsize)  {
  355.         cartrav.hsize = x - Xleft +1 ;
  356.           } 
  357.         if (y < Baseliney + cartrav.up) {
  358.           cartrav.up = y - Baseliney ;
  359.         } else
  360.           if (y >= Baseliney + cartrav.down) {
  361.         cartrav.down = y - Baseliney + 1;
  362.           }
  363.       }
  364.     } else {    /* il faut voir si cette remise a blanc d'un pixel
  365.                    fait diminuer up,down, hsize ou Xleft */
  366.         if (x==Xleft) {
  367.           while( (Colonne_color(cartrav.image,
  368.                     Xleft,Baseliney+cartrav.up,
  369.                     Baseliney+cartrav.down,
  370.                     color)) 
  371.             &&(cartrav.hsize!=0))
  372.             {
  373.               Xleft ++ ;
  374.               cartrav.hsize -- ;
  375.             }
  376.         } else
  377.           if (x==Xleft+cartrav.hsize-1) 
  378.             while ( (Colonne_color(cartrav.image,
  379.                        Xleft+cartrav.hsize-1,
  380.                        Baseliney+cartrav.up,
  381.                        Baseliney+cartrav.down,
  382.                        color)) 
  383.                && (cartrav.hsize!=0)) 
  384.               {
  385.             cartrav.hsize -- ;
  386.               } 
  387.         if (cartrav.hsize == 0 ) {
  388.           cartrav.up = 0 ;
  389.           cartrav.down = 0 ;
  390.           Xleft = 0 ;
  391.         }
  392.         if (y==Baseliney+cartrav.up)
  393.           while ( (Ligne_color(cartrav.image,
  394.                        Baseliney+cartrav.up,Xleft,
  395.                        Xleft+cartrav.hsize,
  396.                        color)) 
  397.              && (cartrav.down-cartrav.up!=0)) {
  398.             cartrav.up ++ ;
  399.           } else
  400.             if (y==Baseliney+cartrav.down-1)
  401.               while ( (Ligne_color(cartrav.image,
  402.                        Baseliney+cartrav.down-1,Xleft,
  403.                        Xleft+cartrav.hsize,
  404.                        color))  
  405.                  && (cartrav.down-cartrav.up!=0)) {
  406.             cartrav.down -- ;
  407.               } 
  408.           }
  409.     carre_pas(x,y,color);
  410.     return(color);
  411. }
  412.  
  413. void carre_pas(x,y,color)
  414.     int x,y ;
  415.     int color ;
  416. {
  417.     register short pas = (512/editresol) ;
  418.  
  419.     w_color(nf_grille,x*pas +2,y*pas+2, 
  420.         (x+1)*pas, (y+1)*pas,color);
  421. }
  422.  
  423. void Invpoint(x,y)        /* pour ed_beziers et ed_metric */
  424.     int x,y;
  425. {    
  426.     short pas = (512/editresol) ;
  427.  
  428.     if (x<0) return ;
  429.     w_fellips(nf_grille,x*pas - 2 , y*pas - 2 , 
  430.         (x+1)*pas + 3 , (y+1)*pas + 3,OFF);
  431. }
  432.  
  433. void BiBox() 
  434. {    
  435.     short pas = (512/editresol) ;
  436.  
  437.     w_rect(nf_grille,Xleft*pas,
  438.                    (Baseliney+cartrav.up)*pas,
  439.                    (Xleft+cartrav.hsize)*pas,
  440.                    (Baseliney+cartrav.down)*pas,
  441.             OFF);
  442.                 
  443. }
  444.  
  445.  
  446. void Autom_grille(pev)
  447.     myEvent * pev ;
  448. {
  449.     if (pev->type == Exposure ) Reaffich(pev) ; else
  450.     switch ( modecour) {
  451.       case point : Autom_point(pev) ; break ;
  452.       case line : Autom_line(pev) ; break ;
  453.       case recta : Autom_rect (pev) ; break ;
  454.       case cercle : Autom_cercle(pev) ; break ;
  455.       case resize : Autom_resize(pev) ; break ;
  456.       case write : Autom_write(pev) ; break ;
  457.       case transl : Autom_transl(pev) ; break ;
  458.       case bez : Autom_bez(pev) ; break ;
  459.       case rotate: Autom_rotate(pev) ; break ;
  460.       case fil : Autom_fill(pev) ; break ;
  461.       case metric : Autom_metric(pev) ; break ;
  462.       case cutap : Autom_cutap(pev) ; break ;
  463.         }
  464. }
  465.  
  466.