// dependency: https://github.com/revarbat/BOSL
use <BOSL/transforms.scad>

use <holodisk_spec.scad>

include <anim.scad>

// outside config
tape_height=5;
tape_z=4;


module reader(disk_size) {
    width=disk_size.x;
    depth=disk_size.y;
    height=disk_size.z;

    laser_cutout_size = get_holodisk_laser_cutout_size();
    laser_cutout_pos = get_holodisk_laser_cutout_pos_center();
    
    frame=5;
    head_frame=2;
    head_size=[14, 10, tape_height+head_frame*2];
    head_pos=[laser_cutout_pos.x, -frame+2, tape_z-head_frame];
    laser_size=[10, 2, tape_height];
    laser_offset=3;
    laser_pos=[laser_cutout_pos.x, laser_cutout_pos.y + laser_offset, tape_z];
    laser_tower_size=[laser_cutout_size.x - 1, laser_cutout_size.y - 1 - laser_offset, 15];
    
    module laser(corner=0.1) {
        up(laser_size.z/2)
        up(corner)
        color("Red")
        fwd(laser_cutout_size.y/3) cube(laser_size, center=true);
    }
    
    module laser_tower(corner=1) {
        color("DarkSlateBlue")
        difference() {
            up(laser_size.z/2)
            fwd(laser_offset/2) scale(0.99) cube(laser_tower_size, center=true);
            fwd(laser_size.y/3) scale(1.1) laser();
        }
    }
    
    module laser_space() {
        translate(get_holodisk_laser_cutout_pos_center()) cube(get_holodisk_laser_cutout_size(), center=true);
    }
    
    module head_space() {
        /*stube=[head_size.x-head_frame*2, head_size.y+head_frame*3, head_size.z-head_frame*2];
        up(head_size.z/4 + head_frame)
            cube(stube, center=true);*/
        translate(get_holodisk_laserwindow_pos_center()) cube(get_holodisk_laserwindow_size(), center=true);
    }
    
    module head(corner=0.5) {
        up(corner)
        back(head_size.y/2)
        color("DarkSlateBlue")
        minkowski() {
            s=[head_size[0], head_size[1] + frame, head_size[2]-corner*2];
            
            difference() {
                translate(head_pos) up(head_size.z/2) cube(s, center=true);
                head_space();
            }
            sphere(corner);
        }
    }
   
    //head();
    
    retraction=laser_tower_size.z;
    down(retraction)
    up(anim(2, 3)*retraction)
    down(anim(5, 6)*retraction)
    translate(laser_pos) {
        laser();
        laser_tower();
    }
    
    color("DarkSlateBlue") {
        difference() {
            fwd(frame) cube([width, frame, height]);
            head_space();
        }
        down(frame) difference() {
            fwd(frame) cube([width, depth + frame, frame]);
            scale(1.01) down(0.01) laser_space();
        }
    }
}

holodisk_size = is_undef(disk_size) ? [50, 100, 20] : disk_size;

reader(holodisk_size);