Gesellschaftsspiel-Replikator/Scrabble: Unterschied zwischen den Versionen

Aus Stratum 0
Wechseln zu:Navigation, Suche
(Scrabble angelegt.)
 
(Braille + Schwarzschrift (läuft noch nicht))
Zeile 1: Zeile 1:
 
<pre>
 
<pre>
 
 
// Scrabble for blind and sighted players
 
// Scrabble for blind and sighted players
 +
// Version 1.2
 
// Copyright: Stratum0 e.V.
 
// Copyright: Stratum0 e.V.
// License: WTF
+
// License: WTFPL
  
 
// Zum Einfügen von Schrft
 
// Zum Einfügen von Schrft
// include <Write.scad>
+
use <Write.scad>
  
Hight=3;
+
Height=3;
 
Width=9;
 
Width=9;
 
Length=10;
 
Length=10;
  
//cube(size = [Length,Width,Hight], center = false);
+
//cube(size = [Length,Width,Height], center = false);
 
//color("red") write("MeinTestText", h=7, font="orbitron.dxf");
 
//color("red") write("MeinTestText", h=7, font="orbitron.dxf");
  
 +
color("black") intersection()
 +
{
 +
color("red") writecube("S",font="braille.dxf",h=6, t=1,[Width/2,Length/2,Height],[0,0,0],face="top"); // Braille-Schrift-S
  
// Quelle dieses Textes: Wikipedia.de
+
color("schwarz") writecube("S",h=6, t=1,[Width/2,Length/2,Height],[0,0,0],face="top"); // Schwarzschrift-S
// Aktuell ist die Buchstabenverteilung im deutschsprachigen Scrabble wie folgt (in Klammern jeweils die Häufigkeit).
 
// Diese wird seit 1987 verwendet, seitdem wird mit sieben Spielsteinen gespielt.
 
  
//    1 Punkt: E (15), N (9), S (7), I (6), R (6), T (6), U (6), A (5), D (4)
 
//    2 Punkte: H (4), G (3), L (3), O (3)
 
//    3 Punkte: M (4), B (2), W (1), Z (1)
 
//    4 Punkte: C (2), F (2), K (2), P (1)
 
//    6 Punkte: Ä (1), J (1), Ü (1), V (1)
 
//    8 Punkte: Ö (1), X (1)
 
//    10 Punkte: Q (1), Y (1)
 
//    0 Punkte: Joker/Blanko (2)
 
 
// ---
 
 
// use<write.scad>
 
 
translate([10,20,30])
 
% cube(30,center=true);
 
 
writecube("text",[10,20,30],30);
 
 
writecube("Howdy!!",[10,20,30],30,face="left");
 
 
writecube("Aloha!!",[10,20,30],30,face="front",down=8,rotate=-30);
 
 
writecube("HI!!",[10,20,30],30,face="top",up=5);
 
 
writecube("Hello!!",[10,20,30],30,face="right", t=2,h=6);
 
 
writecube("Hola!!",[10,20,30],[30,30,30],face="back");
 
 
writecube("Salut!!",[10,20,30],[30,30,30],face="bottom");
 
 
 
/* Version 3
 
Added support for font selection (default is Letters.dxf)
 
Added WriteCube module
 
Added Rotate for text (rotates on the plane of the text)
 
Added writesphere
 
Added space=    (spacing between characters in char widths) def=1
 
Added writecylinder()
 
 
By Harlan Martin
 
harlan@sutlog.com
 
January 2012
 
 
(The file TestWrite.scad gives More usage examples)
 
(This module requires the file Letters.dxf to reside in the same folder)
 
(The file Letters.dfx was created with inkscape..Each letter is in its own layer)
 
(This module seperates each letter in the string and imports it from Letters.dfx)
 
 
*/
 
 
pi=3.1415926535897932384626433832795028841971693993751058209;
 
pi2=pi*2;
 
 
 
// These control the default values for write() writesphere() writecube()
 
// if the parameters are not included in the call. Feel free to set your own
 
// defaults.
 
 
//default settings
 
center=false;
 
h = 4; //mm letter height
 
t = 1; //mm letter thickness
 
space =1; //extra space between characters in (character widths)
 
rotate=0; // text rotation (clockwise)
 
font = "Letters.dxf"; //default for aditional fonts
 
 
 
// write cube defaults
 
face = "front"; // default face (top,bottom,left,right,back,front)
 
up =0; //mm up from center on face of cube
 
down=0;
 
right =0; //mm left from center on face of cube
 
left=0;
 
 
 
// write sphere defaults
 
rounded=false; //default for rounded letters on writesphere
 
north=0; // intial text position (I suggest leave these 0 defaults)
 
south=0;
 
east=0;
 
west=0;
 
spin=0;
 
// writecylinder defaults
 
middle=0;    //(mm toward middle of circle)
 
ccw=false;  //write on top or bottom in a ccw direction
 
r1=0; //(not implimented yet)
 
r2=0; //(not implimented yet)
 
 
 
 
// Contact me if your interested in how to make your own font files
 
// Its tedious and time consuming, but not very hard
 
 
 
module writecylinder(text,where,radius,height){
 
wid=(.125* h *5.5 * space);
 
widall=wid*(len(text)-1)/2;
 
//angle that measures width of letters on sphere
 
function NAngle(radius)=(wid/(pi2*radius))*360;
 
//angle of half width of text
 
function mmangle(radius)=(widall/(pi2*radius)*360);
 
 
if ((face=="top")||(face=="bottom") ){
 
if (face=="top" ){
 
if (center==true){
 
writecircle(text,where+[0,0,height/2],radius-h,rotate=rotate,font=font,h=h,t=t,
 
space=space,east=east,west=west,middle=middle,ccw=ccw);
 
}else{
 
writecircle(text,where+[0,0,height],radius-h,rotate=rotate,font=font,h=h,t=t,
 
space=space,east=east,west=west,middle=middle,ccw=ccw);
 
}
 
}else{
 
rotate(180,[1,0,0])
 
if (center==true){
 
writecircle(text,where+[0,0,height/2],radius-h,rotate=rotate,font=font,h=h,t=t,
 
space=space,east=east,west=west,middle=middle,ccw=ccw);
 
}else{
 
writecircle(text,where+[0,0,0],radius-h,rotate=rotate,font=font,h=h,t=t,
 
space=space,east=east,west=west,middle=middle,ccw=ccw);
 
}
 
}
 
 
}else{
 
// if (radius>0){
 
if (center==true)  {
 
rotate(-mmangle(radius)*(1-abs(rotate)/90),[0,0,1])
 
translate(where)
 
writethecylinder(text,where,radius,height,r1=radius,r2=radius,h=h,
 
rotate=rotate,t=t,font=font,face=face,up=up,down=down,
 
east=east,west=west,center=center,space=space,rounded=rounded);
 
} else{
 
rotate(-mmangle(radius)*(1-abs(rotate)/90),[0,0,1])
 
translate(where+[0,0,height/2])
 
writethecylinder(text,where,radius,height,r1=radius,r2=radius,h=h,
 
rotate=rotate,t=t,font=font,face=face,up=up,down=down,
 
east=east,west=west,center=center,space=space,rounded=rounded);
 
}
 
// the remarked out code is for cone shaped cylinders (not complete)
 
// }else{
 
// if (center==true)  {
 
// rotate(-mmangle(radius)*(1-abs(rotate)/90),[0,0,1])
 
// translate(where)
 
// writethecylinder(text,where,radius,height,r1=r1,r2=r2,h=h,
 
// rotate=rotate,t=t,font=font,face=face,up=up,down=down,
 
// east=east,west=west,center=center,space=space,rounded=rounded);
 
// } else{
 
// rotate(-mmangle(radius)*(1-abs(rotate)/90),[0,0,1])
 
// translate(where+[0,0,height/2])
 
// writethecylinder(text,where,radius,height,r1=r1,r2=r2,h=h,
 
// rotate=rotate,t=t,font=font,face=face,up=up,down=down,
 
// east=east,west=west,center=center,space=space,rounded=rounded);
 
// }
 
// }
 
}
 
 
}
 
}
module writecircle(text,where,radius){
 
wid=(.125* h *5.5 * space);
 
widall=wid*(len(text)-1)/2;
 
//angle that measures width of letters on sphere
 
function NAngle(radius)=(wid/(pi2*radius))*360;
 
//angle of half width of text
 
function mmangle(radius)=(widall/(pi2*radius)*360);
 
 
if (ccw==true){
 
rotate(-rotate+east-west,[0,0,1]){
 
rotate(-mmangle(radius-middle),[0,0,1]){
 
translate(where)
 
for (r=[0:len(text)-1]){
 
rotate(-90+r*NAngle(radius-middle),[0,0,1]) // bottom out=-270+r
 
translate([radius-middle,0,0])
 
//rotate(90,[1,0,0])
 
//rotate(90,[0,1,0])
 
rotate(-270,[0,0,1])  // flip text (botom out = -270)
 
write(text[r],center=true,h=h,t=t,font=font);
 
}
 
}
 
}
 
}else{
 
rotate(-rotate-east+west,[0,0,1]){
 
rotate(mmangle(radius-middle),[0,0,1]){
 
translate(where)
 
for (r=[0:len(text)-1]){
 
rotate(90-r*NAngle(radius-middle),[0,0,1]) // bottom out=-270+r
 
translate([radius-middle,0,0])
 
//rotate(90,[1,0,0])
 
//rotate(90,[0,1,0])
 
rotate(270,[0,0,1])  // flip text (botom out = -270)
 
write(text[r],center=true,h=h,t=t,font=font);
 
}
 
}
 
}
 
}
 
  
}
+
color("white") difference()
module writethecylinder(text,where,radius,height,r1,r2){
+
{
wid=(.125* h *5.5 * space);
+
color("red") writecube("S",font="braille.dxf",h=6, t=1,[Width/2,Length/2,Height],[0,0,0],face="top"); // Braille-Schrift-S
widall=wid*(len(text)-1)/2;
 
//angle that measures width of letters on sphere
 
function NAngle(radius)=(wid/(pi2*radius))*360*(1-abs(rotate)/90);
 
//angle of half width of text
 
  
function mmangle(radius)=(widall/(pi2*radius)*360);
+
color("schwarz") writecube("S",h=6, t=1,[Width/2,Length/2,Height],[0,0,0],face="top"); // Schwarzschrift-S
translate([0,0,up-down])
 
rotate(east-west,[0,0,1])
 
for (r=[0:len(text)-1]){
 
rotate(-90+(r*NAngle(radius)),[0,0,1])
 
translate([radius,0,-r*((rotate)/90*wid)+(len(text)-1)/2*((rotate)/90*wid)])
 
rotate(90,[1,0,0])
 
rotate(90,[0,1,0])
 
write(text[r],center=true,h=h,rotate=rotate,t=t,font=font);
 
//echo("zloc=",height/2-r*((rotate)/90*wid)+(len(text)-1)/2*((rotate)/90*wid));
 
}
 
  
 
}
 
}
  
  
module writesphere(text,where,radius){
+
color("green") writecube("S",h=6, t=1,[Width/2,Length/2,Height-0.5],[0,0,0],face="top"); // Schwarzschrift-S
wid=(.125* h *5.5 * space);
 
widall=wid*(len(text)-1)/2;
 
 
echo("-----------------",widall,wid,mmangle(radius));
 
//angle that measures width of letters on sphere
 
function NAngle(radius)=(wid/(pi2*radius))*360;
 
//angle of half width of text
 
function mmangle(radius)=(widall/(pi2*radius)*360);
 
  
rotate(east-west,[0,0,1]){
 
rotate(south-north,[1,0,0]){
 
rotate(spin,[0,1,0]){
 
rotate(-mmangle(radius),[0,0,1]){
 
if ( rounded== false ){
 
translate(where)
 
for (r=[0:len(text)-1]){
 
rotate(-90+r*NAngle(radius),[0,0,1])
 
translate([radius,0,0])
 
rotate(90,[1,0,0])
 
rotate(90,[0,1,0])
 
write(text[r],center=true,h=h,rotate=rotate,t=t,font=font);
 
}
 
}else{
 
difference(){
 
translate(where)
 
for (r=[0:len(text)-1]){
 
rotate(-90+r*NAngle(radius),[0,0,1])
 
translate([radius,0,0])
 
rotate(90,[1,0,0])
 
rotate(90,[0,1,0])
 
write(text[r],center=true,h=h,rotate=rotate,t=t*2+h,font=font);
 
}
 
difference(){ //rounded outside
 
sphere(radius+(t*2+h)*2);
 
sphere(radius+t/2);
 
}
 
sphere(radius-t/2); // rounded inside for indented text
 
}
 
}
 
}
 
}}}
 
}
 
  
  
module writecube(text,where,size){
+
% color("yellow") cube([Width,Length,Height],center=false);
if (str(size)[0] != "[")
+
 
// its a square cube (size was not a matrix so make it one)
 
writethecube(text,where,[size,size,size],h=h,rotate=rotate,space=space,
 
t=t,font=font,face=face,up=up,down=down,right=right,left=left);
 
  
}else{
 
// its not square
 
writethecube(text,where,size,h=h,rotate=rotate,space=space,
 
t=t,font=font,face=face,up=up,down=down,right=right,left=left);
 
}
 
}
 
// I split the writecube module into 2 pieces.. easier to add features later
 
module writethecube(text,where,size){
 
if (face=="front") {
 
translate([where[0]+right-left,where[1]-size[1]/2,where[2]+up-down])
 
rotate(90,[1,0,0])
 
write(text,center=true,h=h,rotate=rotate,t=t,font=font);
 
}
 
if (face=="back") {
 
translate([where[0]+right-left,where[1]+size[1]/2,where[2]+up-down])
 
rotate(90,[1,0,0])  // rotate around the x axis
 
rotate(180,[0,1,0])  // rotate around the y axis (z before rotation)
 
write(text,center=true,h=h,rotate=rotate,t=t,font=font);
 
}
 
if (face=="left") {
 
translate([where[0]-size[0]/2,where[1]-right+left,where[2]+up-down ])
 
rotate(90,[1,0,0])  // rotate around the x axis
 
rotate(90,[0,-1,0])  // rotate around the y axis  (z before rotation)
 
write(text,center=true,h=h,rotate=rotate,t=t,font=font);
 
}
 
if (face=="right") {
 
translate([where[0]+size[0]/2,where[1]+right-left,where[2] +up-down])
 
rotate(90,[1,0,0])  // rotate around the x axis
 
rotate(90,[0,1,0])  // rotate around the y axis  (z before rotation)
 
write(text,center=true,h=h,rotate=rotate,t=t,font=font);
 
}
 
if (face=="top") {
 
translate([where[0]+right-left,where[1]+up-down,where[2]+size[2]/2 ])
 
write(text,center=true,h=h,rotate=rotate,t=t,font=font);
 
}
 
if (face=="bottom") {
 
translate([where[0]+right-left,where[1]-up+down,where[2]-size[2]/2 ])
 
rotate(180,[1,0,0])
 
write(text,center=true,h=h,rotate=rotate,t=t,font=font);
 
}
 
}
 
  
module write(word){
+
// Quelle dieses Textes: Wikipedia.de
+
// Aktuell ist die Buchstabenverteilung im deutschsprachigen Scrabble wie folgt (in Klammern jeweils die Häufigkeit).  
echo (h);
+
// Diese wird seit 1987 verwendet, seitdem wird mit sieben Spielsteinen gespielt.
echo (word);
 
echo ("There are " ,len(word) ," letters in this string");
 
// echo ("The second letter is ",word[1]);
 
// echo (str(word[0],"_"));
 
rotate(rotate,[0,0,-1]){
 
for (r = [0:len(word)]){  // count off each character
 
// if the letter is lower case, add an underscore to the end for file lookup
 
if ((word[r] == "a" ) || (word[r]== "b")  || (word[r]== "c")
 
  || (word[r]== "d") || (word[r]== "e") || (word[r]== "f")
 
  || (word[r]== "g") || (word[r]== "h")  || (word[r]== "i")
 
          || (word[r]== "j") || (word[r]== "k") || (word[r]== "l")
 
        || (word[r]== "m") || (word[r]== "n") || (word[r]== "o")
 
        || (word[r]== "p") || (word[r]== "q") || (word[r]== "r")
 
  || (word[r]== "s") || (word[r]== "t") || (word[r]== "u")
 
        || (word[r]== "v") || (word[r]== "w") || (word[r]== "x")
 
        || (word[r]== "y" )|| (word[r]== "z")){
 
if (center == true)  {
 
translate([0,-h/2,0]){
 
scale([.125*h,.125*h,t]){
 
translate([ (-len(word)*5.5*space/2) + (r*5.5*space),0,0])
 
linear_extrude(height=1,convexity=10,center=true){
 
import(file = font,layer=str(word[r],"_"));
 
}
 
}
 
}
 
}else{
 
translate([0,0,t/2]){
 
scale([.125*h,.125*h,t]){
 
translate([r*5.5*space,0,0])
 
linear_extrude(height=1,convexity=10,center=true){
 
import(file = font,layer=str(word[r],"_"));
 
}
 
}
 
}
 
}
 
  
}else{
+
//    1 Punkt: E (15), N (9), S (7), I (6), R (6), T (6), U (6), A (5), D (4)
if (center == true) {
+
//    2 Punkte: H (4), G (3), L (3), O (3)
translate([0,-h/2,0]){
+
//    3 Punkte: M (4), B (2), W (1), Z (1)
scale([.125*h,.125*h,t]){
+
//   4 Punkte: C (2), F (2), K (2), P (1)
translate([ (-len(word)*5.5*space/2) + (r*5.5*space),0,0])
+
//   6 Punkte: Ä (1), J (1), Ü (1), V (1)
linear_extrude(height=1,convexity=10,center=true){
+
//    8 Punkte: Ö (1), X (1)
import(file = font,layer=str(word[r]));
+
//    10 Punkte: Q (1), Y (1)
}
+
//    0 Punkte: Joker/Blanko (2)
}
 
}
 
}else{
 
translate([0,0,t/2]){
 
scale([.125*h,.125*h,t]){
 
translate([r*5.5*space,0,0])
 
linear_extrude(height=1,convexity=10,center=true){
 
import(file = font,layer=str(word[r]));
 
}
 
}
 
}
 
}
 
}
 
}
 
}
 
}
 
 
 
/*writecylinder test
 
translate([0,0,0])
 
%cylinder(r=20,h=40,center=true);
 
color([1,0,0])
 
writecylinder("rotate=90",[0,0,0],20,40,center=true,down=0,rotate=90);
 
writecylinder("rotate = 30,east = 90",[0,0,0],20,40,center=true,down=0,rotate=30,east=90);
 
writecylinder("ccw = true",[0,0,0],20,40,center=true,down=0,face="top",ccw=true);
 
writecylinder("middle = 8",[0,0,0],20,40,h=3,center=true,down=0,face="top",middle=8);
 
writecylinder("face = top",[0,0,0],20,40,center=true,down=0,face="top");
 
writecylinder("east=90",[0,0,0],20,40,h=3,center=true,down=0,face="top",east=90);
 
writecylinder("west=90",[0,0,0],20,40,h=3,center=true,down=0,face="top",ccw=true,west=90);
 
writecylinder("face = bottom",[0,0,0],20,40,center=true,down=0,face="bottom");
 
*/
 
/*writesphere test
 
sphere(20);
 
color([1,0,0])
 
writesphere("Hello World",[0,0,0],20,t=1,h=6);
 
*/
 
/* writecube test
 
translate([30,30,30])
 
cube([10,15,30],center=true);
 
write("hello",center=true,rotate =30);
 
color([1,0,0])
 
writecube( "front",[30,30,30],[10,15,30],h=5,rotate=-90);
 
color([0,1,0])
 
writecube( "back",[30,30,30],size=[10,15,30],h=5,face="back",rotate=90,t=4);
 
color([0,0,1])
 
writecube( "left",[30,30,30],[10,15,30],h=5,face="left",up=5);
 
color([1,1,0])
 
writecube( "right",where=[30,30,30],size=[10,15,30],h=5,face="right",rotate=55);
 
color([1,0,1])
 
writecube( "top",where=[30,30,30],size=[10,15,30],h=5,face="top");
 
color([1,1,1])
 
writecube( "bttm",where=[30,30,30],size=[10,15,30],h=5,face="bottom",rotate=90);
 
*/
 
  
 +
// ---
  
  

Version vom 15. April 2014, 20:49 Uhr

// Scrabble for blind and sighted players
// Version 1.2
// Copyright: Stratum0 e.V.
// License: WTFPL

// Zum Einfügen von Schrft
use <Write.scad>

Height=3;
Width=9;
Length=10;

//cube(size = [Length,Width,Height], center = false);
//color("red") write("MeinTestText", h=7, font="orbitron.dxf");

color("black") intersection()
{
	 color("red") writecube("S",font="braille.dxf",h=6, t=1,[Width/2,Length/2,Height],[0,0,0],face="top"); // Braille-Schrift-S

	color("schwarz") writecube("S",h=6, t=1,[Width/2,Length/2,Height],[0,0,0],face="top"); // Schwarzschrift-S

}

color("white") difference()
{
	 color("red") writecube("S",font="braille.dxf",h=6, t=1,[Width/2,Length/2,Height],[0,0,0],face="top"); // Braille-Schrift-S

	color("schwarz") writecube("S",h=6, t=1,[Width/2,Length/2,Height],[0,0,0],face="top"); // Schwarzschrift-S

}


	color("green") writecube("S",h=6, t=1,[Width/2,Length/2,Height-0.5],[0,0,0],face="top"); // Schwarzschrift-S



% color("yellow") cube([Width,Length,Height],center=false);
   


// Quelle dieses Textes: Wikipedia.de
// Aktuell ist die Buchstabenverteilung im deutschsprachigen Scrabble wie folgt (in Klammern jeweils die Häufigkeit). 
// Diese wird seit 1987 verwendet, seitdem wird mit sieben Spielsteinen gespielt.

//    1 Punkt: E (15), N (9), S (7), I (6), R (6), T (6), U (6), A (5), D (4)
//    2 Punkte: H (4), G (3), L (3), O (3)
//    3 Punkte: M (4), B (2), W (1), Z (1)
//    4 Punkte: C (2), F (2), K (2), P (1)
//    6 Punkte: Ä (1), J (1), Ü (1), V (1)
//    8 Punkte: Ö (1), X (1)
//    10 Punkte: Q (1), Y (1)
//    0 Punkte: Joker/Blanko (2)

// ---