This is a blog about Rebol, it's a fantastic free programming language, it permits easily to create complete software with few lines of code. It's cross-platform, so if you write it on Windows, it will work on Linux and Mac, and vice-versa. You can produce also wonderful GUI with just 3 lines of code!
Monday, 2 December 2013
Placing an image on a sphere
Rebol programmers continue to surprise me, the following script can place any image on the surface of a rotating 3D sphere! Mr. Phil Bevan is a 3D master!
; show the face show f-box f-angles/text:rejoin [tostring! objs/1/1/4 " / "tostring! objs/1/1/5 " / "tostring! objs/1/1/6] show f-angles
] ; Instructions ;alert "Select an Image to map onto a sphere"
; Initial Rotation foreach o objs [fn-rot o] fn-req-image:func 
[ ; Get Picture pic:request-file/title/path/keep"Select an Image""OK"%. if pic = none [alert"No image selected"quit]
fn-split-image 3021rejoin [pic/1 pic/2]