home *** CD-ROM | disk | FTP | other *** search
/ Chip: Paintnig & Drawing / Chip-Special-Malovani.bin / pp5 / ppnamini.inc < prev    next >
Text File  |  1994-12-05  |  13KB  |  208 lines
  1. DECLARE SUB CreateDTextrNamesIni(ini$)
  2.  
  3. DECLARE SUB CreateOptTextureNamesEntries(ini$)
  4.  
  5. DECLARE SUB CreateOptFXNamesEntries(ini$)
  6.  
  7. DECLARE SUB CreateOptPaletteNamesEntries(ini$)
  8.  
  9.  
  10. SUB CreateOptPaletteNamesEntries(ini$) STATIC
  11. szPalette$="Palette"
  12. CreateIniKeyValue ini$, szPalette$, "Artist Palette", "artist.pal", cmoNone
  13. CreateIniKeyValue ini$, szPalette$, "Aqua Hues Palette", "aquahues.pal", cmoNone
  14. CreateIniKeyValue ini$, szPalette$, "Baby Blue Hues Palette", "babyblue.pal", cmoNone
  15. CreateIniKeyValue ini$, szPalette$, "Blue Hues Palette", "bluehues.pal", cmoNone
  16. CreateIniKeyValue ini$, szPalette$, "Blue Palette", "blue.pal", cmoNone
  17. CreateIniKeyValue ini$, szPalette$, "Crayon Palette", "crayon.pal", cmoNone
  18. CreateIniKeyValue ini$, szPalette$, "Cyan Hues Palette", "cyanhues.pal", cmoNone
  19. CreateIniKeyValue ini$, szPalette$, "Cyan Palette", "cyan.pal", cmoNone
  20. CreateIniKeyValue ini$, szPalette$, "Default Palette", "default.pal", cmoNone
  21. CreateIniKeyValue ini$, szPalette$, "Fleshtone Palette", "flesh.pal", cmoNone
  22. CreateIniKeyValue ini$, szPalette$, "Fucia Hues Palette", "fuciahue.pal", cmoNone
  23. CreateIniKeyValue ini$, szPalette$, "Grays", "grayscal.pal", cmoNone
  24. CreateIniKeyValue ini$, szPalette$, "Green Hues Palette", "greenhue.pal", cmoNone
  25. CreateIniKeyValue ini$, szPalette$, "Green Palette", "green.pal", cmoNone
  26. CreateIniKeyValue ini$, szPalette$, "Hue-Light Palette", "huelight.pal", cmoNone
  27. CreateIniKeyValue ini$, szPalette$, "Hue-Light 50 Palette", "huelite5.pal", cmoNone
  28. CreateIniKeyValue ini$, szPalette$, "Lime Hues Palette", "limehues.pal", cmoNone
  29. CreateIniKeyValue ini$, szPalette$, "Magenta Hues Palette", "magentah.pal", cmoNone
  30. CreateIniKeyValue ini$, szPalette$, "Magenta Palette", "magenta.pal", cmoNone
  31. CreateIniKeyValue ini$, szPalette$, "Master Palette", "mstrwork.pal", cmoNone
  32. CreateIniKeyValue ini$, szPalette$, "Natural Palette", "natural.pal", cmoNone
  33. CreateIniKeyValue ini$, szPalette$, "Orange Hues Palette", "orangehu.pal", cmoNone
  34. CreateIniKeyValue ini$, szPalette$, "Purple Hues Palette", "purplehu.pal", cmoNone
  35. CreateIniKeyValue ini$, szPalette$, "Red Palette", "red.pal", cmoNone
  36. CreateIniKeyValue ini$, szPalette$, "Red Hues Palette", "redhues.pal", cmoNone
  37. CreateIniKeyValue ini$, szPalette$, "Yellow Hues Palette", "yellowhu.pal", cmoNone
  38. CreateIniKeyValue ini$, szPalette$, "Yellow Palette", "yellow.pal", cmoNone
  39.  
  40. END SUB
  41. '*************************************************************************
  42.  
  43. SUB CreateDTextrNamesIni(ini$) STATIC
  44.  
  45. CreateIniKeyValue ini$, "Texture", "Checkerboard", "CHECKER.TIF", cmoNone
  46. CreateIniKeyValue ini$, "Texture", "Checkerboard 3D", "CHECK3D.TIF", cmoNone
  47. CreateIniKeyValue ini$, "Texture", "Marble 1",  "MARBLE1.TIF", cmoNone
  48.  
  49. CreateIniKeyValue ini$, "TextureStyle", "Checkerboard", "CHECKER.MBS", cmoNone
  50. CreateIniKeyValue ini$, "TextureStyle", "Checkerboard 3D", "CHECK3D.MBS", cmoNone
  51. END SUB
  52. '*************************************************************************
  53. SUB CreateOptTextureNamesEntries (ini$) STATIC
  54.  
  55. szName$="Texture"
  56. szName2$="TextureStyle"
  57. RemoveIniKey ini$, szName$, "Checkerboard",  cmoNone
  58. RemoveIniKey ini$, szName$, "Checkerboard 3D",  cmoNone
  59. CreateIniKeyValue ini$, szName$, "Basket Weave 1", "BASKET1.TIF", cmoNone
  60. CreateIniKeyValue ini$, szName2$, "Basket Weave 1", "BASKET1.MBS", cmoNone
  61. CreateIniKeyValue ini$, szName$, "Brick 1", "BRICK1.TIF", cmoNone
  62. CreateIniKeyValue ini$, szName2$, "Brick 1", "BRICK1.MBS", cmoNone
  63. CreateIniKeyValue ini$, szName$, "Brick 2", "BRICK2.TIF", cmoNone
  64. CreateIniKeyValue ini$, szName2$, "Brick 2",  "BRICK2.MBS", cmoNone
  65. CreateIniKeyValue ini$, szName$, "Brick 3",  "BRICK3.TIF", cmoNone
  66. CreateIniKeyValue ini$, szName2$, "Brick 3", "BRICK3.MBS", cmoNone
  67. CreateIniKeyValue ini$, szName$, "Brick 4",  "BRICK4.TIF", cmoNone
  68. CreateIniKeyValue ini$, szName2$, "Brick 4",  "BRICK4.MBS", cmoNone
  69. CreateIniKeyValue ini$, szName$, "Brick 5", "BRICK5.TIF", cmoNone
  70. CreateIniKeyValue ini$, szName2$, "Brick 5",  "BRICK5.MBS", cmoNone
  71. CreateIniKeyValue ini$, szName$, "Brick 6",  "BRICK6.TIF", cmoNone
  72. CreateIniKeyValue ini$, szName2$, "Brick 6",  "BRICK6.MBS", cmoNone
  73. CreateIniKeyValue ini$, szName$, "Brick 7",  "BRICK7.TIF", cmoNone
  74. CreateIniKeyValue ini$, szName2$, "Brick 7", "BRICK7.MBS", cmoNone
  75. CreateIniKeyValue ini$, szName$, "Brick 8",  "BRICK8.TIF", cmoNone
  76. CreateIniKeyValue ini$, szName2$, "Brick 8",  "BRICK8.MBS", cmoNone
  77. CreateIniKeyValue ini$, szName$, "Ceramic Tile",  "CERAMIC1.TIF", cmoNone
  78. CreateIniKeyValue ini$, szName2$, "Ceramic Tile",  "CERAMIC1.MBS", cmoNone
  79. CreateIniKeyValue ini$, szName$, "Checkerboard", "CHECKER.TIF", cmoNone
  80. CreateIniKeyValue ini$, szName$, "Checkerboard 3D", "CHECK3D.TIF", cmoNone
  81.  
  82. CreateIniKeyValue ini$, szName$, "Fabric 1",  "FABRIC1.TIF", cmoNone
  83. CreateIniKeyValue ini$, szName2$, "Fabric 1",  "FABRIC1.MBS", cmoNone
  84. CreateIniKeyValue ini$, szName$, "Filter 1",  "FILTER1.TIF", cmoNone
  85. CreateIniKeyValue ini$, szName2$, "Filter 1", "FILTER1.MBS", cmoNone
  86. CreateIniKeyValue ini$, szName$, "Glass Brick",  "GLASTIL1.TIF", cmoNone
  87. CreateIniKeyValue ini$, szName2$, "Glass Brick",  "GLASTIL1.MBS", cmoNone
  88. CreateIniKeyValue ini$, szName$, "Granite 1",  "GRANITE1.TIF", cmoNone
  89. CreateIniKeyValue ini$, szName2$, "Granite 1",  "GRANITE1.MBS", cmoNone
  90. CreateIniKeyValue ini$, szName$, "Granite 2",  "GRANITE2.TIF", cmoNone
  91. CreateIniKeyValue ini$, szName2$, "Granite 2",  "GRANITE2.MBS", cmoNone
  92.  
  93. CreateIniKeyValue ini$, szName2$, "Marble 1",  "MARBLE1.MBS", cmoNone
  94. CreateIniKeyValue ini$, szName$, "Marble 2",  "MARBLE2.TIF", cmoNone
  95. CreateIniKeyValue ini$, szName2$, "Marble 2",  "MARBLE2.MBS", cmoNone
  96. CreateIniKeyValue ini$, szName$, "Marble 3",  "MARBLE3.TIF", cmoNone
  97. CreateIniKeyValue ini$, szName2$, "Marble 3",  "MARBLE3.MBS", cmoNone
  98.  
  99. CreateIniKeyValue ini$, szName$, "Padding 1",  "PADDING1.TIF", cmoNone
  100. CreateIniKeyValue ini$, szName2$, "Padding 1",  "PADDING1.MBS", cmoNone
  101. CreateIniKeyValue ini$, szName$, "Paper Clips", "PCLIPS1.TIF", cmoNone
  102. CreateIniKeyValue ini$, szName2$, "Paper Clips",  "PCLIPS1.MBS", cmoNone
  103. CreateIniKeyValue ini$, szName$, "Ribbed Cement",  "RIBCEMT1.TIF", cmoNone
  104. CreateIniKeyValue ini$, szName2$, "Ribbed Cement",  "RIBCEMT1.MBS", cmoNone
  105. CreateIniKeyValue ini$, szName$, "Rug 1",  "RUG1.TIF", cmoNone
  106. CreateIniKeyValue ini$, szName2$, "Rug 1",  "RUG1.MBS", cmoNone
  107. CreateIniKeyValue ini$, szName$, "Rug 2",  "RUG2.TIF", cmoNone
  108. CreateIniKeyValue ini$, szName2$, "Rug 2",  "RUG2.MBS", cmoNone
  109. CreateIniKeyValue ini$, szName$, "Rug 3",  "RUG3.TIF", cmoNone
  110. CreateIniKeyValue ini$, szName2$, "Rug 3",  "RUG3.MBS", cmoNone
  111. CreateIniKeyValue ini$, szName$, "Screen 1", "SCREEN1.TIF", cmoNone
  112. CreateIniKeyValue ini$, szName2$, "Screen 1", "SCREEN1.MBS", cmoNone
  113. CreateIniKeyValue ini$, szName$, "Stucco 1", "STUCCO1.TIF", cmoNone
  114. CreateIniKeyValue ini$, szName2$, "Stucco 1", "STUCCO1.MBS", cmoNone
  115. CreateIniKeyValue ini$, szName$, "Stucco 2", "STUCCO2.TIF", cmoNone
  116. CreateIniKeyValue ini$, szName2$, "Stucco 2", "STUCCO2.MBS", cmoNone
  117. CreateIniKeyValue ini$, szName$, "Stucco 3", "STUCCO3.TIF", cmoNone
  118. CreateIniKeyValue ini$, szName2$, "Stucco 3", "STUCCO3.MBS", cmoNone
  119. CreateIniKeyValue ini$, szName$, "Vinyl 1",  "VINYL1.TIF", cmoNone
  120. CreateIniKeyValue ini$, szName2$, "Vinyl 1", "VINYL1.MBS", cmoNone
  121. CreateIniKeyValue ini$, szName$, "Wood Parquet 1",  "PARQUET1.TIF", cmoNone
  122. CreateIniKeyValue ini$, szName2$, "Wood Parquet 1",  "PARQUET1.MBS", cmoNone
  123. CreateIniKeyValue ini$, szName$, "Wood Parquet 2",  "PARQUET2.TIF", cmoNone
  124. CreateIniKeyValue ini$, szName2$, "Wood Parquet 2",  "PARQUET2.MBS", cmoNone
  125. END SUB
  126. '*************************************************************************
  127. SUB CreateOptFXNamesEntries(ini$) STATIC
  128. szSpecial$="Special"
  129. szArt$="Artistic>"
  130. szCA$="Color Adjust>"
  131. szD$="Distortion>"
  132. szPh$="Photographic>"
  133. szTx$="Texture>"
  134. szTD$="Three Dimensional>"
  135. CreateIniKeyValue ini$, szSpecial$, szArt$+"Charcoal",  "charcoal.dfx", cmoNone
  136. CreateIniKeyValue ini$, szSpecial$, szArt$+"Oil Painting","oils.dfx",cmoNone
  137. CreateIniKeyValue ini$, szSpecial$, szArt$+"Pop Art","popart.dfx",cmoNone
  138. CreateIniKeyValue ini$, szSpecial$, szArt$+"Pastel","pastel.dfx",cmoNone
  139. CreateIniKeyValue ini$, szSpecial$, szArt$+"Watercolor","colorbok.dfx",cmoNone
  140. CreateIniKeyValue ini$, szSpecial$, szCA$+"Color Saturation","saturate.dfx", cmoNone
  141. CreateIniKeyValue ini$, szSpecial$, szCA$+"Color Balance","balance.dfx", cmoNone
  142. CreateIniKeyValue ini$, szSpecial$, szCA$+"Contrast/Brightness","contbrit.dfx", cmoNone
  143. CreateIniKeyValue ini$, szSpecial$, szCA$+"Dither","dither.dfx", cmoNone
  144. CreateIniKeyValue ini$, szSpecial$, szCA$+"Gamma Correction","gamma.dfx", cmoNone
  145. CreateIniKeyValue ini$, szSpecial$, szCA$+"Hue Adjustment","hue.dfx", cmoNone
  146. CreateIniKeyValue ini$, szSpecial$, szCA$+"Posterize","poster.dfx", cmoNone
  147. CreateIniKeyValue ini$, szSpecial$, szCA$+"Threshold","thresh.dfx", cmoNone
  148. CreateIniKeyValue ini$, szSpecial$, szD$+"Add Noise","noise.dfx",cmoNone
  149. CreateIniKeyValue ini$, szSpecial$, szD$+"Blur","blur.dfx",cmoNone
  150. CreateIniKeyValue ini$, szSpecial$, szD$+"Color Noise","cnoise.dfx",cmoNone
  151. CreateIniKeyValue ini$, szSpecial$, szD$+"Edge Detection","edge.dfx",cmoNone
  152. CreateIniKeyValue ini$, szSpecial$, szD$+"Gaussian Blur","gaussian.dfx",cmoNone
  153. CreateIniKeyValue ini$, szSpecial$, szD$+"Graphic Pen","gpen.dfx",cmoNone
  154. CreateIniKeyValue ini$, szSpecial$, szD$+"Motion Blur","motion.dfx",cmoNone
  155. CreateIniKeyValue ini$, szSpecial$, szD$+"Polar To Rectangular","pol2rect.dfx",cmoNone
  156. CreateIniKeyValue ini$, szSpecial$, szD$+"Prism","prism.dfx",cmoNone
  157. CreateIniKeyValue ini$, szSpecial$, szD$+"Tunnel","rect2pol.dfx",cmoNone
  158. CreateIniKeyValue ini$, szSpecial$, szD$+"Twirl","twirl.dfx",cmoNone
  159. CreateIniKeyValue ini$, szSpecial$, szD$+"Wave","wave.dfx",cmoNone
  160. CreateIniKeyValue ini$, szSpecial$, szD$+"Wind","wind.dfx",cmoNone
  161. CreateIniKeyValue ini$, szSpecial$, szD$+"User Defined","kernal.dfx",cmoNone
  162. CreateIniKeyValue ini$, szSpecial$, szPh$+"Despeckle","despeckl.dfx",cmoNone
  163. CreateIniKeyValue ini$, szSpecial$, szPh$+"Remove Pattern","moire.dfx",cmoNone
  164. CreateIniKeyValue ini$, szSpecial$, szPh$+"Smooth","smooth.dfx",cmoNone
  165. CreateIniKeyValue ini$, szSpecial$, szPh$+"Sharpen","sharpen.dfx",cmoNone
  166. CreateIniKeyValue ini$, szSpecial$, szPh$+"Stretch Detail","stretch.dfx",cmoNone
  167. CreateIniKeyValue ini$, szSpecial$, szPh$+"Unsharp Mask","unsharp.dfx",cmoNone
  168. CreateIniKeyValue ini$, szSpecial$, szTx$+"Crystallize","crystal.dfx",cmoNone
  169. CreateIniKeyValue ini$, szSpecial$, szTx$+"Disturb","disturb.dfx",cmoNone
  170. CreateIniKeyValue ini$, szSpecial$, szTx$+"Emboss","emboss.dfx",cmoNone
  171. CreateIniKeyValue ini$, szSpecial$, szTx$+"Engrave","engrave.dfx",cmoNone
  172. CreateIniKeyValue ini$, szSpecial$, szTx$+"Facet","facet.dfx",cmoNone
  173. CreateIniKeyValue ini$, szSpecial$, szTx$+"Metal","metal.dfx",cmoNone
  174. CreateIniKeyValue ini$, szSpecial$, szTx$+"Mosaic","mosaic.dfx",cmoNone
  175. CreateIniKeyValue ini$, szSpecial$, szTx$+"Pixelize","pixelize.dfx",cmoNone
  176. CreateIniKeyValue ini$, szSpecial$, szTx$+"Splatter","splatter.dfx",cmoNone
  177. CreateIniKeyValue ini$, szSpecial$, szTx$+"Stucco","stucco.dfx",cmoNone
  178. CreateIniKeyValue ini$, szSpecial$, szTD$+"Cylinder","cylinder.dfx",cmoNone
  179. CreateIniKeyValue ini$, szSpecial$, szTD$+"Pillow","pillow.dfx",cmoNone
  180. CreateIniKeyValue ini$, szSpecial$, szTD$+"Pinch","pinch.dfx",cmoNone
  181. CreateIniKeyValue ini$, szSpecial$, szTD$+"Punch","punch.dfx",cmoNone
  182. CreateIniKeyValue ini$, szSpecial$, szTD$+"Sphere","sphere.dfx",cmoNone
  183.  
  184. szMacro$="Macro"
  185. CreateIniKeyValue ini$, szMacro$, "Texture - Wood (Vertical)", "Texture.clm", cmoNone
  186. CreateIniKeyValue ini$, szMacro$, "Texture - Wood (Horizontal)", "Texture0.clm", cmoNone
  187. CreateIniKeyValue ini$, szMacro$, "Texture - Wood (Diagonal)", "Texture1.clm", cmoNone
  188. CreateIniKeyValue ini$, szMacro$, "Texture - Steel (Vertical)", "Texture2.clm", cmoNone
  189. CreateIniKeyValue ini$, szMacro$, "Texture - Steel (Horizontal)", "Texture3.clm", cmoNone
  190. CreateIniKeyValue ini$, szMacro$, "Texture - Steel (Diagonal)", "Texture4.clm", cmoNone
  191. CreateIniKeyValue ini$, szMacro$, "Texture - Marble(Red)", "Texture5.clm", cmoNone
  192. CreateIniKeyValue ini$, szMacro$, "Texture - Marble(Orange)", "Texture6.clm", cmoNone
  193. CreateIniKeyValue ini$, szMacro$, "Texture - Marble(Yellow)", "Texture7.clm", cmoNone
  194. CreateIniKeyValue ini$, szMacro$, "Texture - Marble(Green)", "Texture8.clm", cmoNone
  195. CreateIniKeyValue ini$, szMacro$, "Texture - Marble(Dark Green)", "Texture9.clm", cmoNone
  196. CreateIniKeyValue ini$, szMacro$, "Texture - Marble(Green/Blue)", "Textur10.clm", cmoNone
  197. CreateIniKeyValue ini$, szMacro$, "Texture - Marble(Cyan)", "Textur11.clm", cmoNone
  198. CreateIniKeyValue ini$, szMacro$, "Texture - Marble(Light Blue)", "Textur12.clm", cmoNone
  199. CreateIniKeyValue ini$, szMacro$, "Texture - Marble(Blue)", "Textur13.clm", cmoNone
  200. CreateIniKeyValue ini$, szMacro$, "Texture - Marble(Purple)", "Textur14.clm", cmoNone
  201. CreateIniKeyValue ini$, szMacro$, "Texture - Marble(Pink)", "Textur15.clm", cmoNone
  202. CreateIniKeyValue ini$, szMacro$, "Texture - Marble(Magenta)", "Textur16.clm", cmoNone
  203.  
  204.  
  205.  
  206. END SUB
  207.  
  208.