3 paintings

[keckman]

Hi other newbies,

I'm not a programmer and i'm not an artist either (yet), but i wanted to do a little art exhibition:)

http://koti.welho.com/pkeckman/rebolart/

The paintings are made with REBOL code and if any newbie is interested, the .r codes are linked behind the bigger pics.

[leke]

This is a good idea for a competition. Maybe RT will sponsor it?

I really liked the first one. Care to release the source?

[leke]

Hey keckman, pidin muistakin sivustasi!!!    

[keckman]

Öö??  Actually I did not suppose that you could like my "art"...

But now i have developped a new 3D art! Take a look:

http://koti.welho.com/pkeckman/rebolart/art4_t.jpg

There is a rebol code again behind the "painting" or here:
http://koti.welho.com/pkeckman/rebolart/art4.r

Sorry, little messy. My goal is to do circulateing colorfully planets...I let ya know when I'm ready.

This is a good idea for a competition.

I personally think that art is not a business off competition. Especially My Art.

Little code: function "kierto" that circulate point[0 0 0] by angle[0 0 0]

kierto: func [point angle] [
;x-axis
qx: angle/1
yt: (point/2 * cosine(qx)) - (point/3 * sine(qx))
zt: (point/2 * sine(qx)) + (point/3 * cosine(qx))
xt: point/1

;y-axis
qy: angle/2
zt2: (zt * cosine(qy)) - (xt * sine(qy))
xt2: (zt * sine(qy)) + (xt * cosine(qy))
yt2: yt

;z-axis
qz: angle/3
xt3: (xt2 * cosine(qz)) - (yt2 * sine(qz))
yt3: (xt2 * sine(qz)) + (yt2 * cosine(qz))
zt3: zt2

pist: [0 0 0]
pist/1: xt3
pist/2: yt3
pist/3: zt3
return pist
]

;and here is function that counts the [x y z]'s [x y] projection in screen
projekt: func [ x y z ][
if z = 0 [ z: 1 ]
temp: xwin / ( xwin - (z + origz))
x: (x + origx) * temp
y: (y + origy) * temp
return as-pair (kx + x) (ky + y)
]
; where kx is center of the window, xwin is width of the window and origx, origy, origz are origo's coord maybe.... Functions' parameters are blocks and they returns blocks.

[leke]

Cool, Kinda looks like the Death Star.

[keckman]

I'm productive!    - new painting:

http://koti.welho.com/pkeckman/rebolart/art5.html

btw: if ya want to make it more 'higres' ya can change the divider 32 from line 82
pituus: 180 / 32
------------------^