model streetLtoR

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 sidewalk
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
}


# masterpiece
object LtoR
render on
call street
push
translate 0 0 -20
call sidewalk
pop
push
translate 0 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