Gesellschaftsspiel-Replikator/Scrabble: Unterschied zwischen den Versionen

(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, 19: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)

// ---