novaBBS - sci.math - mouse HJANDLER Code for PAINT3-com

$nosave = false ; // ******* CHANGE TO TRUE TO STOP SAVE AND UPLOAD

$background = file_get_contents('background.txt');

$bkg = file_get_contents("background.txt");
if ($bkg=='BLACK') { $bgcol = "#000000" ; $bgimage="backblack.png" ; }
else { $bgcol = "#4bc6ff" ; $bgimage="backblue.png" ; }

<html>
<head>
<title>PAINT3</title>

body { margin:0 ; background-repeat: no-repeat }

</style>

<body bgcolor='<? echo $bgcol; ?>' background='<? echo $bgimage; ?>'>

$pol = htmlspecialchars($_GET['pol']) ;
$x = htmlspecialchars($_GET['x']) ;
$y = htmlspecialchars($_GET['y']) ;
$z = htmlspecialchars($_GET['z']) ;
$ang = htmlspecialchars($_GET['ang']) ;
$snap = htmlspecialchars($_GET['sn']) ;
$wf = htmlspecialchars($_GET['wf']) ;
$mx = htmlspecialchars($_GET['mx']) ;
$my = htmlspecialchars($_GET['my']) ;
$jj = htmlspecialchars($_GET['j']) ;
$sr = htmlspecialchars($_GET['sr']) ;
$bk = htmlspecialchars($_GET['b']) ;
$zm = htmlspecialchars($_GET['zm']) ;
$td = htmlspecialchars($_GET['td']) ;
$ld = htmlspecialchars($_GET['ld']) ;
$gr = htmlspecialchars($_GET['gr']) ;
$v = htmlspecialchars($_GET['v']) ;
$w = htmlspecialchars($_GET['w']) ;
$t = htmlspecialchars($_GET['t']) ;
$u = htmlspecialchars($_GET['u']) ;
$com = htmlspecialchars($_GET['com']) ;
$undo = htmlspecialchars($_GET['undo']) ;
$multi= htmlspecialchars($_GET['multi']) ;
$pl = htmlspecialchars($_GET['pl']) ;
$pr = htmlspecialchars($_GET['pr']) ;
$pu = htmlspecialchars($_GET['pu']) ;
$pd = htmlspecialchars($_GET['pd']) ;
$saved = htmlspecialchars($_GET['saved']) ;
$ar = htmlspecialchars($_GET['ar']) ;
$st = htmlspecialchars($_GET['st']) ;

if ($pol=='') {$pol=0;}
if ($com=='') {$com=0;}
if ($x=='') {$x=0;}
if ($y=='') {$y=0;}
if ($z=='') {$z=0;}
if ($ang=='') { $ang=0; }
if ($snap=='') {$snap=10;}
if ($wf=='') {$wf=0;}
if ($mx=='') {$mx=0;}
if ($my=='') {$my=0;}
if ($jj=='') {$jj=0;}
if ($sr=='') { $sr=0; }
if ($bk=='') { $bk=0; }
if ($zm=='') { $zm=5; }
if ($td=='') {$td=0;}
if ($ld=='') {$ld=0;}
if ($gr=='') {$gr=0;}
if ($an=='') {$an=10;}
if ($sp=='') {$sp=0;}
if ($v=='') {$v=0;}
if ($w=='') {$w=0;}
if ($t=='') {$t=0;}
if ($u=='') {$u=0;}
if ($undo=='') { $undo=0; }
if ($saved=='') { $saved=0; }
if ($ar=='') { $ar=0; }
if ($st=='') { $st=0; }

$p=0;
if ($com>0) {$p = $com-1;}

if ( ($com==5) | ($bk==1) )
{ $good = true;
if (strlen($x)!=3) { $good=false; }
if (strlen($y)!=3) { $good=false; }
if (strlen($z)!=3) { $good=false; }
if (!$good) { $x='000' ; $y='000' ; $z='250' ; }
}

function quicksort($left , $right)
{ global $qs , $sorted ;

$mid = $qs[$left];

$le = $left;
$ri = $right;

for ($j=$left ; $j<=$right ; $j++)
{
$qz[$j]=$mid;
$pz[$j]=$sorted[$j];
}

for ($j=$left ; $j<=$right ; $j++)
{
$nv = $qs[$j];
if ($nv<$mid) { $qz[$le]=$nv; $pz[$le]=$sorted[$j]; $le++; }
if ($nv>$mid) { $qz[$ri]=$nv; $pz[$ri]=$sorted[$j]; $ri--; }
}

for ($j=$left ; $j<=$right ; $j++)
{
if ($mid == $qz[$j]) { $midright=$j+1; }
}
for ($j=$right ; $j>=$left ; $j--)
{
if ($mid == $qz[$j]) { $midleft=$j-1; }
}

$d = 1;
for ($i=$left; $i<=$right ; $i++)
{
if ($qs[$i]==$mid)
{
$pz[$midleft+$d] = $sorted[$i];
$d++;
}
}

for ($i=$left; $i<=$right ; $i++)
{
$sorted[$i] = $pz[$i];
$qs[$i] = $qz[$i];
}

if ($left<$midleft)
{
quicksort($left,$midleft);
}
if ($midright<$right)
{
quicksort($midright,$right);
}
}

function farpoint($z1,$z2,$z3)
{ $avz = ($z1+$z2+$z3)/3;
$bkz = min($z1,$z2,$z3);
return intval( (4*$bkz + $avz)/5 ) ;
}

function num2dat($num)
{

if ($num>9999999) { $num=9999999; }
if ($num<-9999999) { $num=-9999999; }
if ($num>=0)
{
$num = $num + 0.5;
$dat = intval(10000000 + $num);
$dat = substr($dat,1);
$dat = '+' . $dat;
}
else
{
$num = $num - 0.5;
$dat = intval($num - 10000000);
$dat = substr($dat,2);
$dat = '-' . $dat;
}
return $dat;
}

function area($x1, $y1, $x2, $y2, $x3, $y3)
{ return abs( ( $x1*($y2-$y3) + $x2*($y3-$y1)+ $x3*($y1-$y2) )/2 );
}

function intriangle( $x, $y , $x1, $y1, $x2, $y2, $x3, $y3)
{
$ta = area ($x1, $y1, $x2, $y2, $x3, $y3);
$ta1 = area ($x, $y, $x2, $y2, $x3, $y3);
$ta2 = area ($x1, $y1, $x, $y, $x3, $y3);
$ta3 = area ($x1, $y1, $x2, $y2, $x, $y);

// Check if sum of A1, A2 and A3 is same as A
return abs( $ta - ( $ta1 + $ta2 + $ta3)) < 1;
}

function inscreen($px,$py)
{ $retval = false;
// if ( ($px>-450000) & ($px<450000) & ($py>-320000) & ($py<320000) )
if ( ($px>-1000000) & ($px<1000000) & ($py>-500000) & ($py<500000) )
{ $retval = true; }
return $retval;
}

function drawcompas()
{ if (!file_exists('compas0.png'))
{

$imwidth = 100;
$imheight = 100;

$im2 = imagecreatetruecolor($imwidth, $imheight);
$sky= imagecolorallocate($im2, 0 , 0 , 0);
$comp = imagecolorallocate($im2, 100 , 200 , 250) ;
$gren = imagecolorallocate($im2, 70 , 170 , 230) ;
imagecolortransparent($im2,$sky);

for ($ang=0 ; $ang<360 ; $ang=$ang+5 )
{ imagefilledrectangle($im2,0,0,$imwidth, $imheight , $sky);

$val[0] = 50 - 50;
$val[1] = 20 - 50;
$val[2] = 70 - 50;
$val[3] = 80 - 50;
$val[4] = 50 - 50;
$val[5] = 64 - 50;
$val[6] = 30 - 50;
$val[7] = 80 - 50;

for ($x=0 ; $x<7 ; $x=$x+2)
{ $v[$x] = cos($ang/57.298)*$val[$x] - sin($ang/57.298)*$val[$x+1] + 50;
$v[$x+1] = cos($ang/57.298)*$val[$x+1] + sin($ang/57.298)*$val[$x] + 50;
}

// draw a polygon
if ($ang%90==0) { imagefilledpolygon($im2, $v, 4, $gren); }
else { imagefilledpolygon($im2, $v, 4, $comp); }
imagepng($im2 , 'compas' . $ang . '.png');
} }
}

function nearscreen($x1,$y1)
{ if ( ($x1>-1000) & ($x1<1900) & ($y1>-1000) & ($y1<1640) )
{ return true; }
else
{ return false; }
}

// *********************** BEGIN

if ($undo==0) { drawcompas(); }

if ($undo<0)
{ $f = file_get_contents('undo/undo' . (0-$undo) . '.txt');
file_put_contents('3d.txt' , $f);

$pol = 0;
$multi = '';
$gr=0;

}
else
{
$f = file_get_contents('3d.txt');
}

$fl = strlen($f);

$br = substr($f,0,3);
$bg = substr($f,3,3);
$bb = substr($f,6,3);

Click here to read the complete article

Subject	Author
mouse HJANDLER Code for PAINT3-com	Graham Cooper

Nonsense. Space is blue and birds fly through it. -- Heisenberg

tech / sci.math / mouse HJANDLER Code for PAINT3-com