/DRAWGRAD

alias drawrgrad {
  ; /drawgrad <+><h/v> <@pwin> <x y w h> <rgb value 1> <rgb value 2>
  if ($8 == $null) { echo -s */drawrgrad Insuficient parameters | halt }
  var %r = $gettok($rgb($7),1,44), %g = $gettok($rgb($7),2,44), %b = $gettok($rgb($7),3,44)
  var %r1 = $gettok($rgb($8),1,44), %g1 = $gettok($rgb($8),2,44), %b1 = $gettok($rgb($8),3,44)
  var %a = $iif($1 == +h, $3, $4), %z = $iif($1 == +h, $calc($3 + $5), $calc($4 + $6))
  var %i.r = $calc((%r1 - %r) / $iif($1 == +h, $5, $6)), %i.g = $calc((%g1 - %g) / $iif($1 == +h, $5, $6)), %i.b = $calc((%b1 - %b) / $iif($1 == +h, $5, $6))
  while (%a <= %z) {
    drawline -r $2 $rgb(%r ,%g ,%b) 1 $iif($1 == +h, %a $4 %a $calc($4 + $6), $3 %a $calc($3 + $6) %a)
    var %r = $calc(%r + %i.r), %g = $calc(%g + %i.g), %b = $calc(%b + %i.b)
    inc %a 1
  }
}
alias drawcgrad {
  ; /drawcgrad @ <x y> <r> $rgb1 $rgb2
  if ($6 == $null) { echo -s */drawcgrad Insuficient parameters | halt }
  var %r = $gettok($rgb($5),1,44), %g = $gettok($rgb($5),2,44), %b = $gettok($rgb($5),3,44)
  var %r1 = $gettok($rgb($6),1,44), %g1 = $gettok($rgb($6),2,44), %b1 = $gettok($rgb($6),3,44)
  var %z = $4
  var %i.r = $calc((%r1 - %r) / %z), %i.g = $calc((%g1 - %g) / %z), %i.b = $calc((%b1 - %b) / %z)
  while (%z >= 1) {
    drawcircle -f $1 $2-3 %z $rgb(%r,%g,%b)
    var %r = $calc(%r + %i.r), %g = $calc(%g + %i.g), %b = $calc(%b + %i.b)
    dec %z 1
  }
}
alias drawcircle {
  ; /drawcircle <->[f] @ <x y> <r> $rgb [t]
  if (!$5) { echo -s */drawcircle Insuficient parameters | halt }
  drawrect $iif($1 == -f, -efr, -er) $2 $6 $iif($7 != $null,$7,1) $calc($3 - ($5 / 2)) $calc($4 - ($5 / 2)) $5 $5
}