model streetCornerL2T

object street
render off

co 0.2 0.2 0.2
{ polygon
	acn 4
	v -15 0 -15
	v -15 0 15
	v 15 0 15
	v 15 0 -15
}

object streetT
render off

co 0.2 0.2 0.2
{ polygon
	acn 4
	v -15 0 -5
	v -15 0 5
	v 15 0 5
	v 15 0 -5
}

object sidewalkS
render off

# top
co 0.8 0.8 0.8
{ polygon
	acn 4
	v -5 1 -5
	v -5 1 5
	v 5 1 5
	v 5 1 -5
}

# long side front
{ polygon
	acn 4
	v -5 1 5
	v -5 0 5
	v 5 0 5
	v 5 1 5
}

# long side rear
push
rotate 180 0 1 0
{ polygon
	acn 4
	v -5 1 5
	v -5 0 5
	v 5 0 5
	v 5 1 5
}
pop

# short side left
{ polygon
	acn 4
	v -5 1 -5
	v -5 0 -5
	v -5 0 5
	v -5 1 5
}

# short side right
push
rotate 180 0 1 0
{ polygon
	acn 4
	v -5 1 -5
	v -5 0 -5
	v -5 0 5
	v -5 1 5
}
pop

object sidewalkL
render off

# top
co 0.8 0.8 0.8
{ polygon
	acn 4
	v -25 1 -5
	v -25 1 5
	v 25 1 5
	v 25 1 -5
}

# long side front
{ polygon
	acn 4
	v -25 1 5
	v -25 0 5
	v 25 0 5
	v 25 1 5
}

# long side rear
push
rotate 180 0 1 0
{ polygon
	acn 4
	v -25 1 5
	v -25 0 5
	v 25 0 5
	v 25 1 5
}
pop

# short side left
{ polygon
	acn 4
	v -25 1 -5
	v -25 0 -5
	v -25 0 5
	v -25 1 5
}

# short side right
push
rotate 180 0 1 0
{ polygon
	acn 4
	v -25 1 -5
	v -25 0 -5
	v -25 0 5
	v -25 1 5
}
pop

object lines
render off
co 1 1 0

{ polygon
	acn 4
	v -2.5 0.1 -0.5
	v -2.5 0.1 0.5
	v 2.5 0.1 0.5
	v 2.5 0.1 -0.5
}

object linesC
render off
co 1 1 0

{ polygon
	acn 4
	v -2.5 0.1 -0.5
	v -2.5 0.1 0.5
	v 0 0.1 0.5
	v 0 0.1 -0.5
}
push
rotate -90 0 1 0
{ polygon
	acn 4
	v -2.5 0.1 -0.5
	v -2.5 0.1 0.5
	v 0 0.1 0.5
	v 0 0.1 -0.5
}
pop


# masterpiece
object LtoR
render on

call street
push
translate 0 0 -20
call streetT
pop
push
translate -20 0 0
rotate 90 0 1 0
call streetT
pop

push
translate -20 0 -20
call sidewalkS
pop
push
translate 0 0 20
call sidewalkL
pop
push
translate 20 0 0
rotate 90 0 1 0
call sidewalkL
pop

push
translate -20 0 0
call lines
pop
push
translate -10 0 0
call lines
pop
call linesC

push
rotate 90 0 1 0
push
translate 10 0 0
call lines
pop
push
translate 20 0 0
call lines
pop
pop