Programmer 7500

home *** CD-ROM | disk | FTP | other *** search

/ Programmer 7500 / MAX_PROGRAMMERS.iso / VISUAL_B / ARQS_ZIP / EXRAST.ZIP / RASTFUNC.TXT < prev next >

Wrap

Text File | 1992-07-23 | 8.6 KB | 521 lines

'Visual Basic Function with complete set of raster operations Function GetRast (Index As Integer) As Long Select Case Index Case 0 GetRast = &H42 'Blackness Case 1 GetRast = &H10289 Case 2 GetRast = &H20C89 Case 3 GetRast = &H300AA Case 4 GetRast = &H40C88 Case 5 GetRast = &H500A9 Case 6 GetRast = &H60865 Case 7 GetRast = &H702C5 Case 8 GetRast = &H80F08 Case 9 GetRast = &H90245 Case 10 GetRast = &HA0329 Case 11 GetRast = &HB0B2A Case 12 GetRast = &HC0324 Case 13 GetRast = &HD0B25 Case 14 GetRast = &HE08A5 Case 15 GetRast = &HF0001 Case 16 GetRast = &H100C85 Case 17 GetRast = &H1100A6 'NOTSRCERASE Case 18 GetRast = &H120868 Case 19 GetRast = &H1302C8 Case 20 GetRast = &H140869 Case 21 GetRast = &H1502C9 Case 22 GetRast = &H165CCA Case 23 GetRast = &H171D54 Case 24 GetRast = &H180D59 Case 25 GetRast = &H191CC8 Case 26 GetRast = &H1A06C5 Case 27 GetRast = &H1B0768 Case 28 GetRast = &H1C06CA Case 29 GetRast = &H1D0766 Case 30 GetRast = &H1E01A5 Case 31 GetRast = &H1F0385 Case 32 GetRast = &H200F09 Case 33 GetRast = &H210248 Case 34 GetRast = &H220326 Case 35 GetRast = &H230B24 Case 36 GetRast = &H240D55 Case 37 GetRast = &H251CC5 Case 38 GetRast = &H2606C8 Case 39 GetRast = &H271868 Case 40 GetRast = &H280369 Case 41 GetRast = &H2916CA Case 42 GetRast = &H2A0CC9 Case 43 GetRast = &H2B1D58 Case 44 GetRast = &H2C0784 Case 45 GetRast = &H2D060A Case 46 GetRast = &H2E064A Case 47 GetRast = &H2F0E2A Case 48 GetRast = &H30032A Case 49 GetRast = &H310B28 Case 50 GetRast = &H320688 Case 51 GetRast = &H330008 'NOTSCRCOPY Case 52 GetRast = &H3406C4 Case 53 GetRast = &H351864 Case 54 GetRast = &H3601A8 Case 55 GetRast = &H370388 Case 56 GetRast = &H38078A Case 57 GetRast = &H390604 Case 58 GetRast = &H3A0644 Case 59 GetRast = &H3B0E24 Case 60 GetRast = &H3C004A Case 61 GetRast = &H3D18A4 Case 62 GetRast = &H3E1B24 Case 63 GetRast = &H3F00EA Case 64 GetRast = &H400F0A Case 65 GetRast = &H410249 Case 66 GetRast = &H420D5D Case 67 GetRast = &H431CC4 Case 68 GetRast = &H440328 'SRCERASE Case 69 GetRast = &H450B29 Case 70 GetRast = &H4606C6 Case 71 GetRast = &H47076A Case 72 GetRast = &H480368 Case 73 GetRast = &H4916C5 Case 74 GetRast = &H4A0789 Case 75 GetRast = &H4B0605 Case 76 GetRast = &H4C0CC8 Case 77 GetRast = &H4D1954 Case 78 GetRast = &H4E0645 Case 79 GetRast = &H4F0E25 Case 80 GetRast = &H500325 Case 81 GetRast = &H510B26 Case 82 GetRast = &H5206C9 Case 83 GetRast = &H530764 Case 84 GetRast = &H5408A9 Case 85 GetRast = &H550009 'DSINVERT Case 86 GetRast = &H5601A9 Case 87 GetRast = &H570389 Case 88 GetRast = &H580785 Case 89 GetRast = &H590609 Case 90 GetRast = &H5A0049 'PATINVERT Case 91 GetRast = &H5B18A9 Case 92 GetRast = &H5C0649 Case 93 GetRast = &H5D0E29 Case 94 GetRast = &H5E1B29 Case 95 GetRast = &H5F00E9 Case 96 GetRast = &H600365 Case 97 GetRast = &H6116C6 Case 98 GetRast = &H620786 Case 99 GetRast = &H630608 Case 100 GetRast = &H640788 Case 101 GetRast = &H650606 Case 102 GetRast = &H660046 'SRCINVERT Case 103 GetRast = &H6718A8 Case 104 GetRast = &H6858A6 Case 105 GetRast = &H690145 Case 106 GetRast = &H6A01E9 Case 107 GetRast = &H6B178A Case 108 GetRast = &H6C01E8 Case 109 GetRast = &H6D1785 Case 110 GetRast = &H6E1E28 Case 111 GetRast = &H6F0C65 Case 112 GetRast = &H700CC5 Case 113 GetRast = &H711D5C Case 114 GetRast = &H720648 Case 115 GetRast = &H730E28 Case 116 GetRast = &H740646 Case 117 GetRast = &H750E26 Case 118 GetRast = &H761B28 Case 119 GetRast = &H7700E6 Case 120 GetRast = &H7801E5 Case 121 GetRast = &H791786 Case 122 GetRast = &H7A1E29 Case 123 GetRast = &H7B0C68 Case 124 GetRast = &H7C1E24 Case 125 GetRast = &H7D0C69 Case 126 GetRast = &H7E0955 Case 127 GetRast = &H7F03C9 Case 128 GetRast = &H8003E9 Case 129 GetRast = &H810975 Case 130 GetRast = &H820C49 Case 131 GetRast = &H831E04 Case 132 GetRast = &H840C48 Case 133 GetRast = &H851E05 Case 134 GetRast = &H8617A6 Case 135 GetRast = &H8701C5 Case 136 GetRast = &H8800C6 'SRCAND Case 137 GetRast = &H891B08 Case 138 GetRast = &H8A0E06 Case 139 GetRast = &H8B0666 Case 140 GetRast = &H8C0E08 Case 141 GetRast = &H8D0668 Case 142 GetRast = &H8E1D7C Case 143 GetRast = &H8F0CE5 Case 144 GetRast = &H900C45 Case 145 GetRast = &H911E08 Case 146 GetRast = &H9217A9 Case 147 GetRast = &H9301C4 Case 148 GetRast = &H9417AA Case 149 GetRast = &H9501C9 Case 150 GetRast = &H960169 Case 151 GetRast = &H97588A Case 152 GetRast = &H981888 Case 153 GetRast = &H990066 Case 154 GetRast = &H9A0709 Case 155 GetRast = &H9B07A8 Case 156 GetRast = &H9C0704 Case 157 GetRast = &H9D07A6 Case 158 GetRast = &H9E16E6 Case 159 GetRast = &H9F0345 Case 160 GetRast = &HA000C9 Case 161 GetRast = &HA11B05 Case 162 GetRast = &HA20E09 Case 163 GetRast = &HA30669 Case 164 GetRast = &HA41885 Case 165 GetRast = &HA50065 Case 166 GetRast = &HA60706 Case 167 GetRast = &HA707A5 Case 168 GetRast = &HA803A9 Case 169 GetRast = &HA90189 Case 170 GetRast = &HAA0029 Case 171 GetRast = &HAB0889 Case 172 GetRast = &HAC0744 Case 173 GetRast = &HAD06E9 Case 174 GetRast = &HAE0B06 Case 175 GetRast = &HAF0229 Case 176 GetRast = &HB00E05 Case 177 GetRast = &HB10665 Case 178 GetRast = &HB21974 Case 179 GetRast = &HB30CE8 Case 180 GetRast = &HB4070A Case 181 GetRast = &HB507A9 Case 182 GetRast = &HB616E9 Case 183 GetRast = &HB70348 Case 184 GetRast = &HB8074A Case 185 GetRast = &HB906E6 Case 186 GetRast = &HBA0B09 Case 187 GetRast = &HBB0226 'MERGEPAINT Case 188 GetRast = &HBC1CE4 Case 189 GetRast = &HBD0D7D Case 190 GetRast = &HBE0269 Case 191 GetRast = &HBF08C9 Case 192 GetRast = &HC000CA 'MERGECOPY Case 193 GetRast = &HC11B04 Case 194 GetRast = &HC21884 Case 195 GetRast = &HC3006A Case 196 GetRast = &HC40E04 Case 197 GetRast = &HC50664 Case 198 GetRast = &HC60708 Case 199 GetRast = &HC707AA Case 200 GetRast = &HC803A8 Case 201 GetRast = &HC90184 Case 202 GetRast = &HCA0749 Case 203 GetRast = &HCB06E4 Case 204 GetRast = &HCC0020 'SRCCOPY Case 205 GetRast = &HCD0888 Case 206 GetRast = &HCE0B08 Case 207 GetRast = &HCF0224 Case 208 GetRast = &HD00E0A Case 209 GetRast = &HD1066A Case 210 GetRast = &HD20705 Case 211 GetRast = &HD307A4 Case 212 GetRast = &HD41D78 Case 213 GetRast = &HD50CE9 Case 214 GetRast = &HD616EA Case 215 GetRast = &HD70349 Case 216 GetRast = &HD80745 Case 217 GetRast = &HD906E8 Case 218 GetRast = &HDA1CE9 Case 219 GetRast = &HDB0D75 Case 220 GetRast = &HDC0B04 Case 221 GetRast = &HDD0228 Case 222 GetRast = &HDE0268 Case 223 GetRast = &HDF08C8 Case 224 GetRast = &HE003A5 Case 225 GetRast = &HE10185 Case 226 GetRast = &HE20746 Case 227 GetRast = &HE306EA Case 228 GetRast = &HE40748 Case 229 GetRast = &HE506E5 Case 230 GetRast = &HE61CE8 Case 231 GetRast = &HE70D79 Case 232 GetRast = &HE81D74 Case 233 GetRast = &HE95CE6 Case 234 GetRast = &HEA02E9 Case 235 GetRast = &HEB0849 Case 236 GetRast = &HEC02E8 Case 237 GetRast = &HED0848 Case 238 GetRast = &HEE0086 'SRCPAINT Case 239 GetRast = &HEF0A08 Case 240 GetRast = &HF00021 'PATCOPY Case 241 GetRast = &HF10885 Case 242 GetRast = &HF20B05 Case 243 GetRast = &HF3022A Case 244 GetRast = &HF40B0A Case 245 GetRast = &HF50225 Case 246 GetRast = &HF60265 Case 247 GetRast = &HF708C5 Case 248 GetRast = &HF802E5 Case 249 GetRast = &HF90845 Case 250 GetRast = &HFA0089 Case 251 GetRast = &HFB0A09 'PATPAINT Case 252 GetRast = &HFC008A Case 253 GetRast = &HFD0A0A Case 254 GetRast = &HFE02A9 Case 255 GetRast = &HFF0062 'WHITENESS End Select End Function