All pastes #196279 Raw Edit

stalloneeee!

public text v1 · immutable
·published 2006-10-10 13:05 UTC
rendered paste body
%Draw a picture of a house. Save as gr_ex6.t. You may need to use the following function: 

 

%                drawfill(x,y,fillColour,outlineColour)

 

%If  you draw an enclosed figure and you  want to fill it with colour, use drawfill.
%The (x,y) position must be inside the object to be filled.
%The fillColour is the number corresponding to the colour you want to fill the object.
%The outlineColour is the colour of the outline that you want to fill (must be all the same colour).


View.Set("graphics:max,max")

drawline (maxx,500,maxx,500,black)
 
drawfillbox (300,300,500,300,black)
drawfillbox (300,300,300,430,black)
drawfillbox (300,430,500,430,black)
drawfillbox (500,300,500,430,black)
 drawfill (450, 400, cyan,black)
 
%door
drawfillbox (350,300,450,400,red)
drawfilloval (360,350,10,10,yellow)
 
%roof
drawline (280,430,500,430,black)

drawline (280,430,400,500,black)

drawline (400,500,500,430,black)
 drawfill (430, 470, cyan,black)
drawline (400,500,470,503,black)
drawline (470,503,550,445,black)
 
%side
drawline (500,430,550,445,black)
drawline (550,445,550,325,black)
 drawfill (500, 435, cyan,black)
 
 
drawline (500,300,550,325,black)
 drawfill (540, 435, cyan,black)