Received: with ECARTIS (v1.0.0; list lojban-beginners); Tue, 30 Aug 2005 00:42:02 -0700 (PDT) Received: from nobody by chain.digitalkingdom.org with local (Exim 4.52) id 1EA0kr-0002hE-T2 for lojban-beginners-real@lojban.org; Tue, 30 Aug 2005 00:42:02 -0700 Received: from web33410.mail.mud.yahoo.com ([68.142.206.142]) by chain.digitalkingdom.org with smtp (Exim 4.52) id 1EA0kn-0002h0-C7 for lojban-beginners@chain.digitalkingdom.org; Tue, 30 Aug 2005 00:42:01 -0700 Received: (qmail 91704 invoked by uid 60001); 30 Aug 2005 07:41:56 -0000 DomainKey-Signature: a=rsa-sha1; q=dns; c=nofws; s=s1024; d=yahoo.com; h=Message-ID:Received:Date:From:Subject:To:In-Reply-To:MIME-Version:Content-Type:Content-Transfer-Encoding; b=jBAiBK4QHIcSPyC2/3daobT6JiDCDp4uUTGeoK1fXZ9Goeyri8QfGrapIwQEs0AjpWi5LNGleXCCejwoQoqeF6WZBEvvUcP48fr8fw3hS4aL6tjZVpJ0Bc94TLigk0Gnta05k1wsdYKb7NSk4Y9S2JC0wxiZnApO8Wf86FW/Ql0= ; Message-ID: <20050830074156.91702.qmail@web33410.mail.mud.yahoo.com> Received: from [141.2.216.130] by web33410.mail.mud.yahoo.com via HTTP; Tue, 30 Aug 2005 00:41:56 PDT Date: Tue, 30 Aug 2005 00:41:56 -0700 (PDT) From: Opi Lauma Subject: [lojban-beginners] Re: New 3D logo for lojban. To: lojban-beginners@chain.digitalkingdom.org In-Reply-To: MIME-Version: 1.0 Content-Type: text/plain; charset=iso-8859-1 X-Spam-Score: -2.5 (--) X-archive-position: 1905 X-Approved-By: opi_lauma@yahoo.com X-ecartis-version: Ecartis v1.0.0 Sender: lojban-beginners-bounce@chain.digitalkingdom.org Errors-to: lojban-beginners-bounce@chain.digitalkingdom.org X-original-sender: opi_lauma@yahoo.com Precedence: bulk Reply-to: lojban-beginners@chain.digitalkingdom.org X-list: lojban-beginners Content-Length: 3546 coi rodo Here is my code for those of you who has Maple and who wants to play with my picture (I do not know whether such persons exists but any way...). One need just copy-paste and press enter. ******************************************************* restart: > l := 2.2: > rc := 0.2: > r_pl := 0.3: > k := 2.0: > with(plottools): > with(plots): > g1 := plot3d([ sin(theta)*cos(alpha)+0.7, sin(theta)*sin(alpha), cos(theta)], theta=0..Pi,alpha=-Pi..Pi,color=blue): > g2 := plot3d([ sin(theta)*cos(alpha)-0.7, sin(theta)*sin(alpha), cos(theta)], theta=0..Pi,alpha=-Pi..Pi,color=blue): > c1 := plot3d([ rc*cos(theta), rc*sin(theta), z], theta=-Pi..Pi,z=-l..l,color=red): > c2 := plot3d([ rc*cos(theta), z, rc*sin(theta)], theta=-Pi..Pi,z=-l..l,color=red): > c3 := plot3d([ z, rc*cos(theta), rc*sin(theta)], theta=-Pi..Pi,z=-l..l,color=red): > pl_1p := plot3d([ l, r*sin(theta), r*cos(theta)], theta=-Pi..Pi, r=0..r_pl,color=red): > pl_1m := plot3d([ -l, r*sin(theta), r*cos(theta)], theta=-Pi..Pi, r=0..r_pl,color=red): > pl_2p := plot3d([ r*sin(theta), l, r*cos(theta)], theta=-Pi..Pi, r=0..r_pl,color=red): > pl_2m := plot3d([ r*sin(theta), -l, r*cos(theta)], theta=-Pi..Pi, r=0..r_pl,color=red): > pl_3p := plot3d([ r*sin(theta), r*cos(theta), l], theta=-Pi..Pi, r=0..r_pl,color=red): > pl_3m := plot3d([ r*sin(theta), r*cos(theta), -l], theta=-Pi..Pi, r=0..r_pl,color=red): > > k_1p := plot3d([ l+(r_pl-r)*k, r*sin(theta), r*cos(theta)], theta=-Pi..Pi, r=0..r_pl,color=red): > k_1m := plot3d([ -l-(r_pl-r)*k, r*sin(theta), r*cos(theta)], theta=-Pi..Pi, r=0..r_pl,color=red): > k_2p := plot3d([ r*sin(theta), l+(r_pl-r)*k, r*cos(theta)], theta=-Pi..Pi, r=0..r_pl,color=red): > k_2m := plot3d([ r*sin(theta), -l-(r_pl-r)*k, r*cos(theta)], theta=-Pi..Pi, r=0..r_pl,color=red): > k_3p := plot3d([ r*sin(theta), r*cos(theta), l+(r_pl-r)*k], theta=-Pi..Pi, r=0..r_pl,color=red): > k_3m := plot3d([ r*sin(theta), r*cos(theta), -l-(r_pl-r)*k], theta=-Pi..Pi, r=0..r_pl,color=red): > > l_1 := [l+r_pl*k,0,0]: > l_2 := [0,l+r_pl*k,0]: > tor1 := tubeplot([cos(t)*l_1[1]+sin(t)*l_2[1],cos(t)*l_1[2]+sin(t)*l_2[2],cos(t)*l_1[3]+sin(t)*l_2[3]], > t=0..2*Pi,radius=0.02,tubepoints=20,style=patchnogrid,color=green): > l_1 := [l+r_pl*k,0,0]: > l_2 := [0,0, l+r_pl*k]: > tor2 := tubeplot([cos(t)*l_1[1]+sin(t)*l_2[1],cos(t)*l_1[2]+sin(t)*l_2[2],cos(t)*l_1[3]+sin(t)*l_2[3]], > t=0..2*Pi,radius=0.02,tubepoints=20,style=patchnogrid,color=green): > l_1 := [0, l+r_pl*k,0]: > l_2 := [0,0, l+r_pl*k]: > tor3 := tubeplot([cos(t)*l_1[1]+sin(t)*l_2[1],cos(t)*l_1[2]+sin(t)*l_2[2],cos(t)*l_1[3]+sin(t)*l_2[3]], > t=0..2*Pi,radius=0.02,tubepoints=20,style=patchnogrid,color=green): > display[plots](g1,g2,c1,c2,c3,pl_1p, pl_1m, pl_2p, pl_2m, pl_3p, pl_3m, > k_1p, k_1m, k_2p, k_2m, k_3p, k_3m, tor1, tor2,tor3); **************************************************** And here is Maple cell which generate PostScript picture: **************************************************** display[plots](g1,g2,c1,c2,c3,pl_1p, pl_1m, pl_2p, pl_2m, pl_3p, pl_3m, > k_1p, k_1m, k_2p, k_2m, k_3p, k_3m, tor1, tor2,tor3); > plotsetup(ps,plotoptions=`colour=cmyk,width=5in,height=5in`); > plots[display](g1,g2,c1,c2,c3,pl_1p, pl_1m, pl_2p, pl_2m, pl_3p, pl_3m, > k_1p, k_1m, k_2p, k_2m, k_3p, k_3m, tor1, tor2,tor3,scaling=CONSTRAINED); **************************************************** ____________________________________________________ Start your day with Yahoo! - make it your home page http://www.yahoo.com/r/hs