GenerationDePaletteDeCouleurs - Revision history

ToM: +cat

2012-12-12T20:31:53Z

+cat

ToM: ToM moved page Pastebin to GenerationDePaletteDeCouleurs

2012-12-12T20:31:23Z

ToM moved page Pastebin to GenerationDePaletteDeCouleurs

Dermiste: /* generation de palette de couleur */

2012-05-20T16:29:13Z

‎generation de palette de couleur

Dermiste: /* generation de palette de couleur */

2012-05-20T16:14:00Z

‎generation de palette de couleur

Dermiste: /* generation de palette de couleur */

2012-05-20T16:13:41Z

‎generation de palette de couleur

Dermiste: /* generation de palette de couleur */

2012-05-20T16:13:24Z

‎generation de palette de couleur

Dermiste: /* generation de palette de couleur */

2012-05-20T16:12:32Z

‎generation de palette de couleur

Dermiste: Created page with "== generation de palette de couleur == un petit script naif pour generer une palette de 24 couleurs, potentiellement adequate pour du graphing Usage: ./palette.pl | sed 's/1..."

2012-05-20T16:12:09Z

Created page with "== generation de palette de couleur == un petit script naif pour generer une palette de 24 couleurs, potentiellement adequate pour du graphing Usage: ./palette.pl | sed 's/1..."

New page

== generation de palette de couleur ==

un petit script naif pour generer une palette de 24 couleurs, potentiellement adequate pour du graphing

Usage: ./palette.pl | sed 's/100/ff/g' > ./palette.html

Patches welcome

<code>
#!/usr/bin/perl

print "<html> <head><title>palette</title></head> <body>\n";

for $v1 ( 4,3 ) {
$v = $v1 / 4;
for $s1 ( 2 ) {
$s = $s1/2;
for $h1 (0,1,2,3,4,5,6,7,8,9,10,11) {
$h = $h1 * 30;
$ti = int($h/60) % 6;
$f = $h/60 - $ti;
$l = $v * (1 - $s);
$m = $v * (1 - $f * $s);
$n = $v * (1 - (1 - $f) * $s);
@r = ($v,$m,$l,$l,$n,$v);
@g = ($n,$v,$v,$m,$l,$l);
@b = ($l,$l,$n,$v,$v,$m);
printf("<span style=\"background-color : #%.2x%.2x%.2x\"> </span>\n",$r[$ti]*256,$g[$ti]*256,$b[$ti]*256);
}
}
}

print "</body></html>\n";
</code>

@@ Line 24: / Line 24: @@
          @g = ($n,$v,$v,$m,$l,$l);
          @b = ($l,$l,$n,$v,$v,$m);
-         printf("<span style=\"background-color : #%.2x%.2x%.2x\">&nbsp;</span>\n",$r[$ti]*256,$g[$ti]*256,$b[$ti]*256);
+         printf("&lt;span style=\"background-color : #%.2x%.2x%.2x\"&gt;&amp;nbsp;&lt;/span&gt;\n",$r[$ti]*256,$g[$ti]*256,$b[$ti]*256);
+       }
+     }

@@ Line 1: / Line 1: @@
-== generation de palette de couleur ==
+Un petit script naif pour generer une palette de 24 couleurs, potentiellement adequate pour du graphing
-−
-un petit script naif pour generer une palette de 24 couleurs, potentiellement adequate pour du graphing
 Usage: ./palette.pl | sed 's/100/ff/g' > ./palette.html
@@ Line 30: / Line 28: @@
    print "</body></html>\n";
 </code>

← Older revision	Revision as of 20:31, 12 December 2012
(No difference)

@@ Line 9: / Line 9: @@
 <code>
    #!/usr/bin/perl
    print "<html> <head><title>palette</title></head> <body>\n";
    for $v1 ( 4,3 ) {
      $v = $v1 / 4;

@@ Line 8: / Line 8: @@
 <code>
-\#!/usr/bin/perl
+  #!/usr/bin/perl
-print "<html> <head><title>palette</title></head> <body>\n";
+  print "<html> <head><title>palette</title></head> <body>\n";
-for $v1 ( 4,3 ) {
+  for $v1 ( 4,3 ) {
-  $v = $v1 / 4;
+    $v = $v1 / 4;
-  for $s1 ( 2 ) {
+    for $s1 ( 2 ) {
-    $s = $s1/2;
+      $s = $s1/2;
-      for $h1 (0,1,2,3,4,5,6,7,8,9,10,11) {
+        for $h1 (0,1,2,3,4,5,6,7,8,9,10,11) {
-      $h = $h1 * 30;
+        $h = $h1 * 30;
-      $ti = int($h/60) % 6;
+        $ti = int($h/60) % 6;
-      $f = $h/60 - $ti;
+        $f = $h/60 - $ti;
-      $l = $v * (1 - $s);
+        $l = $v * (1 - $s);
-      $m = $v * (1 - $f * $s);
+        $m = $v * (1 - $f * $s);
-      $n = $v * (1 - (1 - $f) * $s);
+        $n = $v * (1 - (1 - $f) * $s);
-      @r = ($v,$m,$l,$l,$n,$v);
+        @r = ($v,$m,$l,$l,$n,$v);
-      @g = ($n,$v,$v,$m,$l,$l);
+        @g = ($n,$v,$v,$m,$l,$l);
-      @b = ($l,$l,$n,$v,$v,$m);
+        @b = ($l,$l,$n,$v,$v,$m);
-      printf("<span style=\"background-color : #%.2x%.2x%.2x\">&nbsp;</span>\n",$r[$ti]*256,$g[$ti]*256,$b[$ti]*256);
+        printf("<span style=\"background-color : #%.2x%.2x%.2x\">&nbsp;</span>\n",$r[$ti]*256,$g[$ti]*256,$b[$ti]*256);
+     }
+   }
-print "</body></html>\n";
+  print "</body></html>\n";
 </code>