home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 27 / amigaformatcd27.iso / -screenplay- / shareware / soliton / extras / cyber2soliton.ifx next >
Text File  |  1998-04-06  |  1KB  |  65 lines
  1. /*
  2. ** Convert CyberPatience cardsets to Soliton
  3. */
  4.  
  5. /*trace results*/
  6.  
  7. OPTIONS RESULTS
  8.  
  9. /* First we need to open rexxsupport library */
  10.  
  11.     if ~show('l', 'rexxsupport.library') then do
  12.        if ~addlib('rexxsupport.library', 0, -30, 0) then do
  13.           say 'Could not find rexxsupport.library'
  14.           return 10
  15.        end
  16.     end
  17.  
  18. Redraw Off ; Undo Off
  19. tlx=2;tly=1
  20. sizx=88;sizy=130
  21. sepx=90;sepy=131
  22. setpalette '-1' 0 0 0
  23. swap
  24. createbuffer sizx*14 sizy*4 force
  25. REDRAW
  26. setpalette '-1' 24 90 148
  27. SWAP
  28.  
  29. do y = 0 to 3
  30.   do x = 0 to 12
  31.     x1 = tlx+x*sepx; y1 = tly+y*sepy
  32.     Scissors 
  33.     Box x1 y1 sizx sizy
  34.     Swap
  35.     BrushHandle 0 0
  36.     Point x*sizx y*sizy
  37.     redraw x*sizx y*sizy sizx sizy
  38.     Swap
  39.   end
  40. end
  41. y=1;x=15
  42. x1 = tlx+x*sepx; y1 = tly+y*sepy
  43. Scissors 
  44. Box x1 y1 sizx sizy
  45. Swap
  46. BrushHandle 0 0
  47. Point 13*sizx 0
  48. Redraw 13*sizx 0 sizx sizy
  49. Swap
  50.  
  51. y=1;x=13
  52. x1 = tlx+x*sepx; y1 = tly+y*sepy
  53. Scissors 
  54. Box x1 y1 sizx sizy
  55. Swap
  56. BrushHandle 0 0
  57. Point 13*sizx sizy
  58. Redraw 13*sizx sizy sizx sizy
  59.  
  60.  
  61. killswap
  62. killbrush
  63.  
  64. Undo On ; Redraw On ; Redraw
  65.