Keckman — 29-Sep-2018/12:45:03-7:00
208 algorithmic art images made with REBOL:
http://petke.info/hits/
Do You like those? :)
Nick — 29-Sep-2018/21:17:53-7:00
Very cool, thank you! Thank you for the code at https://kuvaklubi.fi/forum/viewtopic/tid/771/
Anonymous — 29-Sep-2018/23:17:53-7:00
Information on how you did it? Example code?
Anonymous — 29-Sep-2018/23:20:36-7:00
Never mind, got it
Keckman — 30-Sep-2018/6:09:43-7:00
Thanks Nick, that You like :)
Here is a very little code example how I did smile faces:
http://petke.info/smile/smile.png
;*********************************************
R E B O L []
maxx: 3500
maxy: 2500
plot: copy[]
print "wait"
for i 1 100 1 [
-radius: 100 + random 300
-linewidth: 0.1 * radius
-x: random maxx
-y: random maxy
-append plot compose [
--fill-pen yellow
--line-width (linewidth)
--circle (as-pair x y) (radius) ; head
--arc (as-pair x y) (as-pair (0.7 * radius) (0.7 * radius)) 0 180 ; mouth
- -circle (as-pair (x - (radius * 0.3)) (y - (radius * 0.3))) (linewidth) ; left eye
- -circle (as-pair (x + (radius * 0.3)) (y - (radius * 0.3))) (linewidth) ; right eye
--
-]
]
main: layout [
panel1: box (as-pair (maxx) (maxy)) white effect reduce ['draw plot]
]
kuva: to-image main
save/png to-file "smile.png" kuva
halt
:*************************************************************
And here is code how I made this cool circles in spiral image...
http://petke.info/hits/006.html
http://petke.info/circlesinspiral.r
But sorry, comments only in finnish.
Keckman — 30-Sep-2018/7:05:05-7:00
I just found new idea to make cool image (in my opinion)
This is the code:
R E B O L []
maxx: 3500
maxy: 2500
x0: maxx / 2
y0: maxy / 2
plot: copy[]
radius: maxy / 2
dangle: 1
print "wait"
for k1 1 10 1 [
-for k2 1 10 1 [
--x1: x0 + radius
--y1: y0 -
--for angle dangle 360 dangle [
---x2: x0 + (radius * cosine (k1 * angle))
---y2: y0 + (radius * sine (k2 * angle))
---append plot compose [
----line (as-pair x1 y1) (as-pair x2 y2)
---]
---x1: x2
---y1: y2--
---]
-]
]
main: layout [
-box (as-pair (maxx) (maxy)) white effect reduce ['draw plot]
]
kuva: to-image main
save/png to-file "_ymp.png" kuva
halt
;**************************
And this is the result image:
http://petke.info/multiplyangle.png
(I'm always happy when I found new ideas of making images :)
Keckman — 30-Sep-2018/10:45:22-7:00
Little colours: http://petke.info/multiplyanglecolours.jpg
With this code: http://petke.info/multiplyanglecolours.r
Nick — 30-Sep-2018/12:57:39-7:00
Finnish seems to get translated fairly well by Google :)