# Copyright 2023 James Adams
#
# Licensed under the Apache License, Version 2.0 (the "License");
# you may not use this file except in compliance with the License.
# You may obtain a copy of the License at
#
#    http://www.apache.org/licenses/LICENSE-2.0
#
# Unless required by applicable law or agreed to in writing, software
# distributed under the License is distributed on an "AS IS" BASIS,
# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
# See the License for the specific language governing permissions and

import cadquery as cq

def chamfer_frame(
    length:float = 10,
    width:float = 10,
    height:float = 2,
    chamfer_length:float = 3,
    padding:float = .5,
    frame_width:float = 1.5,
    internal_height_cut:float = 1
    ) -> cq.Workplane:
    chamfer_base = length if length < width else width
    chamfer_safe = chamfer_base/2-.9
    chamfer_attempt = chamfer_length
    chamfer_amount = chamfer_attempt if chamfer_attempt < chamfer_safe else chamfer_safe

    tile = (
        cq.Workplane("XY")
        .box(length-padding, width-padding, height)
        .faces("not Y")
        .edges("Z")
        .chamfer(chamfer_amount)
    )

    internal_cut = (
        cq.Workplane("XY")
        .box(length-frame_width, width-frame_width, height)
        .faces("not Y")
        .edges("Z")
        .chamfer(chamfer_amount)
    )

    internal_tile = (
        cq.Workplane("XY")
        .box(length-frame_width, width-frame_width, height-internal_height_cut)
        .faces("not Y")
        .edges("Z")
        .chamfer(chamfer_amount)
    )
    return tile.cut(internal_cut).union(internal_tile)
