View - Part 7

eXorithm – Execute Algorithm: View / Run Algorithm google_translate

January 31, 2018 by ToneDJCampbellin View

function google_translate ($text, $from, $to { $transfile_get_contents"http://ajax.googleapis.com/ajax/services/language/translate?v=1.0&q="urlencode$text)."&langpair="urlencode$from)."|"urlencode$to)); $json = json_decode$trans); if (!isset$json->responseStatus) || ($json->responseStatus!=200)) { throw new Exception"Translation could not be retreived for '$text'"); } return $json->responseData->translatedText; }

eXorithm – Execute Algorithm: View / Run Algorithm image_callback

January 30, 2018September 24, 2019 by ToneDJCampbellin View

function image_callback ($image, $operation
{
  /* perform a series of transformation on an image */
  
  switch ($operation) {
    case "flip"
      $image = flip_image$image, "vertical");
      break
    case "skew"
      $image = skew_image$image, 0.5);
      break
    case "invert"
      $image = invert_image$image);
      break
  }
  
  $ret = array();
  $ret"return"] = $image
  $ret"handler"] = HANDLER_IMAGE;
  $ret"arguments"] = array$image);
  return $ret
}

eXorithm – Execute Algorithm: View / Run Algorithm hello_world

January 25, 2018 by ToneDJCampbellin View

function hello_world () { return "Hello World" }

eXorithm – Execute Algorithm: View / Run Algorithm stock_ticker

January 13, 2018September 24, 2019 by ToneDJCampbellin View

function stock_ticker ($symbols, $background_color, $stock_color, $price_color, $up_color, $down_color, $speed
{
  sort$symbols);
  
  if ($background_color==$stock_color) {
    // something's wrong, colors weren't specified
    $background_color = invert_color$background_color);
  }
  
  $return = '<div align="center">
  <marquee bgcolor="#'$background_color'" loop="20" scrollamount="'$speed'">'
  
  foreach ($symbols as $symbol) {
    $data = file_get_contents"http://quote.yahoo.com/d/quotes.csv?s=$symbol&f=sl1d1t1c1ohgv&e=.csv");
    
    $values = explode",", $data);
    $lasttrade = $values[1];
    $change = $values[4];
    
    $return .= "<span style="color:#$stock_color">$symbol</span> &nbsp;"
    $return .= "<span style="color:#$price_color">$lasttrade</span> &nbsp;"
    if ($change<0)
      $return .= "<span style="color:#$down_color">$change</span> &nbsp;"
    else
      $return .= "<span style="color:#$up_color">$change</span> &nbsp;"
    $return .= "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;"
  }
  
  $return .= '</marque>
  </div>'
  
  return $return
}

eXorithm – Execute Algorithm: View / Run Algorithm isbn_validate

January 12, 2018 by ToneDJCampbellin View

eXorithm – Execute Algorithm: View / Run Algorithm shorten_url

January 3, 2018 by ToneDJCampbellin View

function shorten_url ($url, $limit, $dotdotdot { $length = strlen$url); if ($length > $limit) { $s = substr$url, 0, floor(2*$limit/3)); $e = substr$url, -1*floor$limit/3)); return $s$dotdotdot$e } else { return $url } }

eXorithm – Execute Algorithm: View / Run Algorithm antialias_pixel

December 17, 2017 by ToneDJCampbellin View

function antialias_pixel ($image, $x, $y, $color, $weight { $c = imagecolorsforindex$image, $color); $r1 = $c'red']; $g1 = $c'green']; $b1 = $c'blue']; $t1 = $c'alpha']; $color2 = imagecolorat$image, $x, $y); $c = imagecolorsforindex$image, $color2); $r2 = $c'red']; $g2 = $c'green']; $b2 = $c'blue']; $t2 = $c'alpha']; $cweight = $weight+($t1/127)*(1-$weight)-($t2/127)*(1-$weight); $r = round$r2$cweight + $r1*(1-$cweight)); $g = round$g2$cweight + $g1*(1-$cweight)); $b = round$b2$cweight + $b1*(1-$cweight)); $t = round$t2$weight + $t1*(1-$weight)); return imagecolorallocatealpha$image, $r, $g, $b, $t); }

eXorithm – Execute Algorithm: View / Run Algorithm draw_playing_card

December 3, 2017 by ToneDJCampbellin View

eXorithm – Execute Algorithm: View / Run Algorithm isbn_validator

November 28, 2017September 24, 2019 by ToneDJCampbellin View

function isbn_validator ($isbn
{
  $isbnpreg_replace'/[^dX]/'''$isbn);  //remove all non-numeric or X chars
  $casestrlen$isbn);
  switch ($case
  {
    case 10:
      if(!isbn_validate$isbn, 2))
        return 0;  //Failure - not valid ISBN
      else
        $isbnconv_isbn$isbn);
      break
    case 13:
      $isbnpreg_replace'/[^d]/'''$isbn);  //remove all non-numeric chars
      if(!isbn_validate$isbn, 1))
        return 0;  //Failure - not valid ISBN
      break
    default
      return 0;
  }
  $isbnisbn_hyphenate$isbn);
  return $isbn
}

eXorithm – Execute Algorithm: View / Run Algorithm unique_image

November 23, 2017September 24, 2019 by ToneDJCampbellin View

function unique_image ($string
{
  $size=200;
  $steps=5;
  $step$size$steps
  
  $image = image_create_alpha$size, $size);
  
  $n = 0;
  $prev = 0;
  $len = strlen$string);
  $sum = 0;
  for ($i=0;$i$len$i++) $sum += ord$string$i]);
  
  for ($i=0;$i$steps$i++) {
    for ($j=0;$j$steps$j++) {
      $letter = $string$n++ % $len];
      
      $u = ($n % (ord$letter)+$sum)) + ($prev % (ord$letter)+$len)) + (($sum-1) % ord$letter));
      $color = imagecolorallocate$image, pow$u$prev$u$prev+5,2)%256, pow$u$prev$u$prev+3,2)%256, pow$u$prev$u$prev+1,2)%256);
      if (($u%2)==0)
        imagefilledpolygon$image, array$i$step, $j$step, $i$step$step, $j$step, $i$step, $j$step$step), 3, $color);
      $prev = $u
      
      $u = ($n % (ord$letter)+$len)) + ($prev % (ord$letter)+$sum)) + (($sum-1) % ord$letter));
      if (($u%2)==0)
        imagefilledpolygon$image, array$i$step, $j$step$step, $i$step$step, $j$step$step, $i$step$step, $j$step), 3, $color);
      $prev = $u
    
    }
  }
  
  return $image
}