TeXgraph# {version 1.95-beta-10} Cmd [Fenetre(-2+3.8*i,2-0.1*i,2.25+2.25*i), Marges(0,0,0,0), Border(0)]; [OriginalCoord(1),IdMatrix()]; [theta:=0.3491, phi:=1.0472, IdMatrix3D(), ModelView(ortho)]; [GrayScale(0), ComptGraph:=4]; Var b1 = 0.15873015873015+3.33962008141113*i; b2 = 0.33333333333333+3.12265943012212*i; b3 = 0.49735449735449+2.93744911804613*i; b4 = 0.73015873015873+2.64111261872456*i; b5 = 0.61375661375661+2.30244233378562*i; b6 = 1.08465608465608+2.20189959294437*i; b7 = 0.93121693121693+1.7044776119403*i; b8 = 0.66137566137566+1.29701492537313*i; b9 = 1.60846560846561+1.52455902306649*i; b10 = 1.53439153439153+1.07476255088195*i; b11 = 0.34920634920634+1.96377204884668*i; b12 = 1.17460317460317+0.63554952510176*i; b13 = 1.41269841269841+0.48738127544097*i; b14 = 0.21693121693121+2.47177747625509*i; b15 = 0.23280423280423+1.11709633649932*i; colors = [11685596,13378114,14412155,1721146,2925170,11573282,4450332,14144290,11193586, 1831852,8764909,3561193,14908691,5619324,9662728,13973456,13321231,15021789, 3711651,4306747,15943013,12661029,12180414,6441798,974770,12582720,5231622, 11129078,11773531,4996733]; ep = 0; eyeColor = gold; Include "PolyedresII.mac"; Mac bouleP = [ SaveAttr(), Color:=eyeColor, $d:=%4, Ligne([%1,%1-1.75*d*i], 0), $A:=ScreenPos(%1-1.75*d*i), DrawFlatFacet( Platon(%3,A,A+[0,d]), [color:=%2, backculling:=1]), RestoreAttr() ]; bouleK = [ $d:=%4, Color1:=%2, $S:=ScreenPos(%1-1.75*d*i), $K:=KeplerPoinsot(%3,S,S+[0,d],F,A), F,sep3D,A,sep3D, bdLine([ScreenPos(%1),S], [color:=eyeColor,width:=2]),sep3D ]; bouleA = [ SaveAttr(), Color:=eyeColor, $d:=%4, Ligne([%1,%1-1.75*d*i], 0), $A:=ScreenPos(%1-1.75*d*i), DrawFlatFacet( Archimede(%3,A,A+[0,d]), [color:=%2, backculling:=1]), RestoreAttr() ]; bouleJ = [ SaveAttr(), Color:=eyeColor, $d:=%4, Ligne([%1,%1-1.75*d*i], 0), $A:=ScreenPos(%1-1.75*d*i), DrawFlatFacet( Johnson(%3,A,A+[0,d]), [color:=%2, backculling:=1]), RestoreAttr() ]; Cmd [DotScale:=1+i]; Graph fond = [ view(-2,2,-0.1,3.8), Marges(0,0,0,0), size(9), background(full, lightgray) ]; Graph neige = [ LineStyle:=noline, FillStyle:=full, FillColor:=snow, for y from Ymin to Ymax step 0.125 do for x from Xmin to Xmax step 0.25 do if Rand()<0.5 then Cercle(x+i*y,0.0225) fi od od ]; Graph rideaux = [ A':=i*(Ymax-ep), C1:=A'+0.45-i*(Ymax-Ymin)/3, C2:=A'+0.75-i*(Ymax-Ymin)/2, B':=A'+1.5-2*i*(Ymax-Ymin)/3, C':=Re(B')+i*(Ymin+ep), D':=Xmax-ep+i*(Ymin+ep), E':=Xmax-ep+i*(Ymax-ep), Color:=whitesmoke, Width:=2*mm, Ligne( [Xmin+i*(Ymax+3*Ymin)/4, Xmax+i*(Ymax+3*Ymin)/4,jump, Xmin+i*(3*Ymax+Ymin)/4, Xmax+i*(3*Ymax+Ymin)/4,jump, (Xmin+Xmax)/2+i*Ymin, (Xmin+Xmax)/2+i*Ymax], 0), Width:=4, FillStyle:=full, FillColor:=brown, LineStyle:=noline, Drectangle((Xmin+Xmax)/2+i*Ymin-0.25,(Xmin+Xmax)/2+i*Ymin+0.25, (Xmin+Xmax)/2+i*Ymin+0.25*(1+i/3)), LineStyle:=solid, FillOpacity:=0.8, FillColor:=crimson, Path([A',C1,C2,B',bezier, C',D',E',line,closepath]), SetMatrix([0,-1,i]), Path([A',C1,C2,B',bezier, C',D',E',line,closepath]), IdMatrix(), FillStyle:=none, Width:=24, Ligne([B', Xmax-ep+i*(Im(B')+0.25)],0), SetMatrix([0,-1,i]), Ligne([B', Xmax-ep+i*(Im(B')+0.25)],0), IdMatrix(), ]; Cmd [LineCap:=1,tMin:=-5,tMax:=5]; Graph sapin = [ A:=0, B:=8*i, C:=7*i/3, stock:=[A,B,jump], for k from 1 to 7 do stock:=[ ftransform(stock, (z-A)/3+A), ftransform(stock, exp(i*pi/6.5)/2*(z-A)+A), ftransform(stock, exp(-i*pi/6.5)/2*(z-A)+A), ftransform(stock, 2*z/3+C)] od, Color:=darkgreen, Width:=8, LineStyle:=solid, SetMatrix([0,1,i*0.5]), Ligne( stock,0), IdMatrix() ]; Cmd [LineCap:=0,tMin:=-2,tMax:=2]; Graph boules = [ Width:=2, bouleP(b1, colors[1], 1,0.1), bouleP(-bar(b1), colors[2], 2,0.1 ), bouleP(b2, colors[3], 3,0.1), bouleP(-bar(b2), colors[4], 4,0.1 ), bouleP(b3, colors[5], 5,0.1), ColorL:=eyeColor, StyleL:=2, Build3D( bouleK(-bar(b3), colors[6], 1,0.1 ), bouleK(b4, colors[7], 2,0.1), bouleK(-bar(b4), colors[8], 3,0.1 ), bouleK(b5, colors[9], 4,0.1), ), Display3D(), bouleA( -bar(b5), colors[10], 1, 0.1), for k from 1 to 6 do p:= Eval(["b",5+k]), bouleA( p, colors[9+2*k], k*2, 0.1), bouleA( -bar(p) , colors[9+2*k+1], 2*k+1, 0.1), od, for k from 1 to 4 do p:= Eval(["b",11+k]), bouleJ( p, colors[21+2*k], 15+k*2-1, 0.1), bouleJ( -bar(p) , colors[21+2*k+1], 15+2*k, 0.1), od, ];