home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 4 / FreshFish_May-June1994.bin / new / gfx / fract / mand2000d / arexx / printattr.mnd2 < prev    next >
Text File  |  1993-09-27  |  3KB  |  116 lines
  1. /* This script is supplied with the Mand2000 demo and release */
  2. /* versions and may be freely distributed. */
  3. /* Copyright 1993 Cygnus Software. */
  4.  
  5. /* Print the attributes of the current project, or entire program. */
  6. /* Pass 'project' or 'global' as a parameter.  Default is global. */
  7.  
  8. /* Typically this command is run from the menus which are */
  9. /* installed by the default startup.mnd2 script. */
  10.  
  11. portname = address()    /* Retrieve the current port name. */
  12. /* If the portname does not start with MAND2000 then this script must */
  13. /* have been run with rx, rather than from Mand2000.  Therefore we */
  14. /* need to set the port name.  We do not always set the port name */
  15. /* because it is better to let Mand2000 set it for us, so that */
  16. /* this script can be used with windows other than the one with */
  17. /* port name MAND2000.1. */
  18. if (left(portname, 8) ~= "MAND2000") THEN
  19.     address 'MAND2000.1'
  20.  
  21. parse arg command
  22.  
  23. command = upper(command)    /* Make sure the command is in upper case. */
  24.  
  25. say
  26.  
  27. if (command = PROJECT) THEN DO
  28.  
  29.     getattr stem MYVAR
  30.  
  31.     Call PrintMember(left)
  32.     Call PrintMember(right)
  33.     Call PrintMember(top)
  34.     Call PrintMember(bottom)
  35.     Call PrintMember(centerx)
  36.     Call PrintMember(centery)
  37.     /* Julia fractal types are always odd. */
  38.     if ((MYVar.FRACTALTYPE // 2) = 1) THEN DO
  39.         Call PrintMember(juliax)
  40.         Call PrintMember(juliay)
  41.         END
  42.     Call PrintMember(maxiters)
  43.     Call PrintMember(pause)
  44.     Call PrintMember(done)
  45.     Call PrintMember(permillage)
  46.     Call PrintMember(fractaltype)
  47.     Call PrintMember(drawlevel)
  48.     Call PrintMember(backdrop)
  49.     Call PrintMember(width)
  50.     Call PrintMember(height)
  51.     Call PrintMember(drawwidth)
  52.     Call PrintMember(drawheight)
  53.     Call PrintMember(numzooms)
  54.     Call PrintMember(extraacc)
  55.     Call PrintMember(precision)
  56.     Call PrintMember(arexx)
  57.     Call PrintMember(masterarexx)
  58.     Call PrintMember(filename)
  59.     Call PrintMember(file)
  60.     Call PrintMember(morphfactor)
  61.     Call PrintMember(colourmaptype)
  62.     Call PrintMember(colourmapskip)
  63.     Call PrintMember(colourmapoffset)
  64.     Call PrintMember(mousex)
  65.     Call PrintMember(mousey)
  66.     Call PrintMember(morph.making)
  67.     if (MYVAR.morph.making = 1) THEN DO
  68.         Call PrintMember(morph.framesleft)
  69.         Call PrintMember(morph.framenum)
  70.         Call PrintMember(morph.basename)
  71.         Call PrintMember(morph.endfactor)
  72.         END
  73.     Call PrintMember(movie.making)
  74.     if (MYVAR.movie.making = 1) THEN DO
  75.         Call PrintMember(movie.framesleft)
  76.         Call PrintMember(movie.framenum)
  77.         Call PrintMember(movie.basename)
  78.         Call PrintMember(movie.tweening)
  79.         Call PrintMember(movie.zoomx)
  80.         Call PrintMember(movie.zoomy)
  81.         Call PrintMember(movie.zoomamount)
  82.         END
  83.     END
  84. ELSE DO
  85.  
  86.     address MAND2000
  87.  
  88.     getattr stem MYVAR
  89.  
  90.     Call PrintMember(version)
  91.     /* Print the number of windows open. */
  92.     Call PrintMember(count)
  93.     /* Print all of their ARexx port names. */
  94.     DO i = 1 to MYVAR.count
  95.         Call PrintMember(i - 1)
  96.         END
  97.     Call PrintMember(priority)
  98.     Call PrintMember(palette)
  99.     Call PrintMember(zoomspeed)
  100.     Call PrintMember(workbench)
  101.     Call PrintMember(screendepth)
  102.     Call PrintMember(screenwidth)
  103.     Call PrintMember(screenheight)
  104.     Call PrintMember(displayid)
  105.     END
  106.  
  107. say 
  108. exit
  109.  
  110.  
  111.  
  112. PrintMember:
  113.     arg x
  114.     say x "is equal to" myvar.x
  115.     return 0
  116.