home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format 61 / af061a.adf / Macros / SGB-Demo.clssa < prev    next >
Text File  |  1993-05-01  |  3KB  |  169 lines
  1. /***********************************************************************
  2.  GADGET: "'ScreenGrabber Demo'" "4" AUTO TYP: "?"
  3.  
  4.  $DAT >>SGB-Demo.clssa<< 01 May 1993 - (C) ProDAD Holger Burkarth
  5. ************************************************************************/
  6.  
  7. Options Results
  8. Address clariSSA
  9.  
  10.   GetPref
  11.   MerkePref=RESULT
  12.   IF FIND(RESULT,"LaceCompensation")>0 THEN PV=1
  13.   ELSE                                      PV=0
  14.  
  15.   BOOLRequest "'*** ScreenGrabber Demo ***''''This Demo displays some''of the functions of clariSSA.''Are you ready?'"
  16.   IF RESULT="NO" | RC > 0 THEN exit
  17.  
  18.   rec="RECORD RECORD RECORD RECORD RECORD RECORD RECORD RECORD"
  19.  
  20.   RequestStatus OFF
  21.   OpenAnim MASTER FORMAT 800 512 2 VIEWMODE HIRES LACE
  22.   RequestStatus ON
  23.   IF PV=1 THEN SetPref LaceCompensation ON
  24.  
  25.   SetPlayMode Close
  26.   SetEditMode Close
  27.   SetPref Close
  28.   HelpRequester Close
  29.   CloseColorRequester
  30.  
  31.   SetScreenGrabber REQ TRIGGER 1 PUBSCREEN "'SSA Screen'"
  32.  
  33.   IF VP=1 THEN DO
  34.     MonitorWindow PROFILE INSIDE EDIT INSIDE
  35.     SetMonitorWindow PROFILE 0 0 300 100 EDIT 240 0 0 0
  36.     MonitorWindow PROFILE OUTSIDE EDIT OUTSIDE
  37.  
  38.     x=0
  39.     DO UNTIL x>100
  40.       SetScreenGrabber RECORD
  41.       IF RC~=0 THEN exit
  42.       MonitorWindow PROFILE INSIDE EDIT INSIDE
  43.       SetMonitorWindow  EDIT 240-x x 0 0 PROFILE x x 300 100
  44.       MonitorWindow EDIT OUTSIDE PROFILE OUTSIDE
  45.       SetArea Full
  46.       x=x+4
  47.     END
  48.  
  49.     MonitorWindow PROFILE INSIDE EDIT INSIDE
  50.     SetScreenGrabber RECORD RECORD
  51.     IF RC~=0 THEN exit
  52.  
  53.     x=0
  54.     DO UNTIL x>100
  55.       ViewFrame UP
  56.       SetScreenGrabber RECORD RECORD
  57.       IF RC~=0 THEN exit
  58.       x=x+12
  59.     END
  60.  
  61.     x=0
  62.     DO UNTIL x>100
  63.       ViewFrame DOWN
  64.       SetScreenGrabber RECORD RECORD
  65.       IF RC~=0 THEN exit
  66.       x=x+12
  67.     END
  68.  
  69.     SetMonitorDisplay EDIT
  70.     SetScreenGrabber rec
  71.     IF RC~=0 THEN exit
  72.     SetArea Full
  73.   END
  74.  
  75.  
  76.   SetMonitorDisplay FORMAT
  77.   SetScreenGrabber rec
  78.   IF RC~=0 THEN exit
  79.  
  80.   SetMonitorDisplay BiZet
  81.   SetScreenGrabber rec
  82.   IF RC~=0 THEN exit
  83.  
  84.   GadgetTitle View 1
  85.   SetScreenGrabber rec
  86.   IF RC~=0 THEN exit
  87.  
  88.   GadgetTitle View 2
  89.   SetScreenGrabber rec
  90.   IF RC~=0 THEN exit
  91.  
  92.   GadgetTitle View 3
  93.   SetScreenGrabber rec
  94.   IF RC~=0 THEN exit
  95.  
  96.   GadgetTitle View 4
  97.   SetScreenGrabber rec
  98.   IF RC~=0 THEN exit
  99.  
  100.   IF PV=1 THEN DO
  101.     SetMonitorDisplay PROFILE
  102.     ViewFrame 1
  103.     SetArea Full
  104.     x=0
  105.     DO UNTIL x>100
  106.       ViewFrame UP 5
  107.       SetScreenGrabber RECORD
  108.       IF RC~=0 THEN exit
  109.       x=x+6
  110.     END
  111.   END
  112.  
  113.   SetPlayMode REQ
  114.   SetScreenGrabber rec
  115.   IF RC~=0 THEN exit
  116.   SetEditMode REQ
  117.   SetScreenGrabber rec
  118.   IF RC~=0 THEN exit
  119.   SetPref REQ
  120.   SetScreenGrabber rec
  121.   IF RC~=0 THEN exit
  122.   HelpRequester REQ
  123.   SetScreenGrabber rec
  124.   IF RC~=0 THEN exit
  125.  
  126.   OpenColorRequester
  127.   SetBasicScreen TO 0 160
  128.   SetArea Full
  129.   ViewFrame 1
  130.   x=0
  131.   DO UNTIL x>255
  132.     ViewFrame UP 2
  133.     SetColor 0 x x x
  134.     SetScreenGrabber RECORD
  135.     IF RC~=0 THEN exit
  136.     x=x+8
  137.   END
  138.  
  139.   x=0
  140.   DO UNTIL x>255
  141.     ViewFrame UP 2
  142.     SetColor 0 255-x 127 x
  143.     SetScreenGrabber RECORD
  144.     IF RC~=0 THEN exit
  145.     x=x+8
  146.   END
  147.   CloseColorRequester
  148.  
  149.   SetArea Full
  150.   SetPlayMode FOREVER OFF MOUSESTART OFF SlowPlay OFF
  151.   PlayAnim
  152.   SetPlayMode SlowPlay ON
  153.   PlayAnim
  154.  
  155.   SetWorkScreen FRONT
  156.   x=0
  157.   DO UNTIL x>50
  158.     SetWorkScreen MOVE 0 8
  159.     x=x+1
  160.   END
  161.  
  162.  
  163.   SetWorkScreen TO 0 0
  164.   SetBasicScreen FRONT
  165.  
  166.   SetArea Full
  167.  
  168. exit
  169.