chuckis

/usr/bin/jackd -P1 -dalsa -dhw:0 -r44100 -p1024 -n2 psuspender --jackd

chuckis

//Enter OpenSCAD code here.
module 200_balka(){
translate ([0, 0, 10])cube([10, 10, 200]);
}

module 125_balka(){
rotate([90, 0, 90]) cube([10, 10, 125]);
}

module 240_balka(){

chuckis

// inner-pad.scad

//lad-cube.scad
module one-romb() {
scale ([1, 0.7, 1]) rotate ([45, 0, 0]) cube([30, 1, 1], center=true);
}
//lad-rombs.scad
module lad-rombs() {
for(i= [1 : 30]){
translate ([0, i - (i * 0.3), 0]) one-romb();

chuckis

module one-romb() {
scale ([1, 0.7, 1]) rotate ([45, 0, 0]) cube([30, 1, 1], center=true);
}
//lad-rombs.scad
module lad-rombs() {
for(i= [1 : 30]){
union(){translate ([0, i - (i * 0.3), 0]) one-romb();}
   }
   
}

chuckis

//vneshnii kontur

CIRCLE_R =8.25;
SQUARE_H = 14;
SQUARE_W = 16.5;
l=8;
LENGTH = 21.5;
TRANSLATE_Y = LENGTH - CIRCLE_R - SQUARE_H * 0.5;

module vneshnii_pad(){

chuckis

module romb() {
scale ([1, 1, 1]) rotate ([20, 0, 0]) cube([5, 3, 1], center=true);
}

//diamond_rombs.scad
module diamond(){
rotate ([0, 0, -45]) {
        for(i= [0 : 3]){
              union(){  translate ([0, i - (i * 0.3), 0]) scale ([1, 1.2, 0.6]) romb();}

chuckis

//upper-cube.scad


INCL = 3.2; // inner cube length
INCW = 2; // inner cube width
INCH = 2; // inner cube height

THIKNESS = 0.9;

OCL = INCL + THIKNESS * 2  ; // outer cube length

chuckis

//stavka.scad

module stavka() {
     difference (){
      translate ([0, 0, -10]) cube ([20, 20, 20], center=true);
        union (){
               for (rot = [[0, 90, 0], [90, 0, 0], [0, 0, 90]]){ rotate(rot) cylinder(r= 6.5, h=50, fa = 20, center = true);}
     }
  }
}

chuckis

;fnkon'
(define (filter f l) 
	(if (null? l) '()
	(let ((x (car l))
		(r (filter f (cdr l))))
	(if (f x) (cons x r) r))))

(define (map f l)
  (letrec ((result (cons '() '()))
	(helper (lambda (p l)

chuckis

; http://www.algolist.com/Dijkstra's_algorithm

(defn dijkstra [g src]
  (loop [dsts (assoc (zipmap (keys g) (repeat nil)) src 0)
         curr src
         unvi (apply hash-set (keys g))]
    (if (empty? unvi)
      dsts
      (let [unvi  (disj unvi curr)
            nextn (first (sort-by #(% dsts) unvi))