Прозрачный Плиточник 4 – VB 6.0 – База кода


Название (оригинал): Transparent Tiler 4

Англ (оригинал)Back again. Draws coloured tiles over any picture, looks better than it sounds (see screenshot).
Ambiant light problem solved brilliantly by redbird77. API working thanks to Carle PV and Robert Rayment who both spotted my dumb mistake in passing the wrong values into the colour setting (took a while to notice it even with their help, some times your brain just won’t work, eh). redbird77’s code allowed me to activate the Ambiant colour parameter and add another one (Intensity). Aslo increased the number of bevels the demo allows to 200 (there is no real limit other than time) This allows you to create a single tile on a reasonably large picture giving a nice frame or curved (Hard edge Off) effect. If the bevel number is high enough the whole picture will be tinted, play with transparency and Intensity controls for best effect.
I have also cleaned up the code a bit (removed some unnecessary Optional parameters) and created 2 modules; one using pure VB, the other API. I recommend that if you want to use this you use the API version it is about 40 -50% faster especially with large numbers of tiles. There is a simple (and not very good) timer message so you can compare the two versions.
This demo takes advantage of a weakness in VB; it doesn’t notice if you have Private routines with the same name in different modules, so both modules contain the some of the basic support functions. This is a potential source of bugs in code, if the 2 routines are not exact copies of each other. In this demo they are exactly the same, I could also have renamed them by adding ‘VB’ or ‘API’ to end of names as i did with other routines (which are not identical). Alternatively a single copy of the routines declared Public (in a 3rd module or either of the exiting modules) would work but would make the modules less portable.

Рус (машинный)Снова. Рисует цветные плитки любое изображение выглядит лучше, чем кажется (см. скриншот).
Проблема ambiant свет блестяще решена redbird77. Рабочая API, благодаря ПВ Карл и Роберт Рэймент, кто как заметил мой немой ошибка при передаче неправильные значения в параметр цвета (потребовалось некоторое время, чтобы заметить это даже с их помощью иногда ваш мозг просто не будет работать, да). код redbird77 позволила мне активировать параметр наружные цвета и добавить еще один (интенсивность). Также увеличилось количество скосов демо позволяет 200 (нет никаких реальных ограничений, кроме времени) это позволяет создать единый плитку на достаточно большой картинке дает красивую рамку или изогнутый (Жесткий предел) эффект. Если число конических достаточно высок, в целом картинка будет тонировка, играть с прозрачностью и интенсивностью управления для лучшего эффекта.
Я также почистил код немного (удалены некоторые ненужные необязательные параметры) и созданных модулей 2

база кода