home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / GFX / Painting / DIGIPAINTIII.DMS / in.adf / HeyStuff / DemoStartUp < prev    next >
Encoding:
Text File  |  1989-07-12  |  2.6 KB  |  121 lines
  1. HeyStuff/onemegtest
  2. c:if NOT WARN
  3.  
  4. c:copy c:delete ram:
  5. c:copy c:copy ram:
  6. ram:copy heystuff/DemoContinued ram:
  7. ram:copy c:run ram:
  8. ram:copy c:execute ram:
  9. ram:copy c:echo ram:
  10.  
  11. ram:copy heystuff/hey ram:
  12. ram:copy c:wait ram:
  13.  
  14. echo " "
  15. echo "To Exit the DigiPaint3_Demo;"
  16. echo "  Press Left-Amiga N, to get to Workbench."
  17. echo "  Then Double-Click the QuitDemo icon."
  18.  
  19. changetaskpri -1
  20. ram:run >NIL: DigiPaint
  21. wait 15
  22. changetaskpri 0
  23. cd ram:
  24. ;assign c: ram:
  25.  
  26. Hey DigiPaint Aoff 'all modes off'
  27. Hey DigiPaint Frbx front box, bring digipaint screens 'to front'
  28. Hey DigiPaint Ugad gadget display / screen really-arrange
  29.  
  30. Hey DigiPaint Load
  31. ;Hey DigiPaint Dnam:Images
  32. Hey DigiPaint FnamImages/Fashion
  33. Hey DigiPaint Okls ok load/save (file requester button)
  34. Hey DigiPaint Pfil palette from file
  35. Hey DigiPaint Oklo ok load (palette, shrink, ok, cancel buttons)
  36.  
  37. Hey DigiPaint Cpic Copy picture to swap screen
  38.  
  39.     ;show regular tool gadgets
  40. Hey DigiPaint Frbx
  41. Hey DigiPaint Ugad
  42.   wait 2
  43.     ;show palette tools
  44. Hey DigiPaint Pale palette 
  45. Hey DigiPaint Ugad 
  46.   wait 2
  47.     ;show text gadgets
  48. Hey DigiPaint Txbt text
  49. Hey DigiPaint Ugad
  50.   wait 2
  51.     ;show string in string gadget
  52. Hey DigiPaint TvarDigiPaint3
  53. Hey DigiPaint Ugad
  54.   wait 2
  55.  
  56.     ;load cinna-font
  57. Hey DigiPaint Font
  58. Hey DigiPaint Fnamfonts/Cinnamon/41
  59. ;Hey DigiPaint Ugad
  60. Hey DigiPaint Okls
  61. Hey DigiPaint Clbx close/end file requester (in case font load failed)
  62. Hey DigiPaint Ugad re-show gadgets
  63. Hey DigiPaint Tstr cuts out brush
  64. Hey DigiPaint Bcop copies brush to swapbrush
  65.  
  66. Hey DigiPaint Pend 160 50
  67. Hey DigiPaint Penu
  68. Hey DigiPaint Frbx
  69. Hey DigiPaint Pmso
  70. Hey DigiPaint Pend 161 51
  71. Hey DigiPaint Penu
  72. Hey DigiPaint Pmcl normal paint
  73. Hey DigiPaint Dotb dot brush....so brush doesnt redisplay with Ugad
  74.  
  75.  
  76.  
  77.  
  78. Hey DigiPaint Ctrl sliders
  79. Hey DigiPaint Ugad
  80.   wait 1
  81. Hey DigiPaint Hvar hor/ver shading select
  82. Hey DigiPaint Ugad
  83.   wait 1
  84. Hey DigiPaint Harr hor shading select
  85. Hey DigiPaint Ugad
  86.   wait 1
  87. Hey DigiPaint Varr ver shading select
  88. Hey DigiPaint Ugad
  89.   wait 1
  90. Hey DigiPaint Hvof hor/ver off - no shading select
  91. Hey DigiPaint Ctrl sliders
  92. Hey DigiPaint Ugad
  93.   wait 2
  94.  
  95.  
  96. Hey DigiPaint Frbx
  97. Hey DigiPaint Ugad
  98.  
  99. ;Hey DigiPaint Bswa brush swap, "digipaint" now current-brush
  100.  
  101.  
  102. ;;make eyes 'bigger' ("eyes" are in swap brush)
  103. ;Hey DigiPaint Sizi
  104. ;Hey DigiPaint Aaon anti-alias on (blow-up//enlarges go fast)
  105. ;Hey DigiPaint Dotb
  106. ;Hey DigiPaint Drre
  107. ;Hey DigiPaint Flon
  108. ;Hey DigiPaint Pend 47 04
  109. ;Hey DigiPaint Penu 267 96
  110. ;;Hey DigiPaint Undo
  111. ;Hey DigiPaint Bswa swap/restore other brush
  112.  
  113.  
  114.  
  115. ;Hey DigiPaint Babx sends digipaint to 'back', so we can see workbench
  116. ;echo " "
  117. ;echo "Click in this window and type CTRL-C to stop the demo."
  118. ;  wait 2
  119.  
  120. execute DemoContinued
  121. endif