my computer can do art
Hover over the thumbnail for a full-size version.
| Author | RedSham |
|---|---|
| Tags | author:redsham computer n-art nart nonplayable random unrated |
| Created | 2008-07-02 |
| Last Modified | 2008-07-02 |
| Map Data | |
| Description | i wanted to make an art out of random lines, so i made a program thingy that made random lines. i kept doing different thingies until one actually looked like something.
pure randomness please comment on what you think it looks like |
Other maps by this author
 |
 |
 |
 |
 |
 |
| Ninja with a laser!!! | Trained to Kill | Mad Red Guy | Zooming Tunnels | sea serpent | kirby night (>")> |
Comments
Pages: (0)
2008-10-15
looks like chuckie from the rugrats
and hes reaching for the stars with his not-short hand, but his short hand is being held back for extra dramaticness
2008-09-20
A bit weird...
I think it looks like an ant eater on it's side.
2008-08-04
it looks like the earth
the continents that is.
expand the thumbnail and you'll see it.
expand the thumbnail and you'll see it.
2008-08-02
Hmm...
It looks like a fat porcupine with human legs riding a long dog-thingy... I DONT KNOW!
2008-07-30
Looks like a kangaroo jumping
with a red tree in the background. :)
2008-07-03
if you want more or less objects
change the second number in
For z = 1 To 1000
to a lower or higher number
For z = 1 To 1000
to a lower or higher number
2008-07-03
only a few actually look like something
.
2008-07-03
okay...
go to tools and open the macros. make a new one and paste this in:
Sub art()
x = 363
y = 267
For z = 1 To 1000
nope:
a = (Int(Rnd * 3) - 1) * 6
b = (Int(Rnd * 3) - 1) * 6
If u + a = 0 Then GoTo nope
If v + b = 0 Then GoTo nope
x = x + a
y = y + b
If x < 36 Then x = x + 6
If y < 36 Then y = y + 6
If x > 726 Then x = x - 6
If y > 534 Then y = y - 6
Selection.TypeText Text:="12^"
Selection.TypeText (x)
Selection.TypeText Text:=","
Selection.TypeText (y)
Selection.TypeText Text:="!"
u = a
v = b
Next z
End Sub
then run it and paste the data in n and load
Sub art()
x = 363
y = 267
For z = 1 To 1000
nope:
a = (Int(Rnd * 3) - 1) * 6
b = (Int(Rnd * 3) - 1) * 6
If u + a = 0 Then GoTo nope
If v + b = 0 Then GoTo nope
x = x + a
y = y + b
If x < 36 Then x = x + 6
If y < 36 Then y = y + 6
If x > 726 Then x = x - 6
If y > 534 Then y = y - 6
Selection.TypeText Text:="12^"
Selection.TypeText (x)
Selection.TypeText Text:=","
Selection.TypeText (y)
Selection.TypeText Text:="!"
u = a
v = b
Next z
End Sub
then run it and paste the data in n and load
PONY PONY PONY PONY PONY PONY PONY PONY PONY PONY PONY PONY PONY PONY PONY PONY PONY PONY PONY PONY PONY PONY PONY PONY PONY PONY PONY PONY PONY PONY PONY PONY PONY PONY PONY PONY PONY PONY PONY PONY PONY PONY PONY PONY PONY PONY PONY PONY PONY PONY PONY PONY PONY PONY PONY PONY PONY PONY PONY PONY PONY PONY PONY PONY PONY PONY PONY PONY PONY PONY PONY PONY PONY PONY PONY PONY PONY PONY PONY PONY PONY PONY PONY PONY PONY PONY PONY PONY PONY PONY PONY PONY PONY PONY PONY PONY PONY PONY PONY PONY PONY PONY PONY PONY PONY PONY PONY PONY PONY PONY PONY PONY PONY PONY PONY PONY PONY PONY PONY PONY PONY PONY PONY PONY PONY PONY PONY PONY PONY PONY PONY PONY PONY PONY PONY PONY PONY PONY PONY PONY PONY PONY PONY PONY PONY PONY PONY PONY PONY PONY PONY PONY PONY PONY PONY PONY
2008-07-03
@ wumbla
i used a macro i made on microsoft word...i dont know how to give it to you
2008-07-02
looks like
a bunch of random mines...
with a wrench comming out of it's butt, make more of these! Can I use the program
2008-07-02
ooh i see the pony
yay
2008-07-02
I SEE A PONY!
PONY PONY PONY
2008-07-02
it looks like a weird guy with a helmet
and his arm out.
if it looks like something else to you feel free to comment about it
if it looks like something else to you feel free to comment about it
ats4
It looks like...