home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 21 / CD_ASCQ_21_040595.iso / dos / fr / mcshow10.exe / EXEMPLES / EX5 / DEMO5.MCT < prev   
Text File  |  1995-03-05  |  1KB  |  112 lines
  1. ' (C)opyright B.PINEDA
  2.  
  3. :LABEL DEBUT
  4. ..\..\IMAGES\FONT3 R 2
  5. ' On affiche l'image sans attribut d'effet
  6.  
  7. :AFFECT I1,10
  8. :RANDOM I1
  9. ' On choisit un attribut d'effet au hasard
  10.  
  11. :AFFECT I2,1
  12. :EVAL I1=I2
  13.  :GOSUB EFFET_1
  14.  
  15. :AFFECT I2,2
  16. :EVAL I1=I2
  17.  :GOSUB EFFET_2
  18.  
  19. :AFFECT I2,3
  20. :EVAL I1=I2
  21.  :GOSUB EFFET_3
  22.  
  23. :AFFECT I2,4
  24. :EVAL I1=I2
  25.  :GOSUB EFFET_4
  26.  
  27. :AFFECT I2,5
  28. :EVAL I1=I2
  29.  :GOSUB EFFET_5
  30.  
  31. :AFFECT I2,6
  32. :EVAL I1=I2
  33.  :GOSUB EFFET_6
  34.  
  35. :AFFECT I2,7
  36. :EVAL I1=I2
  37.  :GOSUB EFFET_7
  38.  
  39. :AFFECT I2,8
  40. :EVAL I1=I2
  41.  :GOSUB EFFET_8
  42.  
  43. :AFFECT I2,9
  44. :EVAL I1=I2
  45.  :GOSUB EFFET_9
  46.  
  47. :AFFECT I2,10
  48. :EVAL I1=I2
  49.  :GOSUB EFFET_10
  50.  
  51. :GOTO DEBUT
  52.  
  53. :LABEL EFFET_1
  54. :MERGEGRAPHIC ON
  55. :BLACK R 2
  56. :MERGEGRAPHIC OFF
  57. :RETURN
  58.  
  59. :LABEL EFFET_2
  60. :GREY ON
  61. ..\..\IMAGES\FONT3 R 2 
  62. :GREY OFF
  63. :RETURN
  64.  
  65. :LABEL EFFET_3
  66. :MONOCHROME ON
  67. ..\..\IMAGES\FONT3 R 2
  68. :MONOCHROME OFF
  69. :RETURN
  70.  
  71. :LABEL EFFET_4
  72. :NEGATIVE ON
  73. ..\..\IMAGES\FONT3 R 2 
  74. :NEGATIVE OFF
  75. :RETURN
  76.  
  77. :LABEL EFFET_5
  78. :MIRRORH ON
  79. ..\..\IMAGES\FONT3 R 2 
  80. :MIRRORH OFF
  81. :RETURN
  82.  
  83. :LABEL EFFET_6
  84. :MIRRORV ON
  85. ..\..\IMAGES\FONT3 R 2 
  86. :MIRRORV OFF
  87. :RETURN
  88.  
  89. :LABEL EFFET_7
  90. :MIRRORHV ON
  91. ..\..\IMAGES\FONT3 R 2 
  92. :MIRRORHV OFF
  93. :RETURN
  94.  
  95. :LABEL EFFET_8
  96. :REFLEXH ON
  97. ..\..\IMAGES\FONT3 R 2 
  98. :REFLEXH OFF
  99. :RETURN
  100.  
  101. :LABEL EFFET_9
  102. :REFLEXV ON
  103. ..\..\IMAGES\FONT3 R 2 
  104. :REFLEXV OFF
  105. :RETURN
  106.  
  107. :LABEL EFFET_10
  108. :REFLEXHV ON
  109. ..\..\IMAGES\FONT3 R 2 
  110. :REFLEXHV OFF
  111. :RETURN
  112.