Difference between revisions of "User:Lerc/shapes"

From CodeStuff
Jump to: navigation, search
 
(One intermediate revision by the same user not shown)
Line 1: Line 1:
<edcode>
+
An attempt to demonstrate Pythagoras without text.
  
var m;
+
Click run to see it happen.
 +
<edcode>var m;
 
var quarterTurn = Math.PI/2;
 
var quarterTurn = Math.PI/2;
 
var base=65;
 
var base=65;
Line 45: Line 46:
 
                 {x:base,y:-height,dx:base,dy:height,angle:quarterTurn*2},
 
                 {x:base,y:-height,dx:base,dy:height,angle:quarterTurn*2},
 
                 {x:base+height,y:-height,dx:base,dy:height,angle:quarterTurn*3} ],
 
                 {x:base+height,y:-height,dx:base,dy:height,angle:quarterTurn*3} ],
 +
 +
              [ {x:0,y:0,dx:base,dy:height,angle:quarterTurn*0},
 +
                {x:0,y:-(base+height),dx:base,dy:height,angle:quarterTurn*1},
 +
                {x:base,y:-height,dx:base,dy:height,angle:quarterTurn*2},
 +
                {x:height,y:-height,dx:base,dy:height,angle:quarterTurn*3} ],
 +
 +
              [ {x:0,y:0,dx:base,dy:height,angle:quarterTurn*0},
 +
                {x:0,y:-(base+height),dx:base,dy:height,angle:quarterTurn*1},
 +
                {x:base,y:-height,dx:base,dy:height,angle:quarterTurn*2},
 +
                {x:height,y:-height,dx:base,dy:height,angle:quarterTurn*3} ],
  
 
               [ {x:0,y:0,dx:base,dy:height,angle:quarterTurn*0},
 
               [ {x:0,y:0,dx:base,dy:height,angle:quarterTurn*0},
Line 129: Line 140:
 
     setColour("Black");
 
     setColour("Black");
 
     drawPolygon(base,0,0,-height,height,-(base+height),base+height,-(base));
 
     drawPolygon(base,0,0,-height,height,-(base+height),base+height,-(base));
 +
   
 +
   
 +
   
 +
    if (pongage > 11) {
 +
      var s2= (pongage<12?frac:1);
 +
      setColour("rgba(255,255,200,"+s2+")");
 +
      fillPolygon(0,0,  0,-height,  base,0);
 +
 +
      setColour("rgba(0,0,0,"+s2+")");
 +
      drawPolygon(0,0,  0,-height,  base,0);
 +
    }
 +
 
     canvasRestore();
 
     canvasRestore();
 
   }
 
   }
Line 148: Line 171:
 
     if (pongage > 11) {
 
     if (pongage > 11) {
 
       var s2= (pongage<12?frac:1);
 
       var s2= (pongage<12?frac:1);
       setColour("rgba(255,255,100,"+s2+")");
+
       setColour("rgba(255,255,200,"+s2+")");
 
       fillPolygon(height,-(base+height),  (base+height),-(base+height), (base+height), -(base+height*2));
 
       fillPolygon(height,-(base+height),  (base+height),-(base+height), (base+height), -(base+height*2));
  
Line 170: Line 193:
 
     if (pongage > 11) {
 
     if (pongage > 11) {
 
       var s2= (pongage<12?frac:1);
 
       var s2= (pongage<12?frac:1);
       setColour("rgba(255,255,100,"+s2+")");
+
       setColour("rgba(255,255,200,"+s2+")");
 
       fillPolygon(base,-height,  base+height, -height, (base+height), -(base+height));
 
       fillPolygon(base,-height,  base+height, -height, (base+height), -(base+height));
  

Latest revision as of 10:45, 26 April 2012

An attempt to demonstrate Pythagoras without text.

Click run to see it happen.