Make Rubber tree using L-Systems

RealBadAngel

2013-01-02 23e1d8e0ca7cfc44fed877d733bcfebe7fb32694

Make Rubber tree using L-Systems

 technic/technic/rubber.lua

@@ -51,7 +51,7 @@
minetest.register_node("technic:rubber_leaves", {
    drawtype = "allfaces_optional",
    visual_scale = 1.3,
    tiles = {"default_leaves.png"},
    tiles = {"technic_rubber_leaves.png"},
    paramtype = "light",
    groups = {snappy=3, leafdecay=3, flammable=2, not_in_creative_inventory=1},
    drop = {
@@ -71,7 +71,20 @@
    interval = 60,
    chance = 20,
    action = function(pos, node)
        generate_tree(pos, "technic:rubber_tree_full", "technic:rubber_leaves", {"default:dirt", "default:dirt_with_grass"})
        rubber_tree={
            axiom="FFFFA",
            rules_a="[&FFBFA]////[&BFFFA]////[&FBFFA]",
            rules_b="[&FFA]////[&FFA]////[&FFA]",
            trunk="technic:rubber_tree_full",
            leaves="technic:rubber_leaves",
            angle=35,
            iterations=3,
            random_level=1,
            thin_trunks=false;
            fruit_tree=false,
            fruit=""
            }
            minetest.env:spawn_tree(pos,rubber_tree)
    end
})

@@ -82,7 +95,20 @@
    local tmp = {x=(maxp.x-minp.x)/2+minp.x, y=(maxp.y-minp.y)/2+minp.y, z=(maxp.z-minp.z)/2+minp.z}
    local pos = minetest.env:find_node_near(tmp, maxp.x-minp.x, {"default:dirt_with_grass"})
    if pos ~= nil then
        generate_tree({x=pos.x, y=pos.y+1, z=pos.z}, "technic:rubber_tree_full", "technic:rubber_leaves", {"default:dirt", "default:dirt_with_grass"})
            rubber_tree={
            axiom="FFFFA",
            rules_a="[&FFBFA]////[&BFFFA]////[&FBFFA]",
            rules_b="[&FFA]////[&FFA]////[&FFA]",
            trunk="technic:rubber_tree_full",
            leaves="technic:rubber_leaves",
            angle=35,
            iterations=3,
            random_level=1,
            thin_trunks=false;
            fruit_tree=false,
            fruit=""
            }
            minetest.env:spawn_tree({x=pos.x, y=pos.y+1, z=pos.z},rubber_tree)
    end
end)

@@ -93,94 +119,3 @@
    recipe = "technic:rubber_sapling",
    burntime = 10
})

function generate_tree(pos, trunk, leaves, underground, replacements)
    pos.y = pos.y-1
    local nodename = minetest.env:get_node(pos).name
    local ret = true
    for _,name in ipairs(underground) do
        if nodename == name then
            ret = false
            break
        end
    end
    pos.y = pos.y+1
    if ret or minetest.env:get_node_light(pos) < 8 then
        return
    end
	
    node = {name = ""}
    for dy=1,4 do
        pos.y = pos.y+dy
        if minetest.env:get_node(pos).name ~= "air" then
            return
        end
        pos.y = pos.y-dy
    end
    node.name = trunk
    for dy=0,4 do
        pos.y = pos.y+dy
        minetest.env:set_node(pos, node)
        pos.y = pos.y-dy
    end
	
    if not replacements then
        replacements = {}
    end
	
    node.name = leaves
    pos.y = pos.y+3
    for dx=-2,2 do
        for dz=-2,2 do
            for dy=0,3 do
                pos.x = pos.x+dx
                pos.y = pos.y+dy
                pos.z = pos.z+dz
				
                if dx == 0 and dz == 0 and dy==3 then
                    if minetest.env:get_node(pos).name == "air" and math.random(1, 5) <= 4 then
                        minetest.env:set_node(pos, node)
                        for name,rarity in pairs(replacements) do
                            if math.random(1, rarity) == 1 then
                                minetest.env:set_node(pos, {name=name})
                            end
                        end
                    end
                elseif dx == 0 and dz == 0 and dy==4 then
                    if minetest.env:get_node(pos).name == "air" and math.random(1, 5) <= 4 then
                        minetest.env:set_node(pos, node)
                        for name,rarity in pairs(replacements) do
                            if math.random(1, rarity) == 1 then
                                minetest.env:set_node(pos, {name=name})
                            end
                        end
                    end
                elseif math.abs(dx) ~= 2 and math.abs(dz) ~= 2 then
                    if minetest.env:get_node(pos).name == "air" then
                        minetest.env:set_node(pos, node)
                        for name,rarity in pairs(replacements) do
                            if math.random(1, rarity) == 1 then
                                minetest.env:set_node(pos, {name=name})
                            end
                        end
                    end
                else
                    if math.abs(dx) ~= 2 or math.abs(dz) ~= 2 then
                        if minetest.env:get_node(pos).name == "air" and math.random(1, 5) <= 4 then
                            minetest.env:set_node(pos, node)
                            for name,rarity in pairs(replacements) do
                                if math.random(1, rarity) == 1 then
                                minetest.env:set_node(pos, {name=name})
                                end
                            end
                        end
                    end
                end
				
                pos.x = pos.x-dx
                pos.y = pos.y-dy
                pos.z = pos.z-dz
            end
        end
    end
end

 technic/technic/textures/technic_rubber_leaves.png