// use globally available functions to:
//*Bradd Birmingham - Task02 *//
setBackgroundColor(.7, .8, .9);
setPenColor(0, 0, 0);
setPenWeight(.02);
//
//*center perspective box*/
drawLine(.31, .31, .61, .51);
drawLine(.61, .51, .61, .78); /*left*/
drawLine(.61, .78, .31, .55);
drawLine(.31, .55, .31, .31);
drawLine(.31, .31, .51, .25);
drawLine(.51, .25, .81, .45);
drawLine(.81, .45, .81, .71); /*right*/
drawLine(.81, .71, .61, .78); /*bottom*/
drawLine(.81, .45, .61, .51); /*top*/

//*red sketch lines from perspective box*/
setPenColor(.5, 0, 0);
setPenWeight(.001)
drawLine(0, .7, 1, .39);
drawLine(0, .4, 1, .1);
drawLine(0, .99, 1, .64);
drawLine(.61, 0, .61, 1);
drawLine(.81, 0, .81, 1);
drawLine(.31, 0, .31, 1);
drawLine(0, .31, .9, 1);
drawLine(0, .1, 1, .77);
drawLine(.14, 0, 1, .58);

//*shading vertical lines*/
setPenColor(0,0,0)
drawLine(.00, .32, .00, 1);
drawLine(.01, .325, .01, 1);
drawLine(.02, .33, .02, 1);
drawLine(.03, .34, .03, 1);
drawLine(.04, .345, .04, 1);
drawLine(.05, .355, .05, 1);
drawLine(.06, .36, .06, 1);
drawLine(.07, .365, .07, 1);
drawLine(.08, .38, .08, 1);
drawLine(.09, .385, .09, 1);
drawLine(.1, .39, .1, 1);
drawLine(.11, .395, .11, 1);
drawLine(.12, .40, .12, 1);
drawLine(.13, .41, .13, 1);
drawLine(.14, .42, .14, 1);
drawLine(.15, .425, .15, 1);
drawLine(.16, .43, .16 ,1);
drawLine(.17, .44, .17 ,1);
drawLine(.18, .45, .18 ,1);
drawLine(.19, .455, .19 ,1);
drawLine(.20, .465, .20 ,1);
drawLine(.21, .475, .21 ,1);
drawLine(.22, .48, .22 ,1);
drawLine(.23, .485, .23 ,1);
drawLine(.24, .495, .24 ,1);
drawLine(.25, .50, .25 ,1);
drawLine(.26, .51, .26 ,1);
drawLine(.27, .52, .27 ,1);
drawLine(.28, .53, .28 ,1);
drawLine(.29, .54, .29 ,1);
drawLine(.30, .55, .30 ,1);
drawLine(.31, .56, .31 ,1);
drawLine(.32, .565, .32 ,1);
drawLine(.33, .57, .33 ,1);
drawLine(.34, .58, .34 ,1);
drawLine(.35, .59, .35 ,1);
drawLine(.36, .595, .36 ,1);
drawLine(.37, .60, .37 ,1);
drawLine(.38, .61, .38 ,1);
drawLine(.39, .62, .39 ,1);
drawLine(.40, .63, .40 ,1);
drawLine(.41, .635, .41 ,1);
drawLine(.42, .64, .42 ,1);
drawLine(.43, .65, .43 ,1);
drawLine(.44, .66, .44 ,1);
drawLine(.45, .665, .45 ,1);
drawLine(.46, .67, .46 ,1);
drawLine(.47, .68, .47 ,1);
drawLine(.48, .69, .48 ,1);
drawLine(.49, .695, .49 ,1);
drawLine(.50, .70, .50 ,1);
drawLine(.51, .71, .51 ,1);
drawLine(.52, .72, .52 ,1);
drawLine(.53, .725, .53 ,1);
drawLine(.54, .73, .54 ,1);
drawLine(.55, .74, .55 ,1);
drawLine(.56, .75, .56 ,1);
drawLine(.57, .755, .57 ,1);
drawLine(.58, .76, .58 ,1);
drawLine(.59, .77, .59 ,1);
drawLine(.60, .78, .60 ,1);
drawLine(.61, .79, .61 ,1);
drawLine(.62, .795, .62 ,1);
drawLine(.63, .80, .63 ,1);
drawLine(.64, .805, .64 ,1);
drawLine(.65, .81, .65 ,1);
drawLine(.66, .815, .66 ,1);
drawLine(.67, .82, .67 ,1);
drawLine(.68, .83, .68 ,1);
drawLine(.69, .84, .69 ,1);
drawLine(.70, .845, .70 ,1);
drawLine(.71, .86, .71 ,1);
drawLine(.72, .865, .72 ,1);
drawLine(.73, .87, .73 ,1);
drawLine(.74, .88, .74 ,1);
drawLine(.75, .89, .75 ,1);
drawLine(.76, .895, .76 ,1);
drawLine(.77, .905, .77 ,1);
drawLine(.78, .91, .78 ,1);
drawLine(.79, .92, .79 ,1);
drawLine(.80, .925, .80 ,1);
drawLine(.82, .94, .82 ,1);
drawLine(.83, .95, .83 ,1);
drawLine(.84, .955, .84 ,1);
drawLine(.85, .96, .85 ,1);
drawLine(.86, .97, .86 ,1);
drawLine(.87, .98, .87 ,1);
drawLine(.88, .99, .88 ,1);
drawLine(.89, 1, .89 ,1);

//*shaded box variables*//
var top = .15;
var left = .2;
var bottom = .2;
var right = .9;

//*shaded box outlines*//
setPenColor=(1,0,0);
drawLine(left, top, right, top);
drawLine(right, top, right, bottom);
drawLine(right, bottom, left, bottom);
drawLine(left, bottom, left, top)

// 02: binding color and position
var pw = .001;
var x = left;
setPenWeight(pw * 3);
while (x <= right) {
// grey
setPenColor(1,0,0) /*seems not to change anything*/
drawLine(x, top, x, bottom);
x += pw; /* don't understand x += pw */
// stop playback head to prevent continuous redrawing
//
stop();
}