Draw a rotating cube: Difference between revisions

;Related tasks

* [[Draw_a_cuboid|Draw a cuboid]]

<br><br>

 

 

 

 

 

 

 

 

 

 

 

 

 

HandleEvents

 

=={{header|Haskell}}==

This implementation compiles to JavaScript that runs in a browser using the [https://github.com/ghcjs/ghcjs ghcjs compiler ] . The [https://github.com/reflex-frp/reflex-dom reflex-dom ] library is used to help with svg rendering and animation.

 

import Reflex.Dom

import Data.Map as DM (Map, lookup, insert, empty, fromList)

elDynAttrSVG a2 a3 a4 = do

elDynAttrNS' (Just "http://www.w3.org/2000/svg") a2 a3 a4

 

Link to live demo: https://dc25.github.io/drawRotatingCubeHaskell/

 

=={{header|Java}}==

[[File:rotating_cube_java.png|200px|thumb|right]]

import java.awt.event.ActionEvent;

import static java.lang.Math.*;

});

}

 

=={{header|Maple}}==

seq(

plots:-display(

axes=none, scaling=constrained, orientation=[0,45,i] ),

i = 0..360, 20 ),

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

=={{header|PostScript}}==

'''Don't send this to your printer!'''

%%BoundingBox: 0 0 400 400

 

 

0 {3.2 add dup page } loop

 

=={{header|Python}}==

 

====Short version====

scene.title = "VPython: Draw a rotating cube"

 

rate(50)

cube.rotate( angle=0.005, axis=(0,1,0) )

 

<!--

 

=={{header|Racket}}==

(require math/matrix math/array)

 

(send c refresh))

 

 

=={{header|Tcl}}==

See [http://wiki.tcl.tk/14283 this wiki page] (and others linked from it) for many similar examples.

 

package require math::linearalgebra

namespace import ::math::linearalgebra::matmul

}

set ::world [make_cube 100]

 

=={{header|TI-83 BASIC}}==

:-1→Ymin:1→Ymax

:AxesOff

:Line(.3,FV,-.3,-PV

:End

 

I%, PV, and FV are all finance variables that can be found in the finance menu (inside the APPS menu on TI-83+ and up).

Finance variables are much faster than normal variables.

 

[[Category:Geometry]]