home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / rxgd101.zip / GIFDATE.CMD < prev    next >
OS/2 REXX Batch file  |  1997-09-23  |  3KB  |  77 lines
  1. /* Image File support code test */
  2.  
  3. Call RxFuncAdd 'RxgdLoadFuncs', 'RXGDUTIL', 'RxgdLoadFuncs'
  4.  
  5. Call RxgdLoadFuncs
  6.  
  7.   ims = RxgdImageCreate(85, 40)
  8.   imm = RxgdImageCreate(175, 60)
  9.   iml = RxgdImageCreate(200, 100)
  10.  
  11.  
  12.   sblack = RxgdImageColorAllocate(ims, 0, 0, 0,)
  13.   swhite = RxgdImageColorAllocate(ims, 255, 255, 255)
  14.   sgray  = RxgdImageColorAllocate(ims, 128, 128, 128)
  15.   sred   = RxgdImageColorAllocate(ims, 255, 0, 0)
  16.   sgreen = RxgdImageColorAllocate(ims, 0, 255, 0)
  17.   sblue  = RxgdImageColorAllocate(ims, 0, 0, 255)
  18.  
  19.   mblack = RxgdImageColorAllocate(imm, 0, 0, 0,)
  20.   mwhite = RxgdImageColorAllocate(imm, 255, 255, 255)
  21.   mgray  = RxgdImageColorAllocate(imm, 128, 128, 128)
  22.   mred   = RxgdImageColorAllocate(imm, 255, 0, 0)
  23.   mgreen = RxgdImageColorAllocate(imm, 0, 255, 0)
  24.   mblue  = RxgdImageColorAllocate(imm, 0, 0, 255)
  25.  
  26.   lblack = RxgdImageColorAllocate(iml, 0, 0, 0,)
  27.   lwhite = RxgdImageColorAllocate(iml, 255, 255, 255)
  28.   lgray  = RxgdImageColorAllocate(iml, 128, 128, 128)
  29.   lmred  = RxgdImageColorAllocate(iml, 200, 64, 64)
  30.   lgreen = RxgdImageColorAllocate(iml, 0, 255, 0)
  31.   lblue  = RxgdImageColorAllocate(iml, 0, 0, 194)
  32.   ldblue  = RxgdImageColorAllocate(iml, 0, 0, 128)
  33.   lmblue  = RxgdImageColorAllocate(iml, 0, 128,  64)
  34.  
  35.   Call RxgdImageFill ims, 0, 0, sgray
  36.   Call RxgdImageFill iml, 0, 0, lblue
  37.  
  38.   Call RxgdImageString ims, 'M', 3, 4, date(), sgreen
  39.   Call RxgdImageString ims, 'M',13, 24, time(), swhite
  40.  
  41.   Call RxgdImageCopyResized imm, ims, 0,0, 0,0, 175, 60, 85, 40
  42.  
  43.   brush = RxgdImageSetBrush(iml, imm)
  44.   Call RxgdImageLine iml, 100, 50, 100, 50, brush
  45.  
  46.   Call RxgdImageRectangle iml, 12, 20, 187, 80, lmblue
  47.   Call RxgdImageRectangle iml, 11, 19, 186, 79, lmblue
  48.  
  49.                 /*          X,   Y,   X,   Y  Color  */
  50.   Call RxgdImageLine iml,   0,   0,  11,  20, lmblue
  51.   Call RxgdImageLine iml,   1,   0,  12,  20, lmblue
  52.   Call RxgdImageLine iml,   0, 100,  11,  80, lmblue
  53.   Call RxgdImageLine iml,   1, 100,  12,  80, lmblue
  54.   Call RxgdImageLine iml, 186,  80, 199, 100, lmblue
  55.   Call RxgdImageLine iml, 187,  80, 200, 100, lmblue
  56.   Call RxgdImageLine iml, 186,  20, 199,   0, lmblue
  57.   Call RxgdImageLine iml, 187,  20, 200,   0, lmblue
  58.  
  59.   Call RxgdImageFill iml, 190, 90, ldblue
  60.   Call RxgdImageFill iml, 198, 90, ldblue
  61.  
  62.   Call RxgdImageString iml, 'S', 70,  7, 'AB SoftWare', lmred
  63.  
  64.   Call RxgdImageInterlace iml, 1
  65. /*Call RxgdImageColorTransparent iml, lgray */
  66.  
  67.   Call RxgdImageGIF iml, "GIFDate.GIF"
  68.  
  69.   Call RxgdImageDestroy ims
  70.   Call RxgdImageDestroy imm
  71.   Call RxgdImageDestroy iml
  72.  
  73.   Say 'All Done!'
  74.  
  75.   Call RxgdUnloadFuncs
  76.   Call RxFuncDrop 'RxgdLoadFuncs'
  77.