home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 2000 July / VPR0007A.BIN / OLS / PAPIJUMP / papijump.lzh / script / font.h next >
Text File  |  1999-09-15  |  919b  |  47 lines
  1.  
  2. // フォント描きまくりルーチン (yaneurao GameScript2000β4用)
  3. // Copyright (c)1999 SUNFLAT
  4.  
  5. long _font_w,_font_h,_font_n;
  6.  
  7. // フォントをセット（n:プレーンナンバー）
  8. void fontSet(n)
  9. {
  10.     GetPlaneSize(n,&_font_w,&_font_h);
  11.     _font_n=n;
  12.     _font_w=_font_w>>4;
  13.     _font_h=_font_h>>4;
  14. }
  15.  
  16. // フォント描きまくり
  17. void fontRender(x,y,mes)
  18. {
  19.     long a,p;
  20.  
  21.     p=mes;
  22.     loop{
  23.         a=(*p)&0xff; // コレでbyte単位で取り出せるはず!!（強引）
  24.         if (!a) break;
  25.         BltRect(_font_n,x,y,(a&15)*_font_w,(a>>4)*_font_h,_font_w,_font_h);
  26.         p++; // byte単位
  27.         x=x+_font_w;
  28.     }
  29. }
  30.  
  31. // フォント描きまくりしかも倍率つき
  32. void fontRenderR(x,y,mes,zoomx,zoomy)
  33. {
  34.     long a,i;
  35.  
  36.     i=0;
  37.     loop{
  38.         a=(*(mes+i))&0xff; // コレでbyte単位で取り出せるはず!!（強引）
  39.         if (!a) break;
  40.         BltRectR(_font_n
  41.             ,x+((i*_font_w*zoomx)>>16) // overflow しないかな?
  42.             ,y,(a&15)*_font_w,(a>>4)*_font_h,_font_w,_font_h,zoomx,zoomy);
  43.         i++;
  44.     }
  45. }
  46.  
  47.