1 <?php
2
#####################################
3 #     Divxmania ArtWorks v. 2       #
4 #####################################
5 #                                   #
6 #   rev.    2.0.0                   #
7 #   start   02/01/2003 16.20 +0100  #
8 #   last    23/08/2005 03.06 +0100  #
9 #                                   #
10 #####################################
11 #     ©Divxmania.it 2002-2005       #
12 #####################################
13
14
15 /*#########################################################################################
16 This script is free software; you can redistribute it and/or
17 modify it under the terms of the GNU Lesser General Public
18 License as published by the Free Software Foundation; either
19 version 2.1 of the License, or (at your option) any later version.
20
21 This library is distributed in the hope that it will be useful (or at least funny),
22 but WITHOUT ANY WARRANTY; without even the implied warranty of
23 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
24 Lesser General Public License for more details.
25
26 You should have received a copy of the GNU Lesser General Public
27 License along with this library; if not, write to the Free Software
28 Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
29
30 If you have any questions or comments, please email or visit the website:
31
32 CereS <ceres@divxmania.it>
33
34 http://pic2text.divxmania.it/
35
36 #########################################################################################*/
37
38 //Senza questo non funziona, e ve lo avevo gią detto...
39
if(DIO != "CANE") die();
40
41 if (
$globali[action] == "style1")
42 {
43     
$parser->load_template('color_picker');
44     
45     
$variabili = array(
46
47     
t_color1        => $lang[color1],
48     
t_lookatsource        => $lang[lookatsource]
49
50     );
51
52     
$parser->parse($variabili);    
53 }
54 else
55 {
56     
$xmax 200;
57
58     
$im imagecreatetruecolor($xmax,$xmax);
59     
$white imagecolorallocate($im0xFF0xFF0xFF);
60     
imagefill($im0,0,$white);
61     
62     
$out JSP_Color_Chooser($im$xmax0);
63
64     
$parser->load_template('color_wheel');
65     
66     
$variabili = array(
67
68     
h_w        => $out[w],
69     
h_w1        => $out[w]+1,
70     
h_top        => $out[top],
71     
h_left        => $out[left],
72     
h_right        => $out[right],
73     
h_bottom    => $out[bottom],
74     
75     
t_color        => $lang[color2],
76     
t_lookatsource    => $lang[lookatsourceext]
77
78     );
79
80     
$parser->parse($variabili);        
81 }
82
83
84
85 function 
JSP_Color_Chooser(&$im$xmax$hue 0.5)
86 {
87     
$diametro $xmax /1.35;
88     
$raggio $diametro /;
89     
$h 0;
90     
$s 1;
91     
$v 1;
92     
$x0 $y0 $xmax/2;
93     for (
$a deg2rad(0); $a <= deg2rad(360); $a += M_PI/5000)
94     {
95         
$rgb HSV_TO_RGB($a/(M_PI*2), $s$v);
96         
$color imagecolorallocate($im$rgb[0], $rgb[1], $rgb[2]);
97         
imageline($im$x0$y0floor($x0-($x0*cos($a))), ceil($y0-($y0*sin($a))), $color );
98         
imageline($im$x0$y0ceil($x0-($x0*cos($a))), ceil($y0-($y0*sin($a))), $color );
99     }
100     
ImageFilledEllipse($im$x0$y0$diametro$diametro0xFFFFFF);
101     
$x1 $y1 $x0-floor(($raggio*cos(M_PI_4)))+1;
102     
$x2 $y2 $x0-ceil(($raggio*cos(M_PI+M_PI_4)))-1;
103     
$s_inc 1/($y2-$y1);
104     
$v_inc 1/($x2-$x1);
105
106     
$html[w] = ($x2-$x1);
107
108     
$html[top] = htmlize($im00$xmax$y1);
109     
$html[left] = htmlize($im0$y1+1$x1$y2);
110     
$html[right] = htmlize($im$x2$y1+1$xmax$y2);
111     
$html[bottom] = htmlize($im0$y2+1$xmax$xmax);
112     
113     return 
$html;
114 }
115
116 function 
htmlize($im$x1$y1$x2$y2)
117 {
118     
$html "<TABLE CELLSPACING='0' CELLPADDING='0' BORDER='0'>";
119     for (
$y $y1$y <= $y2$y++)
120     {
121         
$html .= "<TR height=1>";
122         
$ws 0;
123         for (
$x=$x1$x <= $x2$x++)
124         {
125             
$colorindex imagecolorat($im,$x,$y);
126             
$colorrgb imagecolorsforindex($im,$colorindex);
127             
$color colorHTML($colorrgb['red'],$colorrgb['green'],$colorrgb['blue'], $BN);
128             if (
$color != "ffffff")
129             {    
130                 (
$ws 0) ? $html .= '<TD width="'.$ws.'" colspan="'.$ws.'"></TD>''' ;
131                 
$hsv RGB_TO_HSV($colorrgb['red'],$colorrgb['green'],$colorrgb['blue']);
132                 
$html .= '<TD width="1" style="background-color: #' $color ';"  onMouseDown="SetHue(\''.abs($hsv[0]).'\');" onMouseOver="OverColor(this)"></TD>';
133                 
$ws=0;
134             }
135             else
136             {
137                 
$ws++;
138             }
139         }    
140         
$html .= "\n</TR>";
141     }
142     
$html .= "\n</TABLE>";
143     return 
$html;
144 }
145 function 
colorHTML ($r$g$b) {
146     
//The next 3 lines are used to compensate hex values 0 to F (0 to 15) adding an initial 0 (00 to 0F)
147     
($r >= 16) ? $red dechex($r) : $red "0".dechex($r);
148     (
$g >= 16) ? $green dechex($g) : $green "0".dechex($g);
149     (
$b >= 16) ? $blue dechex($b) : $blue "0".dechex($b);
150     
$color $red.$green.$blue;
151     return 
$color;
152 }
153
154 function 
RGB_TO_HSV ($R$G$B// RGB Values:Number 0-255
155
// HSV Results:Number 0-1
156     
$HSL = array();
157
158     
$var_R = ($R 255);
159     
$var_G = ($G 255);
160     
$var_B = ($B 255);
161
162     
$var_Min min($var_R$var_G$var_B);
163     
$var_Max max($var_R$var_G$var_B);
164     
$del_Max $var_Max $var_Min;
165
166     
$V $var_Max;
167     
168     if (
$del_Max == 0)
169     {
170         
$H 0;
171         
$S 0;
172     }
173     else
174     {
175         
$S $del_Max $var_Max;
176         
177         
$del_R = ( ( ( $var_Max $var_R ) / ) + ( $del_Max ) ) / $del_Max;
178         
$del_G = ( ( ( $var_Max $var_G ) / ) + ( $del_Max ) ) / $del_Max;
179         
$del_B = ( ( ( $var_Max $var_B ) / ) + ( $del_Max ) ) / $del_Max;
180
181         if (
$var_R == $var_Max$H $del_B $del_G;
182         else if (
$var_G == $var_Max$H = ( ) + $del_R $del_B;
183         else if (
$var_B == $var_Max$H = ( ) + $del_G $del_R;
184
185         if (
H<0$H++;
186         if (
H>1$H--;
187     }
188
189     
$HSL[] = $H;
190     
$HSL[] = $S;
191     
$HSL[] = $V;
192
193     return 
$HSL;
194 }
195 function 
HSV_TO_RGB ($H$S$V// HSV Values:Number 0-1
196
// RGB Results:Number 0-255
197     
$RGB = array();
198
199     if(
$S == 0)
200     {
201         
$R $G $B $V 255;
202     }
203     else
204     {
205         
$var_H $H 6;
206         
$var_i floor$var_H );
207         
$var_1 $V * ( $S );
208         
$var_2 $V * ( $S * ( $var_H $var_i ) );
209         
$var_3 $V * ( $S * (- ( $var_H $var_i ) ) );
210     
211         if (
$var_i == 0) { $var_R $V $var_G $var_3 $var_B $var_1 ; }
212         else if (
$var_i == 1) { $var_R $var_2 $var_G $V $var_B $var_1 ; }
213         else if (
$var_i == 2) { $var_R $var_1 $var_G $V $var_B $var_3 ; }
214         else if (
$var_i == 3) { $var_R $var_1 $var_G $var_2 $var_B $V ; }
215         else if (
$var_i == 4) { $var_R $var_3 $var_G $var_1 $var_B $V ; }
216         else { 
$var_R $V $var_G $var_1 $var_B $var_2 ; }
217
218         
$R $var_R 255;
219         
$G $var_G 255;
220         
$B $var_B 255;
221     }
222
223     
$RGB[] = $R;
224     
$RGB[] = $G;
225     
$RGB[] = $B;
226
227     return 
$RGB;
228 }
229
230
?>

Hide line numbers

 

 
 

Home  l  Image to Text  l  Image to Ascii  l  Image to Table  l  Image to Puzzle  l  Color Chooser l  Color Wheel l  Source Code

DM Image Artworks v.2.1.0 © 2005 CereS - Divxmania.it

Italiano English

 

Done in: 0.0391 seconds