ABBUC e.V. Forum

Code: Alles auswählen

//-----------------------------
// ATARI Falcon 030 Gehäuse
// Rekontruktion
// basierend auf dem 1040STF
// (C)01/2026 mega-hz
//-----------------------------

$fn = 50;

// NUR HILFSMITTEL!
// F030 Rückwand importieren
translate([70,95,80])
rotate([270,270,0])
    color("Yellow")
import("F:/f030.svg", convexity=3);

//-----------------------------
// Rückwand
//-----------------------------
difference()
{
// 1040 und neue Blank Rückwand zusammenfügen
union()
    {
// 1040STF Unterteil       importieren
    rotate([90,0,0])
    color("White")
    import("D:/3D Drucker Files/Atari1040ST_bottom_full.stl", convexity=3);

   
//Rückwand verschliessen
    translate([15,-0.5,3])
    rotate([90,0,0])
    color("White")
    cube([445,46, 3]);
    }

// dünne Platte um die 1040 Beschriftung zu löschen
    translate([15,0.6,3])
    rotate([90,0,0])
    color("White")
    cube([445,46, 1.1]);


//-----------------------------
// Löcher
//-----------------------------
// Loch Reset Taster
translate(v = [40.75, -5, 11.5])
color("Green")
roundedcube([6.9, 9, 6.9], false, 0.25, "y");

// Loch Kaltgeräte Buchse(1.5mm höher als 1040)
translate(v = [64, -5, 21+1.5])
color("Green")
roundedcube([31.2, 9, 23,4], false, 2.5, "y");

// Loch Netzschalter(1.5mm höher als 1040)
translate(v = [128.8, -5, 28+1.5])
color("Green")
roundedcube([29, 9, 8,4], false, 0.25, "y");

// Loch LAN
translate(v = [138.8-27, 4, 16])
color("Yellow")
rotate([90,0,0])
cylinder(9, d=12);

// Loch Modem
translate(v = [138.8, -5, 9])
color("Yellow")
roundedcube([32.5, 9, 15], false, 0.5, "y");

}

//-----------------------------
// Beschriftungen
//-----------------------------
// Schrift RESET
translate(v = [49, -1, 4])
color("Green")
rotate([90,0,180])
linear_extrude(1)
    text("RESET", font = "Monospac821 BT:style=Bold",size = 2.7);

// Schrift POWER Buchse
translate(v = [86, -1, 18])
color("Green")
rotate([90,0,180])
linear_extrude(1)
    text("POWER", font = "Monospac821 BT:style=Bold",size = 2.7);

// Schrift LAN
translate(v = [114.8, -1, 4])
color("Green")
rotate([90,0,180])
linear_extrude(1)
    text("LAN", font = "Monospac821 BT:style=Bold",size = 2.7);

// Schrift POWER Schalter
translate(v = [158, -1, 39])
color("Green")
rotate([90,0,180])
linear_extrude(1)
    text("0   POWER   1", font = "Monospac821 BT:style=Bold",size = 2.7);

// Schrift RS232
translate(v = [160.8, -1, 4])
color("Green")
rotate([90,0,180])
linear_extrude(1)
    text("RS232", font = "Monospac821 BT:style=Bold",size = 2.7);













// Higher definition curves
$fs = 0.01;

module roundedcube(size = [1, 1, 1], center = false, radius = 0.5, apply_to = "all") {
	// If single value, convert to [x, y, z] vector
	size = (size[0] == undef) ? [size, size, size] : size;

	translate_min = radius;
	translate_xmax = size[0] - radius;
	translate_ymax = size[1] - radius;
	translate_zmax = size[2] - radius;

	diameter = radius * 2;

	module build_point(type = "sphere", rotate = [0, 0, 0]) {
		if (type == "sphere") {
			sphere(r = radius);
		} else if (type == "cylinder") {
			rotate(a = rotate)
			cylinder(h = diameter, r = radius, center = true);
		}
	}

	obj_translate = (center == false) ?
		[0, 0, 0] : [
			-(size[0] / 2),
			-(size[1] / 2),
			-(size[2] / 2)
		];

	translate(v = obj_translate) {
		hull() {
			for (translate_x = [translate_min, translate_xmax]) {
				x_at = (translate_x == translate_min) ? "min" : "max";
				for (translate_y = [translate_min, translate_ymax]) {
					y_at = (translate_y == translate_min) ? "min" : "max";
					for (translate_z = [translate_min, translate_zmax]) {
						z_at = (translate_z == translate_min) ? "min" : "max";

						translate(v = [translate_x, translate_y, translate_z])
						if (
							(apply_to == "all") ||
							(apply_to == "xmin" && x_at == "min") || (apply_to == "xmax" && x_at == "max") ||
							(apply_to == "ymin" && y_at == "min") || (apply_to == "ymax" && y_at == "max") ||
							(apply_to == "zmin" && z_at == "min") || (apply_to == "zmax" && z_at == "max")
						) {
							build_point("sphere");
						} else {
							rotate = 
								(apply_to == "xmin" || apply_to == "xmax" || apply_to == "x") ? [0, 90, 0] : (
								(apply_to == "ymin" || apply_to == "ymax" || apply_to == "y") ? [90, 90, 0] :
								[0, 0, 0]
							);
							build_point("cylinder", rotate);
						}
					}
				}
			}
		}
	}
}