home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / World_Of_Computer_Software-02-385-Vol-1of3.iso / t / timwin.zip / TIMWIN2.EXE / pak / DFRDCOL.CMD < prev    next >
OS/2 REXX Batch file  |  1992-08-05  |  2KB  |  89 lines
  1. ; TIMWIN Demo program 05/30/92       (c) TEA 1992
  2. ;
  3. ;dfrdcol  --  Free running colour DEMO 
  4. ;
  5. #define DfrdColour          1100
  6. #define Dfrd256Col          1110
  7. #define Dfrd4096Col         1120
  8. #define Dfrd256VGA          1130
  9. #define DfrdDithering       1140
  10.  
  11. #include timdefs.h
  12.  
  13. parms
  14.  int imode
  15.  file timhelp
  16.  int hmode
  17. endparms
  18.  
  19. int choice
  20. int nred = 1
  21. int ngreen = 1
  22. int nblue = 1
  23. int tmp
  24. int numdest = Dfrd256Col
  25. file destim = "h"
  26. file basename = "baboon"
  27.  
  28.  
  29. help timhelp DfrdColour 2
  30. print @cb2 " "
  31. cls
  32. repeat      ;until
  33.   scrs 1, 1
  34.  print @i @8 "TIMWIN Colour  -  Choose one of the following: " @r
  35.  print @cb2 @cf0 @8 "Return to the previous menu. . . . . . . . . . 0"  @r
  36.  print @cb3 @8 "Specify source image:"
  37.  print @cb2 @14     "BABOON . . . . . . . . . . . . . . . . . 1" 
  38.  print @cb2 @14     "MISS   . . . . . . . . . . . . . . . . . 2" 
  39.  print @cb3 @8 "Specify display method:"
  40.  print @cb2 @14     "Dithering  . . . . . . . . . . . . . . . 3" 
  41.  print @cb2 @14     "256 colours  . . . . . . . . . . . . . . 4"
  42.  print @cb2 @14     "4096 colours (12-bit FG only). . . . . . 5" 
  43.  print @cb3 @8 "Specify destination:" 
  44.  print @cb2 @14     "Frame grabber image  . . . . . . . . . . 6"
  45.  print @cb2 @14     "Windows image  . . . . . . . . . . . . . 7" 
  46.  
  47.  print @cb1 @8      "Go!  . . . . . . . . . . . . . . . . . . . . . 9", @r @cb2
  48.  choice = "        Enter your choice . . . . . . . . . . . . . > "
  49. print @cb2 " "
  50.  
  51.  switch choice
  52.     case 1:
  53.       basename = "baboon"
  54.     case 2:
  55.       basename = "miss"
  56.     case 3:
  57.       help timhelp DfrdDithering 2
  58.       nred = ngreen = nblue = 1
  59.     case 4:
  60.       help timhelp numdest 2
  61.       nred = nblue = 6
  62.       ngreen = 7
  63.     case 5:
  64.       help timhelp Dfrd4096Col 2
  65.       nred = ngreen = nblue = 16
  66.     case 6:
  67.       numdest = Dfrd256Col
  68.       dest p
  69.       era
  70.       zoom 1
  71.       destim = "p"
  72.     case 7:
  73.       numdest = Dfrd256VGA
  74.       dest h
  75.       era 
  76.       destim = "h"
  77.     case 9
  78.       if (tmp = run coluniv destim basename nred ngreen nblue) > 0
  79.         pause
  80.         cls
  81.       endif
  82.   endsw
  83.  
  84.  
  85. until choice == 0
  86. print @n " "
  87. cls
  88. stop
  89.