aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

A-M baby

Browse source
This commit is contained in:
Ingy döt Net 2013-04-10 21:29:02 -07:00
parent 764da6cbbb
commit db842d013d
19005 changed files with 197040 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

22
Task/Draw-a-cuboid/J/draw-a-cuboid.j Normal file
View file

@ -0,0 +1,22 @@
vectors =. ((% +/&.:*:"1) _1 1 0,:_1 _1 3) +/@:*"1/~ 2 3 4*=i.3
' .*o' {~ +/ 1 2 3* (|:"2 -."_ 1~ vectors) ([:*./ 1 = 0 1 I. %.~)"_ 1"_1 _ ]4j21 ,~"0/&:i: 4j41
oooo
ooooooooooooo
oooooooooooooo....
*****oooo.........
*******...........
*******...........
*******...........
*******...........
*******...........
*******...........
*******...........
*******.........
*****.....

6
Task/Draw-a-cuboid/LSL/draw-a-cuboid.lsl Normal file
View file

@ -0,0 +1,6 @@
vector vSCALE = <2.0, 3.0, 4.0>;
default {
state_entry() {
llSetScale(vSCALE);
}
}

14
Task/Draw-a-cuboid/Logo/draw-a-cuboid-1.logo Normal file
View file

@ -0,0 +1,14 @@
to cuboid :l1 :l2 :l3
cs perspective ;making the room ready to use
setxyz :l1 0 0
setxyz :l1 :l2 0
setxyz 0 :l2 0
setxyz 0 0 0
setxyz :l1 0 0
setxyz :l1 0 -:l3
setxyz :l1 :l2 -:l3
setxyz :l1 :l2 0
setxyz 0 :l2 0
setxyz 0 :l2 -:l3
setxyz :l1 :l2 -:l3
end

1
Task/Draw-a-cuboid/Logo/draw-a-cuboid-2.logo Normal file
View file

@ -0,0 +1 @@
cuboid 50 100 150

1
Task/Draw-a-cuboid/Mathematica/draw-a-cuboid.mathematica Normal file
View file

@ -0,0 +1 @@
Graphics3D[Cuboid[{0,0,0},{2,3,4}]]

6
Task/Draw-a-cuboid/Maxima/draw-a-cuboid.maxima Normal file
View file

@ -0,0 +1,6 @@
load(draw)$
draw3d(xu_grid=100, yv_grid=100, surface_hide=true,
palette=gray, enhanced3d=[x - z / 4 - y / 4, x, y, z],
implicit(max(abs(x / 4), abs(y / 6), abs(z / 8)) = 1,
x,-10,10,y,-10,10,z,-10,10))$