snipt

Ctrl+h for KB shortcuts

VB.net

Преобразование цветов

'============================================================
'------------- Функции преобразования цветов------------------
'============================================================

function decColor2rgb(dec as Integer) as Vertex
'Переводим из десятичного числа в формат RGB
	Dim r as Integer = dec mod 256
	Dim g as Integer = (dec/256) mod 256
	Dim b as Integer = (dec/256/256) mod 256
	decColor2rgb = Cvertex(r/255.0,g/255.0,b/255.0)
end function

function hsv2rgb(HSV as Vertex) as Vertex
'HSV и RGB значения 0..1
	Dim h = HSV.x
	Dim s = HSV.y
	Dim v = HSV.z
	
	
	if  s = 0 then 
		hsv2rgb = Cvertex(v)
	else
  
	    Dim var_h = h * 6
	    Dim var_i = floor( var_h )
	    DIm var_1 = v * ( 1 - s )
	    Dim var_2 = v * ( 1 - s * ( var_h - var_i ) )
	    Dim var_3 = v * ( 1 - s * ( 1 - ( var_h - var_i ) ) )
	 
	    if var_i = 0 then 
			hsv2rgb = Cvertex(v, var_3, var_1)
		elseif var_i = 1 then
			hsv2rgb = Cvertex(var_2, v, var_1)
		elseif var_i = 2 then
			hsv2rgb = Cvertex(var_1, v, var_3)
		elseif var_i= 3 then
			hsv2rgb = Cvertex(var_1, var_2, v)
		elseif var_i == 4 then
			hsv2rgb = Cvertex(var_3, var_1, v)
		else    
			hsv2rgb = Cvertex(v, var_1, var_2)
		end if
	end if
end function


function rgb2hsv(RGB as Vertex) as Vertex
'HSV и RGB значения 0..1
	Dim r as Double = RGB.x
	Dim g as Double = RGB.y
	Dim b as Double = RGB.z
	
	Dim h,s,v as double
    Dim mx as Double = max(r, g)
	mx = max(mx, b)
    Dim mn as Double = min(r, g)
	mn = min (mn, b)
    Dim df as Double = mx-mn

    if mx = mn then
        h = 0
    elseif mx = r and g>=B then
		h = (60 * ((g-b)/df) + 0)
	elseif mx = r and g<B then
		h = (60 * ((g-b)/df) + 360.0)
    elseif mx = g then
        h = (60 * ((b-r)/df) + 120.0)
    elseif mx = b then
        h = (60 * ((r-g)/df) + 240.0)
	end if
	
    if mx = 0 then
        s = 0
    else
        s = df/mx
	end if
    v = mx
    rgb2hsv = Cvertex(h/360.0,s,v)
end function
https://snipt.net/embed/a4518dd77139deff77eb8f736e4b0f8b/
/raw/a4518dd77139deff77eb8f736e4b0f8b/
a4518dd77139deff77eb8f736e4b0f8b
vb.net
VB.net
79
2019-07-22T10:25:23
True
False
False
/api/public/snipt/56464/
-1915
<table class="highlighttable"><tr><td class="linenos"><div class="linenodiv"><pre><a href="#L-1"> 1</a> <a href="#L-2"> 2</a> <a href="#L-3"> 3</a> <a href="#L-4"> 4</a> <a href="#L-5"> 5</a> <a href="#L-6"> 6</a> <a href="#L-7"> 7</a> <a href="#L-8"> 8</a> <a href="#L-9"> 9</a> <a href="#L-10">10</a> <a href="#L-11">11</a> <a href="#L-12">12</a> <a href="#L-13">13</a> <a href="#L-14">14</a> <a href="#L-15">15</a> <a href="#L-16">16</a> <a href="#L-17">17</a> <a href="#L-18">18</a> <a href="#L-19">19</a> <a href="#L-20">20</a> <a href="#L-21">21</a> <a href="#L-22">22</a> <a href="#L-23">23</a> <a href="#L-24">24</a> <a href="#L-25">25</a> <a href="#L-26">26</a> <a href="#L-27">27</a> <a href="#L-28">28</a> <a href="#L-29">29</a> <a href="#L-30">30</a> <a href="#L-31">31</a> <a href="#L-32">32</a> <a href="#L-33">33</a> <a href="#L-34">34</a> <a href="#L-35">35</a> <a href="#L-36">36</a> <a href="#L-37">37</a> <a href="#L-38">38</a> <a href="#L-39">39</a> <a href="#L-40">40</a> <a href="#L-41">41</a> <a href="#L-42">42</a> <a href="#L-43">43</a> <a href="#L-44">44</a> <a href="#L-45">45</a> <a href="#L-46">46</a> <a href="#L-47">47</a> <a href="#L-48">48</a> <a href="#L-49">49</a> <a href="#L-50">50</a> <a href="#L-51">51</a> <a href="#L-52">52</a> <a href="#L-53">53</a> <a href="#L-54">54</a> <a href="#L-55">55</a> <a href="#L-56">56</a> <a href="#L-57">57</a> <a href="#L-58">58</a> <a href="#L-59">59</a> <a href="#L-60">60</a> <a href="#L-61">61</a> <a href="#L-62">62</a> <a href="#L-63">63</a> <a href="#L-64">64</a> <a href="#L-65">65</a> <a href="#L-66">66</a> <a href="#L-67">67</a> <a href="#L-68">68</a> <a href="#L-69">69</a> <a href="#L-70">70</a> <a href="#L-71">71</a> <a href="#L-72">72</a> <a href="#L-73">73</a> <a href="#L-74">74</a> <a href="#L-75">75</a> <a href="#L-76">76</a> <a href="#L-77">77</a> <a href="#L-78">78</a> <a href="#L-79">79</a></pre></div></td><td class="code"><div class="highlight"><pre><span></span><span id="L-1"><a name="L-1"></a><span class="c">&#39;============================================================</span> </span><span id="L-2"><a name="L-2"></a><span class="c">&#39;------------- Функции преобразования цветов------------------</span> </span><span id="L-3"><a name="L-3"></a><span class="c">&#39;============================================================</span> </span><span id="L-4"><a name="L-4"></a> </span><span id="L-5"><a name="L-5"></a><span class="k">function</span> <span class="nf">decColor2rgb</span><span class="p">(</span><span class="n">dec</span> <span class="ow">as</span> <span class="kt">Integer</span><span class="p">)</span> <span class="ow">as</span> <span class="n">Vertex</span> </span><span id="L-6"><a name="L-6"></a><span class="c">&#39;Переводим из десятичного числа в формат RGB</span> </span><span id="L-7"><a name="L-7"></a> <span class="k">Dim</span> <span class="n">r</span> <span class="ow">as</span> <span class="kt">Integer</span> <span class="o">=</span> <span class="n">dec</span> <span class="ow">mod</span> <span class="mi">256</span> </span><span id="L-8"><a name="L-8"></a> <span class="k">Dim</span> <span class="n">g</span> <span class="ow">as</span> <span class="kt">Integer</span> <span class="o">=</span> <span class="p">(</span><span class="n">dec</span><span class="o">/</span><span class="mi">256</span><span class="p">)</span> <span class="ow">mod</span> <span class="mi">256</span> </span><span id="L-9"><a name="L-9"></a> <span class="k">Dim</span> <span class="n">b</span> <span class="ow">as</span> <span class="kt">Integer</span> <span class="o">=</span> <span class="p">(</span><span class="n">dec</span><span class="o">/</span><span class="mi">256</span><span class="o">/</span><span class="mi">256</span><span class="p">)</span> <span class="ow">mod</span> <span class="mi">256</span> </span><span id="L-10"><a name="L-10"></a> <span class="n">decColor2rgb</span> <span class="o">=</span> <span class="n">Cvertex</span><span class="p">(</span><span class="n">r</span><span class="o">/</span><span class="mf">255.0</span><span class="p">,</span><span class="n">g</span><span class="o">/</span><span class="mf">255.0</span><span class="p">,</span><span class="n">b</span><span class="o">/</span><span class="mf">255.0</span><span class="p">)</span> </span><span id="L-11"><a name="L-11"></a><span class="k">end</span> <span class="k">function</span> </span><span id="L-12"><a name="L-12"></a> </span><span id="L-13"><a name="L-13"></a><span class="k">function</span> <span class="nf">hsv2rgb</span><span class="p">(</span><span class="n">HSV</span> <span class="ow">as</span> <span class="n">Vertex</span><span class="p">)</span> <span class="ow">as</span> <span class="n">Vertex</span> </span><span id="L-14"><a name="L-14"></a><span class="c">&#39;HSV и RGB значения 0..1</span> </span><span id="L-15"><a name="L-15"></a> <span class="k">Dim</span> <span class="n">h</span> <span class="o">=</span> <span class="n">HSV</span><span class="p">.</span><span class="n">x</span> </span><span id="L-16"><a name="L-16"></a> <span class="k">Dim</span> <span class="n">s</span> <span class="o">=</span> <span class="n">HSV</span><span class="p">.</span><span class="n">y</span> </span><span id="L-17"><a name="L-17"></a> <span class="k">Dim</span> <span class="n">v</span> <span class="o">=</span> <span class="n">HSV</span><span class="p">.</span><span class="n">z</span> </span><span id="L-18"><a name="L-18"></a> </span><span id="L-19"><a name="L-19"></a> </span><span id="L-20"><a name="L-20"></a> <span class="k">if</span> <span class="n">s</span> <span class="o">=</span> <span class="mi">0</span> <span class="k">then</span> </span><span id="L-21"><a name="L-21"></a> <span class="n">hsv2rgb</span> <span class="o">=</span> <span class="n">Cvertex</span><span class="p">(</span><span class="n">v</span><span class="p">)</span> </span><span id="L-22"><a name="L-22"></a> <span class="k">else</span> </span><span id="L-23"><a name="L-23"></a> </span><span id="L-24"><a name="L-24"></a> <span class="k">Dim</span> <span class="n">var_h</span> <span class="o">=</span> <span class="n">h</span> <span class="o">*</span> <span class="mi">6</span> </span><span id="L-25"><a name="L-25"></a> <span class="k">Dim</span> <span class="n">var_i</span> <span class="o">=</span> <span class="n">floor</span><span class="p">(</span> <span class="n">var_h</span> <span class="p">)</span> </span><span id="L-26"><a name="L-26"></a> <span class="k">DIm</span> <span class="n">var_1</span> <span class="o">=</span> <span class="n">v</span> <span class="o">*</span> <span class="p">(</span> <span class="mi">1</span> <span class="o">-</span> <span class="n">s</span> <span class="p">)</span> </span><span id="L-27"><a name="L-27"></a> <span class="k">Dim</span> <span class="n">var_2</span> <span class="o">=</span> <span class="n">v</span> <span class="o">*</span> <span class="p">(</span> <span class="mi">1</span> <span class="o">-</span> <span class="n">s</span> <span class="o">*</span> <span class="p">(</span> <span class="n">var_h</span> <span class="o">-</span> <span class="n">var_i</span> <span class="p">)</span> <span class="p">)</span> </span><span id="L-28"><a name="L-28"></a> <span class="k">Dim</span> <span class="n">var_3</span> <span class="o">=</span> <span class="n">v</span> <span class="o">*</span> <span class="p">(</span> <span class="mi">1</span> <span class="o">-</span> <span class="n">s</span> <span class="o">*</span> <span class="p">(</span> <span class="mi">1</span> <span class="o">-</span> <span class="p">(</span> <span class="n">var_h</span> <span class="o">-</span> <span class="n">var_i</span> <span class="p">)</span> <span class="p">)</span> <span class="p">)</span> </span><span id="L-29"><a name="L-29"></a> </span><span id="L-30"><a name="L-30"></a> <span class="k">if</span> <span class="n">var_i</span> <span class="o">=</span> <span class="mi">0</span> <span class="k">then</span> </span><span id="L-31"><a name="L-31"></a> <span class="n">hsv2rgb</span> <span class="o">=</span> <span class="n">Cvertex</span><span class="p">(</span><span class="n">v</span><span class="p">,</span> <span class="n">var_3</span><span class="p">,</span> <span class="n">var_1</span><span class="p">)</span> </span><span id="L-32"><a name="L-32"></a> <span class="k">elseif</span> <span class="n">var_i</span> <span class="o">=</span> <span class="mi">1</span> <span class="k">then</span> </span><span id="L-33"><a name="L-33"></a> <span class="n">hsv2rgb</span> <span class="o">=</span> <span class="n">Cvertex</span><span class="p">(</span><span class="n">var_2</span><span class="p">,</span> <span class="n">v</span><span class="p">,</span> <span class="n">var_1</span><span class="p">)</span> </span><span id="L-34"><a name="L-34"></a> <span class="k">elseif</span> <span class="n">var_i</span> <span class="o">=</span> <span class="mi">2</span> <span class="k">then</span> </span><span id="L-35"><a name="L-35"></a> <span class="n">hsv2rgb</span> <span class="o">=</span> <span class="n">Cvertex</span><span class="p">(</span><span class="n">var_1</span><span class="p">,</span> <span class="n">v</span><span class="p">,</span> <span class="n">var_3</span><span class="p">)</span> </span><span id="L-36"><a name="L-36"></a> <span class="k">elseif</span> <span class="n">var_i</span><span class="o">=</span> <span class="mi">3</span> <span class="k">then</span> </span><span id="L-37"><a name="L-37"></a> <span class="n">hsv2rgb</span> <span class="o">=</span> <span class="n">Cvertex</span><span class="p">(</span><span class="n">var_1</span><span class="p">,</span> <span class="n">var_2</span><span class="p">,</span> <span class="n">v</span><span class="p">)</span> </span><span id="L-38"><a name="L-38"></a> <span class="k">elseif</span> <span class="n">var_i</span> <span class="o">==</span> <span class="mi">4</span> <span class="k">then</span> </span><span id="L-39"><a name="L-39"></a> <span class="n">hsv2rgb</span> <span class="o">=</span> <span class="n">Cvertex</span><span class="p">(</span><span class="n">var_3</span><span class="p">,</span> <span class="n">var_1</span><span class="p">,</span> <span class="n">v</span><span class="p">)</span> </span><span id="L-40"><a name="L-40"></a> <span class="k">else</span> </span><span id="L-41"><a name="L-41"></a> <span class="n">hsv2rgb</span> <span class="o">=</span> <span class="n">Cvertex</span><span class="p">(</span><span class="n">v</span><span class="p">,</span> <span class="n">var_1</span><span class="p">,</span> <span class="n">var_2</span><span class="p">)</span> </span><span id="L-42"><a name="L-42"></a> <span class="k">end</span> <span class="k">if</span> </span><span id="L-43"><a name="L-43"></a> <span class="k">end</span> <span class="k">if</span> </span><span id="L-44"><a name="L-44"></a><span class="k">end</span> <span class="k">function</span> </span><span id="L-45"><a name="L-45"></a> </span><span id="L-46"><a name="L-46"></a> </span><span id="L-47"><a name="L-47"></a><span class="k">function</span> <span class="nf">rgb2hsv</span><span class="p">(</span><span class="n">RGB</span> <span class="ow">as</span> <span class="n">Vertex</span><span class="p">)</span> <span class="ow">as</span> <span class="n">Vertex</span> </span><span id="L-48"><a name="L-48"></a><span class="c">&#39;HSV и RGB значения 0..1</span> </span><span id="L-49"><a name="L-49"></a> <span class="k">Dim</span> <span class="n">r</span> <span class="ow">as</span> <span class="kt">Double</span> <span class="o">=</span> <span class="n">RGB</span><span class="p">.</span><span class="n">x</span> </span><span id="L-50"><a name="L-50"></a> <span class="k">Dim</span> <span class="n">g</span> <span class="ow">as</span> <span class="kt">Double</span> <span class="o">=</span> <span class="n">RGB</span><span class="p">.</span><span class="n">y</span> </span><span id="L-51"><a name="L-51"></a> <span class="k">Dim</span> <span class="n">b</span> <span class="ow">as</span> <span class="kt">Double</span> <span class="o">=</span> <span class="n">RGB</span><span class="p">.</span><span class="n">z</span> </span><span id="L-52"><a name="L-52"></a> </span><span id="L-53"><a name="L-53"></a> <span class="k">Dim</span> <span class="n">h</span><span class="p">,</span><span class="n">s</span><span class="p">,</span><span class="n">v</span> <span class="ow">as</span> <span class="kt">double</span> </span><span id="L-54"><a name="L-54"></a> <span class="k">Dim</span> <span class="n">mx</span> <span class="ow">as</span> <span class="kt">Double</span> <span class="o">=</span> <span class="n">max</span><span class="p">(</span><span class="n">r</span><span class="p">,</span> <span class="n">g</span><span class="p">)</span> </span><span id="L-55"><a name="L-55"></a> <span class="n">mx</span> <span class="o">=</span> <span class="n">max</span><span class="p">(</span><span class="n">mx</span><span class="p">,</span> <span class="n">b</span><span class="p">)</span> </span><span id="L-56"><a name="L-56"></a> <span class="k">Dim</span> <span class="n">mn</span> <span class="ow">as</span> <span class="kt">Double</span> <span class="o">=</span> <span class="n">min</span><span class="p">(</span><span class="n">r</span><span class="p">,</span> <span class="n">g</span><span class="p">)</span> </span><span id="L-57"><a name="L-57"></a> <span class="n">mn</span> <span class="o">=</span> <span class="n">min</span> <span class="p">(</span><span class="n">mn</span><span class="p">,</span> <span class="n">b</span><span class="p">)</span> </span><span id="L-58"><a name="L-58"></a> <span class="k">Dim</span> <span class="n">df</span> <span class="ow">as</span> <span class="kt">Double</span> <span class="o">=</span> <span class="n">mx</span><span class="o">-</span><span class="n">mn</span> </span><span id="L-59"><a name="L-59"></a> </span><span id="L-60"><a name="L-60"></a> <span class="k">if</span> <span class="n">mx</span> <span class="o">=</span> <span class="n">mn</span> <span class="k">then</span> </span><span id="L-61"><a name="L-61"></a> <span class="n">h</span> <span class="o">=</span> <span class="mi">0</span> </span><span id="L-62"><a name="L-62"></a> <span class="k">elseif</span> <span class="n">mx</span> <span class="o">=</span> <span class="n">r</span> <span class="ow">and</span> <span class="n">g</span><span class="o">&gt;=</span><span class="n">B</span> <span class="k">then</span> </span><span id="L-63"><a name="L-63"></a> <span class="n">h</span> <span class="o">=</span> <span class="p">(</span><span class="mi">60</span> <span class="o">*</span> <span class="p">((</span><span class="n">g</span><span class="o">-</span><span class="n">b</span><span class="p">)</span><span class="o">/</span><span class="n">df</span><span class="p">)</span> <span class="o">+</span> <span class="mi">0</span><span class="p">)</span> </span><span id="L-64"><a name="L-64"></a> <span class="k">elseif</span> <span class="n">mx</span> <span class="o">=</span> <span class="n">r</span> <span class="ow">and</span> <span class="n">g</span><span class="o">&lt;</span><span class="n">B</span> <span class="k">then</span> </span><span id="L-65"><a name="L-65"></a> <span class="n">h</span> <span class="o">=</span> <span class="p">(</span><span class="mi">60</span> <span class="o">*</span> <span class="p">((</span><span class="n">g</span><span class="o">-</span><span class="n">b</span><span class="p">)</span><span class="o">/</span><span class="n">df</span><span class="p">)</span> <span class="o">+</span> <span class="mf">360.0</span><span class="p">)</span> </span><span id="L-66"><a name="L-66"></a> <span class="k">elseif</span> <span class="n">mx</span> <span class="o">=</span> <span class="n">g</span> <span class="k">then</span> </span><span id="L-67"><a name="L-67"></a> <span class="n">h</span> <span class="o">=</span> <span class="p">(</span><span class="mi">60</span> <span class="o">*</span> <span class="p">((</span><span class="n">b</span><span class="o">-</span><span class="n">r</span><span class="p">)</span><span class="o">/</span><span class="n">df</span><span class="p">)</span> <span class="o">+</span> <span class="mf">120.0</span><span class="p">)</span> </span><span id="L-68"><a name="L-68"></a> <span class="k">elseif</span> <span class="n">mx</span> <span class="o">=</span> <span class="n">b</span> <span class="k">then</span> </span><span id="L-69"><a name="L-69"></a> <span class="n">h</span> <span class="o">=</span> <span class="p">(</span><span class="mi">60</span> <span class="o">*</span> <span class="p">((</span><span class="n">r</span><span class="o">-</span><span class="n">g</span><span class="p">)</span><span class="o">/</span><span class="n">df</span><span class="p">)</span> <span class="o">+</span> <span class="mf">240.0</span><span class="p">)</span> </span><span id="L-70"><a name="L-70"></a> <span class="k">end</span> <span class="k">if</span> </span><span id="L-71"><a name="L-71"></a> </span><span id="L-72"><a name="L-72"></a> <span class="k">if</span> <span class="n">mx</span> <span class="o">=</span> <span class="mi">0</span> <span class="k">then</span> </span><span id="L-73"><a name="L-73"></a> <span class="n">s</span> <span class="o">=</span> <span class="mi">0</span> </span><span id="L-74"><a name="L-74"></a> <span class="k">else</span> </span><span id="L-75"><a name="L-75"></a> <span class="n">s</span> <span class="o">=</span> <span class="n">df</span><span class="o">/</span><span class="n">mx</span> </span><span id="L-76"><a name="L-76"></a> <span class="k">end</span> <span class="k">if</span> </span><span id="L-77"><a name="L-77"></a> <span class="n">v</span> <span class="o">=</span> <span class="n">mx</span> </span><span id="L-78"><a name="L-78"></a> <span class="n">rgb2hsv</span> <span class="o">=</span> <span class="n">Cvertex</span><span class="p">(</span><span class="n">h</span><span class="o">/</span><span class="mf">360.0</span><span class="p">,</span><span class="n">s</span><span class="p">,</span><span class="n">v</span><span class="p">)</span> </span><span id="L-79"><a name="L-79"></a><span class="k">end</span> <span class="k">function</span> </span></pre></div> </td></tr></table>
color, convert, vizrt