home *** CD-ROM | disk | FTP | other *** search
/ Informática Multimedia: Special Games / INFESPGAMES.mdf / dos / arcade / sf2 / ker.fn < prev    next >
Encoding:
Text File  |  1988-01-01  |  5.0 KB  |  157 lines
  1. /**
  2.    VGA 320*200, 256 Color Graphic Macro
  3. **/
  4.  
  5.  
  6. extern  unsigned char far *_ADD[200] ;
  7. extern  unsigned int  far  _SEG[200],*_PSEG ;
  8. extern  unsigned int  far  _PSE[][200] ;
  9.  
  10. /**
  11.    Packed Mode Graphic Macro
  12. **/
  13.  
  14. #define setP(X,Y,C)          (*(_ADD[(Y)]+(X)) = (C))
  15. #define barL(X,Y,XL,YL,C)    imgFill(_SEG[(Y)],(X),320,(XL),(YL),(C))
  16. #define bar2(X1,Y1,X2,Y2,C)  imgFill(_SEG[(Y1)],(X1),320,(X2)-(X1)+1,(Y2)-(Y1)+1,(C))
  17. #define ClrScr(C)            imgHFill(0xa000,0,0xfa00,(C))
  18. #define lineHL(X,Y,L,C)      imgHFill(_SEG[(Y)],(X),(L),(C))
  19. #define lineH2(X1,Y,X2,C)    imgHFill(_SEG[(Y)],(X),(X2)-(X1)+1,(C))
  20. #define lineVL(X,Y,L,C)      imgVFill(_SEG[(Y)],(X),320,(L),(C))
  21. #define lineV2(X,Y1,Y2,C)    imgVFill(_SEG[(Y1)],(X),320,(Y2)-(Y1)+1,(C))
  22. #define viewPage(P)          setStAdd((P)*0x4000)
  23. #define putSpr0(X,Y,P,C,R)   sprCp(FP_SEG(P),FP_OFF(P),C,C,R,_SEG[Y],X,320)
  24. #define putSpr1(X,Y,P,C,R)   sprCpMir(FP_SEG(P),FP_OFF(P),C,C,R,_SEG[Y],X,320)
  25. #define putSpr2(X,Y,P,C,R)   sprCpUD(FP_SEG(P),FP_OFF(P),C,C,R,_SEG[Y],X,320)
  26. #define putSpr3(X,Y,P,C,R)   sprCpMirUD(FP_SEG(P),FP_OFF(P),C,C,R,_SEG[Y],X,320)
  27.  
  28. /**
  29.    Plane Mode Graphic Marco
  30. **/
  31.  
  32. #define psetP(X,Y,C)         pBytePut(_PSEG[(Y)],(X),(C))
  33. #define pBarL(X,Y,XL,YL,C)   pImgFill(_PSEG[(Y)],(X),80,(XL)+(X)-1,(YL),(C))
  34. #define pBar2(X1,Y1,X2,Y2,C) pImgFill(_PSEG[(Y1)],(X1),80,(X2),(Y2)-(Y1)+1,(C))
  35. #define pLineHL(X,Y,L,C)     pImgFill(_PSEG[(Y)],(X),(X)+(L)-1,(C))
  36. #define pLineH2(X1,Y,X2,C)   pImgFill(_PSEG[(Y)],(X1),(X2),(C))
  37. #define pLineVL(X,Y,L,C)     pImgVFill(_PSEG[(Y)],(X),80,(L),(C))
  38. #define pLineV2(X,Y1,Y2,C)   pImgVFill(_PSEG[(Y1)],(X),80,(Y2)-(Y1)+1,(C))
  39. #define pClrScr(C)           imgHFill(_PSEG[0],0,0x4000,(C)) ;
  40. #define page2PageCp(S,D)     writeMode(1) ; pImgCpLU(_PSE[(S)][0],0,80,80,200,_PSE[(D)][0],0,80) ;
  41. #define pPutSpr0(X,Y,P,C,R)  psprCp(FP_SEG(P),FP_OFF(P),C,C,R,_PSEG[Y],X,80)
  42. #define pPutSpr1(X,Y,P,C,R)  psprCpMir(FP_SEG(P),FP_OFF(P),C,C,R,_PSEG[Y],X,80)
  43. #define pPutSpr2(X,Y,P,C,R)  psprCpUD(FP_SEG(P),FP_OFF(P),C,C,R,_PSEG[Y],X,80)
  44. #define pPutSpr3(X,Y,P,C,R)  psprCpMirUD(FP_SEG(P),FP_OFF(P),C,C,R,_PSEG[Y],X,80)
  45.  
  46. #define planeWrite1          planeMode() ; writeMode(1) ;
  47. #define planeWrite0          planeMode() ; writeMode(0) ;
  48. #define packWrite1           packMode()  ; writeMode(1) ;
  49. #define packWrite0           packMode()  ; writeMode(0) ;
  50.  
  51. #define setRGB(I,R,G,B)      set1DACR((I),(R),(G),(B))
  52.  
  53. #define _R7 0xe0
  54. #define _R6 0xc0
  55. #define _R5 0xa0
  56. #define _R4 0x80
  57. #define _R3 0x60
  58. #define _R2 0x40
  59. #define _R1 0x20
  60.  
  61. #define _G7 0x1c
  62. #define _G6 0x18
  63. #define _G5 0x14
  64. #define _G4 0x10
  65. #define _G3 0x0c
  66. #define _G2 0x08
  67. #define _G1 0x04
  68.  
  69. #define _B3 0x03
  70. #define _B2 0x02
  71. #define _B1 0x01
  72.  
  73.  
  74. int _XL,_YL,_XR,_YR ;           // Clipping Window Variable
  75.  
  76. vga320Mode()
  77. vgaTextMode()
  78. setStAdd(st)
  79. actPage(int p)
  80. planeMode()
  81. packMode()
  82. writeMode(mode)
  83. cTrpRImg0(x,y,p,xs,ys)
  84. cTrpRImg1(x,y,p,xs,ys)
  85. pPutImgMode(x,y,p,xs,ys,m)
  86. pCTrpRImg0(x,y,p,xs,ys)
  87. pCTrpRImg1(x,y,p,xs,ys)
  88. pCTrpRImg2(x,y,p,xs,ys)
  89. pCTrpRImg3(x,y,p,xs,ys)
  90. pBox2(x1,y1,x2,y2,c)
  91. pBoxL(x,y,xl,yl,c)
  92. imgCpLU(sseg,soff,scs,xs,ys,dseg,doff,dcs)
  93. imgCpRU(sseg,soff,scs,xs,ys,dseg,doff,dcs)
  94. imgCpRD(sseg,soff,scs,xs,ys,dseg,doff,dcs)
  95. imgCpLL(sseg,soff,scs,xs,ys,dseg,doff,dcs)
  96. pimgCpLU(sseg,soff,scs,xs,ys,dseg,doff,dcs)
  97. pimgCpRU(sseg,soff,scs,xs,ys,dseg,doff,dcs)
  98. pimgCpRD(sseg,soff,scs,xs,ys,dseg,doff,dcs)
  99. pimgCpLL(sseg,soff,scs,xs,ys,dseg,doff,dcs)
  100. scroll(seg,off,scs,xs,ys,h,v)
  101. imgCpMir(sseg,soff,scs,xs,ys,dseg,doff,dcs)
  102. imgCpMirUD(sseg,soff,scs,xs,ys,dseg,doff,dcs)
  103. imgCpUD(sseg,soff,scs,xs,ys,dseg,doff,dcs)
  104. sprCp(sseg,soff,scs,xs,ys,dseg,doff,dcs)
  105. sprCpMir(sseg,soff,scs,xs,ys,dseg,doff,dcs)
  106. sprCpMirUD(sseg,soff,scs,xs,ys,dseg,doff,dcs)
  107. sprCpUD(sseg,soff,scs,xs,ys,dseg,doff,dcs)
  108. bitImgCp(sseg,soff,scb,ys,dseg,doff,dcs,color)
  109. memCp(sseg,soff,l,dseg,doff)
  110. imgFill(seg,off,ics,xs,ys,color)
  111. imgHFill(seg,off,xs,color)
  112. imgVFill(seg,off,ics,ys,color)
  113.  
  114. pSprCp(sseg,soff,scs,xs,ys,dseg,doff,dcs)
  115. pSprCpUD(sseg,soff,scs,xs,ys,dseg,doff,dcs)
  116. pSprCpMir(sseg,soff,scs,xs,ys,dseg,doff,dcs)
  117. pSprCpMirUD(sseg,soff,scs,xs,ys,dseg,doff,dcs)
  118. pImgVFill(seg,off,scs,ys,color)
  119. pBytePut(seg,off,color)
  120. pImgHFill(seg,x1,x2,color)
  121. pImgFill(seg,x1,scs,x2,ys,color)
  122. pBitImgCp(sseg,soff,scs,ys,dseg,doff,dcs,color)
  123. fPBitImgCp(sseg,soff,scs,ys,dseg,doff,dcs,color)
  124. get1DACR(i,r,g,b)
  125. getNDACR(s,n,r,g,b)
  126. set1DACR(i,r,g,b)
  127. setNDACR(s,n,r,g,b)
  128. brightCtrl(s,n,r,g,b,factor)
  129. greyCtrl(s,n,r,g,b,factor)
  130. loadTPal(pname)
  131.  
  132. initImg(img,n)
  133. freeImg(img,n)
  134. loadImg(imgIdFn,img)
  135. loadSpr(sprIdFn,spr,img)
  136. loadImgSpr(IdFn,img,spr)
  137. cTrpSpr0(x,y,spr,img)
  138. cTrpSpr1(x,y,spr,img)
  139. pPutSprMode(x,y,spr,img,m)
  140. pCTrpSpr0(x,y,spr,img)
  141. pCTrpSpr1(x,y,spr,img)
  142. pCTrpSpr2(x,y,spr,img)
  143. pCTrpSpr3(x,y,spr,img)
  144.  
  145. HCode2Bitmap(f,m,l,bitmap)
  146. HNByteCode(str,han)
  147. oneHNByteCode(str,han,p)
  148. isFChar(char ch)
  149. isMChar(ch1,ch2,o)
  150. isLChar(ch1,ch2,o)
  151. HCharType(char ch)
  152. hText(x,y,str,mode,fc,bc)
  153. pHText(x,y,str,mode,fc,bc)
  154. loadFont(char *fn)
  155. pText(x,y,str,mode,fc,bc)
  156. fPText(x,y,str,mode,fc,bc)
  157.