Exit Full View
Up

/GardenFurniture/SeatPlanter.foocad

SeatPlanter
FooCAD Source Code
include General.foocad

/*
I plan on adding a plastic container inside, and growing tall plant, such as squashes. The stems will poke out
of the back.
Take off the seat lid to water it.
*/

class SeatPlanter : General() {

    var length = 640
    var width = 440

    var ringCount = 3


    fun height() = (ww + gap) * ringCount - gap


    override fun build() : Shape3d {
        return expandingRings( lumber, length, width, gap, ringCount ) +
            slattedFloor( length, width ) +
            feet( length, width ) +
            lid( length + 80, width + 80, height() )
    }

}