Browse: Colour Converter

Colour Converter — File Browser

ColourConverterv2.5 / ColourConverterv2.5 / cc / colour.mrc
colour.mrc — 8.27 KB — Download this file
on *:load:{ set %cc_1 $c(173,171) | set %cc_2 $c(12,14) | set %cc_3 $c(39,41) | set %cc_4 $c(51,55) | set %cc_5 $c(67,71) | set %cc_6 $c(36,42) | set %cc_col " $+ $findfile($mircdir,color.dll,1) $+ " | set %cc_mdx " $+ $findfile($mircdir,mdx.dll,1) $+ " | set %cc_r 64 | set %cc_g 128 | set %cc_b 192 | echo -s * Colour Converter v2.5 by airliner (http://www.airliner.nl) loaded... }
on *:unload:{ unset %cc_* | echo -s * Colour Converter v2.5 by airliner (http://www.airliner.nl) unloaded... }
on *:dialog:colour.dialog:*:*:{
  if ($devent == init) {
    dll %cc_mdx SetMircVersion $version | dll %cc_mdx MarkDialog $dname | dll %cc_mdx SetBorderStyle 8,9,10,11,12,13,18,19,20,21,22,23,24,25,26,27,28,30 staticedge | dll %cc_mdx SetColor 8 background $rgb(%cc_r,0,0) | dll %cc_mdx SetColor 9 background $rgb(0,%cc_g,0) | dll %cc_mdx SetColor 10 background $rgb(0,0,%cc_b) | dll %cc_mdx SetColor 28 background $rgb(%cc_r,%cc_g,%cc_b)
    did -c $dname 5 %cc_r | did -c $dname 6 %cc_g | did -c $dname 7 %cc_b | did -a $dname 11,18 %cc_r | did -a $dname 12,19 %cc_g | did -a $dname 13,20 %cc_b | did -a $dname 24 $base(%cc_r, 10, 16, 2) $+ $base(%cc_g, 10, 16, 2) $+ $base(%cc_b, 10, 16, 2) | did -a $dname 21 $round($calc(100 - (%cc_r / 2.55)),0) | did -a $dname 22 $round($calc(100 - (%cc_g / 2.55)),0) | did -a $dname 23 $round($calc(100 - (%cc_b / 2.55)),0) | unset %cc_cp
  }
  if ($devent == edit) {
    if ($did == 11) { $cc_rgbedit(11,5,18,21,8,$did(11),0,0) } |  if ($did == 12) { $cc_rgbedit(12,6,19,22,9,0,$did(12),0) } |  if ($did == 13) { $cc_rgbedit(13,7,20,23,10,0,0,$did(13)) } |  if ($did == 18) { $cc_rgbedit(18,5,11,21,8,$did(11),0,0) } | if ($did == 19) { $cc_rgbedit(19,6,12,22,9,$did(12),0) } | if ($did == 20) { $cc_rgbedit(20,7,13,23,10,0,0,$did(13)) } | if ($did == 21) { $cc_cmyedit(21,5,11,18,8,$did(11),0,0) } | if ($did == 22) { $cc_cmyedit(22,6,12,19,9,0,$did(12),0) } | if ($did == 23) { $cc_cmyedit(23,7,13,20,10,0,0,$did(13)) }
    if ($did == 24) { if ($did(24) isalnum) { did -ra $dname 11,18 $base($left($did(24),2), 16, 10, 0) | did -c $dname 5 $base($left($did(24),2), 16, 10, 0) | did -ra $dname 12,19 $base($mid($did(24),3,2), 16, 10, 0) | did -c $dname 6 $base($mid($did(24),3,2), 16, 10, 0) | did -ra $dname 13,20 $base($right($did(24),2), 16, 10, 0) | did -c $dname 7 $base($right($did(24),2), 16, 10, 0) | dll %cc_mdx SetColor $dname 28 background $rgb($base($left($did(24),2), 16, 10, 0),$base($mid($did(24),3,2), 16, 10, 0),$base($right($did(24),2), 16, 10, 0))
        dll %cc_mdx SetColor $dname 8 background $rgb($base($left($did(24),2), 16, 10, 0),0,0) | dll %cc_mdx SetColor $dname 9 background $rgb(0,$base($mid($did(24),3,2), 16, 10, 0),0) | dll %cc_mdx SetColor $dname 10 background $rgb(0,0,$base($right($did(24),2), 16, 10, 0))
      }
    else { did -ra colour.dialog 24 $base($did(colour.dialog,11), 10, 16, 2) $+ $base($did(colour.dialog,12), 10, 16, 2) $+ $base($did(colour.dialog,13), 10, 16, 2) } }
  }
  if ($devent == scroll) { if ($did == 5) { $cc_scroll(5,11,18,21,8,$did(5).sel,0,0) } | if ($did == 6) { $cc_scroll(6,12,19,22,9,0,$did(6).sel,0) } | if ($did == 7) { $cc_scroll(7,13,20,23,10,0,0,$did(7).sel) } }
  if ($devent == sclick) { if ($did == 25) { clipboard $did(18) $+ , $+ $did(19) $+ , $+ $did(20) } | if ($did == 26) { clipboard $did(21) $+ , $+ $did(22) $+ , $+ $did(23) } | if ($did == 27) { clipboard $did(24) } | if ($did == 30) { .timer_cc -m 0 1 cc_check | set %cc_cp $rgb($dll(%cc_col,Color,$rgb($did(11),$did(12),$did(13)))) } }
  if ($devent == close) { set %cc_r $did(11) | set %cc_g $did(12) | set %cc_b $did(13) | unset %cc_cp | if ($timer(_cc)) { .timer_cc off } }
}
alias colour { if (!$dialog(colour.dialog)) { dialog -md colour.dialog colour.dialog } }
alias -l cc_scroll { did -ra colour.dialog $$2 $+ , $+ $$3 $did(colour.dialog,$$1).sel | did -ra colour.dialog $$4 $round($calc(100 - ($did(colour.dialog,$$1).sel / 2.55)),0) | dll %cc_mdx SetColor colour.dialog $$5 background $rgb($$6,$$7,$$8) | dll %cc_mdx SetColor colour.dialog 28 background $rgb($did(colour.dialog,11),$did(colour.dialog,12),$did(colour.dialog,13)) | did -ra colour.dialog 24 $base($did(colour.dialog,11), 10, 16, 2) $+ $base($did(colour.dialog,12), 10, 16, 2) $+ $base($did(colour.dialog,13), 10, 16, 2) }
alias -l cc_rgbedit { 
  if ($did(colour.dialog,$$1) isnum 0-255) { did -c colour.dialog $$2 $did(colour.dialog,$$1) | did -ra colour.dialog $$3 $did(colour.dialog,$$1) | did -ra colour.dialog $$4 $round($calc(100 - ($did(colour.dialog,$$1) / 2.55)),0) | dll %cc_mdx SetColor colour.dialog $$5 background $rgb($$6,$$7,$$8) | dll %cc_mdx SetColor colour.dialog 28 background $rgb($did(colour.dialog,11),$did(colour.dialog,12),$did(colour.dialog,13)) | did -ra colour.dialog 24 $base($did(colour.dialog,11), 10, 16, 2) $+ $base($did(colour.dialog,12), 10, 16, 2) $+ $base($did(colour.dialog,13), 10, 16, 2) }
  else { did -ra colour.dialog $$1 $did(colour.dialog,$$2).sel }
}
alias -l cc_cmyedit {
  if ($did(colour.dialog,$$1) isnum 0-100) { did -c colour.dialog $$2 $round($calc(255 - ($did(colour.dialog,$$1) * 2.55)),0) | did -ra colour.dialog $$3 $+ , $+ $$4 $round($calc(255 - ($did(colour.dialog,$$1) * 2.55)),0) | did -ra colour.dialog 24 $base($did(colour.dialog,11), 10, 16, 2) $+ $base($did(colour.dialog,12), 10, 16, 2) $+ $base($did(colour.dialog,13), 10, 16, 2) | dll %cc_mdx SetColor colour.dialog $$5 background $rgb($iif($did == 21,$round($calc(255 - ($did(colour.dialog,21) * 2.55)),0),0),$iif($did == 22,$round($calc(255 - ($did(colour.dialog,22) * 2.55)),0),0),$iif($did == 23,$round($calc(255 - ($did(colour.dialog,23) * 2.55)),0),0)) | dll %cc_mdx SetColor colour.dialog 28 background $rgb($did(colour.dialog,11),$did(colour.dialog,12),$did(colour.dialog,13)) }
  else { did -ra colour.dialog $$1 $round($calc(100 - ($did(colour.dialog,$$2).sel / 2.55)),0) }
}
alias -l cc_check {
  if (%cc_cp) {
    did -ra colour.dialog 11,18 $gettok(%cc_cp,1,44) | did -ra colour.dialog 12,19 $gettok(%cc_cp,2,44) | did -ra colour.dialog 13,20 $gettok(%cc_cp,3,44) | did -ra colour.dialog 24 $base($gettok(%cc_cp,1,44), 10, 16, 2) $+ $base($gettok(%cc_cp,2,44), 10, 16, 2) $+ $base($gettok(%cc_cp,3,44), 10, 16, 2) | did -ra colour.dialog 21 $round($calc(100 - ($gettok(%cc_cp,1,44) / 2.55)),0) | did -ra colour.dialog 22 $round($calc(100 - ($gettok(%cc_cp,2,44) / 2.55)),0) | did -ra colour.dialog 23 $round($calc(100 - ($gettok(%cc_cp,3,44) / 2.55)),0)
    did -c colour.dialog 5 $gettok(%cc_cp,1,44) | did -c colour.dialog 6 $gettok(%cc_cp,2,44) | did -c colour.dialog 7 $gettok(%cc_cp,3,44) | dll %cc_mdx SetColor colour.dialog 28 background $rgb($gettok(%cc_cp,1,44),$gettok(%cc_cp,2,44),$gettok(%cc_cp,3,44)) | dll %cc_mdx SetColor colour.dialog 8 background $rgb($gettok(%cc_cp,1,44),0,0) | dll %cc_mdx SetColor colour.dialog 9 background $rgb(0,$gettok(%cc_cp,2,44),0) | dll %cc_mdx SetColor colour.dialog 10 background $rgb(0,0,$gettok(%cc_cp,3,44)) | .timer_cc off | unset %cc_cp
  }
}
alias -l c { return $iif($version == 6.1,$$2,$$1) }
dialog colour.dialog {
  title "Colour Converter v2.5 - airliner"
  size -1 -1 191 75
  option dbu
  box "", 1, 2 0 187 73
  text "Red", 2, 7 7 20 8
  text "Green", 3, 7 18 20 8
  text "Blue", 4, 7 29 20 8
  scroll "", 5, 27 6 128 8, horizontal range 255
  scroll "", 6, 27 17 128 8, horizontal range 255
  scroll "", 7, 27 28 128 8, horizontal range 255
  edit "", 8, 160 6 8 8, disable
  edit "", 9, 160 17 8 8, disable
  edit "", 10, 160 28 8 8, disable
  edit "", 11, %cc_1 6 %cc_2 8, center
  edit "", 12, %cc_1 17 %cc_2 8, center
  edit "", 13, %cc_1 28 %cc_2 8, center
  text "RGB:", 14, 7 42 20 8
  text "CMY:", 15, 7 52 20 8
  text "HEX:", 16, 7 62 20 8
  text "Preview:", 17, 134 52 26 8
  edit "", 18, 27 42 %cc_2 8, center
  edit "", 19, %cc_3 42 %cc_2 8, center
  edit "", 20, %cc_4 42 %cc_2 8, center
  edit "", 21, 27 52 %cc_2 8, center
  edit "", 22, %cc_3 52 %cc_2 8, center
  edit "", 23, %cc_4 52 %cc_2 8, center
  edit "", 24, 27 62 %cc_6 8, center limit 6
  button "Copy to clipboard", 25, %cc_5 41 60 10
  button "Copy to clipboard", 26, %cc_5 51 60 10
  button "Copy to clipboard", 27, %cc_5 61 60 10
  button "Open Color Picker »", 30, 134 41 52 10
  edit "", 28, 134 52 52 18, disable
  button "", 29, 0 0 0 0, ok hide
}
menu status,channel,menubar {
  -
  $iif($dialog(colour.dialog),$style(3)) Colour Converter v2.0:{ colour }
  -
}