model streetIntersection

object street
render off

co 0.2 0.2 0.2
{ polygon
	acn 4
	v -25 0 -15
	v -25 0 15
	v 25 0 15
	v 25 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 sidewalk
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 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
}


# masterpiece
object LtoR
render on
call street
push
translate 0 0 -20
call streetT
pop
push
translate 0 0 20
call streetT
pop

push
translate -20 0 -20
call sidewalk
pop
push
translate -20 0 20
call sidewalk
pop
push
translate 20 0 20
call sidewalk
pop
push
translate 20 0 -20
call sidewalk
pop

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

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