X-Git-Url: https://git.rohieb.name/stratum0-wiki.git/blobdiff_plain/31a6e2a3a5405d8cd102dac8a1fbba11bd3f1dbc..dd1f626721fc311482ab7cb08dba0663f5e1ac2e:/Gesellschaftsspiel-Replikator%2FScrabble.mw?ds=sidebyside diff --git a/Gesellschaftsspiel-Replikator%2FScrabble.mw b/Gesellschaftsspiel-Replikator%2FScrabble.mw index 75254efd5..46db4c937 100644 --- a/Gesellschaftsspiel-Replikator%2FScrabble.mw +++ b/Gesellschaftsspiel-Replikator%2FScrabble.mw @@ -1,435 +1,79 @@ -
+== Log == + +todo: +* Orientierung des Steinchens durch Unterstreichung abbilden +Zu Deiner Frage 1: Wie sollen wir es realisieren, dass man weiÃ, wie herum der +Braille-Buchstabe zu lesen ist? + +Ein waagerechter glatter Strich unterhalb des Braille-Symbols, 3,5- oder +5,0-mm-Abstand zur dritten, unteren Punktreihe. +* Mehrere Buchstabenplättchen zu einem Set zusammenfassen zum Drucken +* Spielbrett entwerfen + + +== Bilder eines Herstellers == +[http://shop.rnib.org.uk/board-games-and-dice/braille-scrabble/invt/gb95 http://shop.rnib.org.uk/board-games-and-dice/braille-scrabble/invt/gb95] +== Siehe auch: ScrabbleBrett == +* [[Gesellschaftsspiel-Replikator/ScrabbleBrett|Gesellschaftsspiel-Replikator/ScrabbleBrett]] +== Quelltext Spielsteine== + +// Scrabble for blind and sighted players +// Version 1.4 // Copyright: Stratum0 e.V. -// License: WTF +// License: WTFPL // Zum Einfügen von Schrft -// include+use -Hight=3; +Height=3; Width=9; 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("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 -// 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 - -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 + color("schwarz") writecube("S",h=6, t=1,[Width/2,Length/2,Height],[0,0,0],face="top"); // Schwarzschrift-S - (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); - } - } - } - } -} -module writethecylinder(text,where,radius,height,r1,r2){ - 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*(1-abs(rotate)/90); - //angle of half width of text +// color("white") +difference() +{ + writecube("S",font="braille.dxf",h=6, t=1,[Width/2,Length/2,Height],[0,0,0],face="top"); // Braille-Schrift-S - function mmangle(radius)=(widall/(pi2*radius)*360); - 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)); - } + writecube("S",h=6, t=1,[Width/2,Length/2,Height],[0,0,0],face="top"); // Schwarzschrift-S } -module writesphere(text,where,radius){ - 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 - } - } - } -}}} -} +color("black") writecube("S",h=6, t=1,[Width/2,Length/2,Height-0.5+0.1],[0,0,0],face="top"); +// Schwarzschrift-S: Die 0.1 sind geschummelt, damit OpenSCAD die Farbe darstellt. -module writecube(text,where,size){ - 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){ - - echo (h); - 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{ - 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])); - } - } - } - } - } - } -} -} - -/*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); -*/ +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) +// ---