Updated Grass with house!

Triple Five · **Posted:** Mon Jan 19, 2004 6:13 pm

code:

View.Set("graphics:650;500")
%background
drawfillbox(0,0,650,500,56)
%Grass
var x,y,half:int
process grass(minx,maxx,miny,maxy:int)
for i:0..20000000
randint(x,minx,maxx)
randint(y,miny,maxy)
half:=maxy-miny
if y<miny+(half div 3) then
drawline(x,y,x+1,y+5,119)
drawline(x,y,x+2,y+5,215)
end if if y<miny+(half div 3*2+5) and y>miny+(half div 3-5) then
drawline(x,y,x+1,y+4,120)
drawline(x,y,x+2,y+4,215)
end if
end for
end grass
fork grass(-2,maxx,0,115)

%House
var pic : int
drawfillbox (24, 247, 273, 84, 114)
drawbox (24, 247, 273, 84, 114)
drawfillbox (278, 80, 608, 389, 114)
drawbox (278, 80, 608, 389, 114)
drawline (273, 84, 279, 81, 7)
drawfillbox (277, 82, 270, 389, 7)
drawbox (277, 82, 270, 389, 7)
pic := Pic.New (26,325,274,244)
drawline (25, 247, 13, 247, 7)
drawline (13, 247, 71, 364, 7)
drawline (71, 364, 270, 364, 7)
drawline (270, 364, 270, 247, 7)
drawline (270, 247, 14, 247, 7)
drawline (609, 389, 618, 389, 7)
drawline (618, 389, 584, 458, 7)
drawline (584, 458, 281, 458, 7)
drawline (270, 389, 258, 389, 7)
drawline (258, 389, 292, 458, 7)
drawline (281, 458, 291, 458, 56)
drawline (258, 389, 616, 389, 7)
drawfillbox (291, 372, 362, 281, 7)
drawbox (291, 372, 362, 281, 7)
drawfillbox (499, 372, 570, 278, 7)
drawbox (499, 372, 570, 278, 7)
drawfillbox (303, 187, 346, 91, 7)
drawbox (303, 187, 346, 91, 7)
drawfillbox (522, 188, 565, 89, 7)
drawbox (522, 188, 565, 89, 7)
drawfillbox (299, 365, 354, 290, 77)
drawbox (299, 365, 354, 290, 77)
drawfillbox (508, 367, 562, 285, 77)
drawbox (508, 367, 562, 285, 77)
drawfillbox (307, 182, 342, 96, 77)
drawbox (307, 182, 342, 96, 77)
drawfillbox (527, 184, 559, 95, 77)
drawbox (527, 184, 559, 95, 77)
drawfillbox (202, 233, 261, 90, 7)
drawbox (202, 233, 261, 90, 7)
drawfillbox (208, 226, 254, 96, 34)
drawbox (208, 226, 254, 96, 34)
drawfillbox (215, 228, 216, 96, 7)
drawbox (215, 228, 216, 96, 7)
drawfillbox (228, 228, 229, 96, 7)
drawbox (228, 228, 229, 96, 7)
drawfillbox (240, 229, 241, 95, 7)
drawbox (240, 229, 241, 95, 7)
drawfillbox (206, 204, 258, 201, 7)
drawbox (206, 204, 258, 201, 7)
drawfillbox (204, 179, 258, 176, 7)
drawbox (204, 179, 258, 176, 7)
drawfillbox (204, 153, 257, 149, 7)
drawbox (204, 153, 257, 149, 7)
drawfillbox (204, 130, 256, 125, 7)
drawbox (204, 130, 256, 125, 7)
drawfillbox (206, 110, 258, 107, 7)
drawbox (206, 110, 258, 107, 7)
drawfillbox (33, 84, 196, 184, 26)
drawbox (33, 84, 196, 184, 26)
drawfillbox (404, 81, 463, 188, 7)
drawbox (404, 81, 463, 188, 7)
drawfillbox (409, 184, 415, 84, 14)
drawbox (409, 184, 415, 84, 14)
drawfillbox (420, 181, 429, 176, 14)
drawbox (420, 181, 429, 176, 14)
drawfillbox (436, 184, 441, 85, 14)
drawbox (436, 184, 441, 85, 14)
drawfillbox (447, 182, 456, 177, 14)
drawbox (447, 182, 456, 177, 14)
drawfillbox (419, 164, 460, 160, 14)
drawbox (419, 164, 460, 160, 14)
drawfillbox (422, 153, 428, 129, 14)
drawbox (422, 153, 428, 129, 14)
drawfillbox (449, 154, 456, 129, 14)
drawbox (449, 154, 456, 129, 14)
drawfillbox (421, 122, 461, 119, 14)
drawbox (421, 122, 461, 119, 14)
drawfillbox (421, 112, 428, 95, 14)
drawbox (421, 112, 428, 95, 14)
drawfillbox (446, 113, 454, 94, 14)
drawbox (446, 113, 454, 94, 14)
drawfillbox (419, 90, 459, 84, 14)
drawbox (419, 90, 459, 84, 14)
drawfilloval (411, 141, -5, 5, 7)
drawoval (411, 141, -5, 5, 7)
drawline (410, 140, 413, 140, 8)
drawline (411, 142, 412, 138, 8)
drawfillbox (380, 80, 384, 212, 92)
drawbox (380, 80, 384, 212, 92)
drawfillbox (364, 223, 499, 211, 92)
drawbox (364, 223, 499, 211, 92)
drawfillbox (485, 211, 492, 80, 92)
drawbox (485, 211, 492, 80, 92)
drawfillbox (380, 210, 376, 80, 92)
drawbox (380, 210, 376, 80, 92)
drawline (364, 224, 416, 250, 7)
drawline (416, 250, 449, 250, 7)
drawline (449, 250, 499, 224, 7)
drawline (365, 226, 498, 226, 7)
drawfill(260,250,grey,black)
drawline (609, 389, 618, 389, 7)
drawline (618, 389, 584, 458, 7)
drawline (584, 458, 281, 458, 7)
drawline (270, 389, 258, 389, 7)
drawline (258, 389, 292, 458, 7)
drawline (281, 458, 291, 458, 56)
drawline (258, 389, 616, 389, 7)
drawfill(265,392,grey,black)
drawline (364, 224, 416, 250, 7)
drawline (416, 250, 449, 250, 7)
drawline (449, 250, 499, 224, 7)
drawline (365, 226, 498, 226, 7)
drawfill(380,230,black,black)

The house was done using a program called pic 2 code!

i wonder if delta made a newer version! Thinking

shorthair · **Posted:** Mon Jan 19, 2004 6:25 pm

Thats awsome , you rock my world , its a big improvement Claping

sport · **Posted:** Mon Jan 19, 2004 7:08 pm

It's huge improvement. But you should start the part of the screen that is being colored by being green and not blue that it look nicer.

MyPistolsIn3D · **Posted:** Thu Apr 29, 2004 1:15 pm

Cool stuff man.

Quote:

The house was done using a program called pic 2 code!

what does that mean though? You can convert pics to code?

Paul · **Posted:** Thu Apr 29, 2004 2:04 pm

yea man, theres always delta's pic~2~code lol.

MyPistolsIn3D · **Posted:** Thu Apr 29, 2004 2:49 pm

Paul · **Posted:** Thu Apr 29, 2004 3:51 pm

Oy....
Delta = a user (the flash mod)
pic~2~code = a program
http://www.compsci.ca/v2/viewtopic.php?t=3009

recneps · **Posted:** Thu Apr 29, 2004 6:02 pm

pic 2 code reads the colours and positions in a pic and makes code out of it for you.
Its designed for convenience.

	Computer Science Canada Programming C, C++, Java, PHP, Ruby, Turing, VB Username: Password: Register
Wiki Blog Search Turing Chat Room Members