src/extlib/gen_alpha.tcl

   1 #!/bin/bash
   2
   3 # we start by the independant and invert alpha
   4 # iR * (1 - (alpha / 255))
   5
   6 set Color 0
   7 set Alpha 0
   8 set answer 0
   9
  10 set fd [open "alpha.inc" "w"]
  11
  12 puts $fd ""
  13 puts $fd "static double HCD_IAlpha\[255\]\[255\] = \{"
  14
  15
  16
  17 while {$Color < 255} {
  18         set Alpha 0
  19
  20         while {$Alpha < 255} {
  21                 set answer [expr "[double $Color] * (1 - ([double $Alpha] / 255))"]
  22
  23                 if {$Color == 254 && $Alpha == 254} {
  24                         puts $fd " $answer\}"
  25                 } else {
  26                         if {$Alpha == 0} {
  27                                 puts -nonewline $fd "           \{$answer,"
  28                         } else {
  29
  30                                 if {$Alpha == 254} {
  31                                         puts $fd " $answer\},"
  32                                 } else {
  33                                         puts -nonewline $fd " $answer,"
  34                                 }
  35                         }
  36                 }
  37
  38                 incr Alpha
  39         }
  40
  41         incr Color
  42 }
  43
  44 puts $fd "\};"
  45
  46
  47 # now we do the dependant normal alpha
  48 # aR * (alpha / 255)
  49
  50 puts $fd ""
  51 puts $fd ""
  52
  53 set Color 0
  54 set Alpha 0
  55 set answer 0
  56
  57 puts $fd "static double HCD_Alpha\[255\]\[255\] = \{"
  58
  59
  60 while {$Color < 255} {
  61         set Alpha 0
  62
  63         while {$Alpha < 255} {
  64                 set answer [expr "[double $Color] * ([double $Alpha] / 255)"]
  65
  66                 if {$Color == 254 && $Alpha == 254} {
  67                         puts $fd " $answer\}"
  68                 } else {
  69                         if {$Alpha == 0} {
  70                                 puts -nonewline $fd "           \{$answer,"
  71                         } else {
  72
  73                                 if {$Alpha == 254} {
  74                                         puts $fd " $answer\},"
  75                                 } else {
  76                                         puts -nonewline $fd " $answer,"
  77                                 }
  78                         }
  79                 }
  80
  81                 incr Alpha
  82         }
  83
  84         incr Color
  85 }
  86
  87 puts $fd "\};"
  88
  89 close $fd