Art Generator!

[Joke758 1]

Make cool jpg file with my generator!

You can choose the size of the file. Default is 100kb.

expandcollapse popup

;By Joke758
Global $bites = IniRead ( "artgen.ini", "bites", "bites", "100000" )

;JPG header
Global $hex = 'FFD8FFE000104A46494600010101006000600000FFDB0043000806060706050807070'& _
'70909080A0C140D0C0B0B0C1912130F141D1A1F1E1D1A1C1C00242E2700222C23'& _
'1C1C2837292C30313434341F27393D38323C2E333432FFDB0043010909090C0B0C1'& _
'80D0D1832211C213232323232323232323232323232323232323232323232323232323'& _
'232323232323232323232323232323232323232323232FFC00011080248038103012200'& _
'021101031101FFC4001F000001050101010101010000000000000000010203040506070'& _
'8090A0BFFC400B5100002010303020403050504040000017D01020300041105122131'& _
'410613516107227114328191A1082342B1C11552D1F02433627282090A161718191A2'& _
'5262728292A3435363738393A434445464748494A535455565758595A6364656667686'& _
'96A737475767778797A838485868788898A92939495969798999AA2A3A4A5A6A7A8'& _
'A9AAB2B3B4B5B6B7B8B9BAC2C3C4C5C6C7C8C9CAD2D3D4D5D6D7D8D9DAE'& _
'1E2E3E4E5E6E7E8E9EAF1F2F3F4F5F6F7F8F9FAFFC4001F01000301010101010101'& _
'01010000000000000102030405060708090A0BFFC400B5110002010204040304070504'& _
'0400010277000102031104052131061241510761711322328108144291A1B1C1092333'& _
'52F0156272D10A162434E125F11718191A262728292A35363738393A4344454647484'& _
'94A535455565758595A636465666768696A737475767778797A82838485868788898A'& _
'92939495969798999AA2A3A4A5A6A7A8A9AAB2B3B4B5B6B7B8B9BAC2C3C4C5'& _
'C6C7C8C9CAD2D3D4D5D6D7D8D9DAE2E3E4E5E6E7E8E9EAF2F3F4F5F6F7F8F9'& _
'FAFFDA000C03010002110311003F00F7FA2800'


$Form1 = GUICreate("Creating", 237, 74, 302, 218)
$Progress2 = GUICtrlCreateProgress(16, 40, 209, 17)
GUICtrlSetColor(-1, 0x316AC5)
GUICtrlCreateLabel("Creating...", 16, 8, 97, 24)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
GUISetState(@SW_SHOW)

;Making the body of the jpg
For $a = 1 to $bites
    $percent = int(($a/$bites)*100)
    GuiCtrlSetData ( $progress2, $percent )
    $hex &= Hex(Random ( 0, 255 ), 2)
Next
GuiDelete ( $form1 )

;modify
$hex = '0x' & $hex

;saving
Local $h_Open = FileOpen('output.jpg', 2)
FileWrite($h_Open, BinaryString($hex))
FileClose($h_Open)
MsgBox ( 64, "Art Generator", "Done!" & @CRLF & @scriptdir & "\output.jpg" )

Here's an example:

Edited October 6, 2006 by Joke758

[spyrorocks 1]

haha this is cool

[Joke758 1]

Yeah, post your creation!

[fisofo 0]

Perhaps I'm missing something... I get an undetermined string error for that "Global $hex =" line. Ideas?

[Richard Robertson 187]

Wow, nice image. Now if only you could generate cool line drawings.

[dv8 3]

Perhaps I'm missing something... I get an undetermined string error for that "Global $hex =" line. Ideas?

The string needs to be on one line. Here it's broken because there's no horizontal space...

[dv8 3]

Make cool jpg file with my generator!

You can choose the size of the file. Default is 100kb.

Thanks to w0uter for his _Replace function.

Maybe you should show what your ARTGEN.INI looks like?

EDIT1: Because without it, the output.jpg is 0kb.

EDIT2: I figured it out. Sorry.

Edited October 5, 2006 by dv8

[jvanegmond 308]

This is just awesome!

I have been waiting to see these things on AutoIt more!

[dv8 3]

Something is wrong. I keep getting 0kb output.jpg file.

[fisofo 0]

The string needs to be on one line. Here it's broken because there's no horizontal space...

Heh... i guess it's still early

It runs now, but I also get a 0 Kb sized file... does this need beta to run?

[Kohr 0]

0kb file size here as well.

Kohr

[RazerM 0]

I managed to get it working. Remove the space from the $hex variable beginning and the $hex &= part.

This is quite cool. Nice job

[Kohr 0]

That fixed it. Great job on this.

[Joke758 1]

I'm working on making nice design..

artgen.ini should looks like that:

[bites]
bites=22222

But it's not very important..

[zcoacoaz 0]

Well it is interesting and original, I'll give you that

Maybe someone could use this as inspiration to make an actual image generator.

Edited October 5, 2006 by Xenogis

[Joke758 1]

Ok, I made a random design generator. I remove the compiling step so it's very fast. Here's the script:

expandcollapse popup

;By Joke758
Global $bites = IniRead ( "artgen.ini", "bites", "bites", "200000" )
Global $temp
;JPG header
Global $hex = 'FFD8FFE000104A46494600010101006000600000FFDB0043000806060706050807070'& _
'70909080A0C140D0C0B0B0C1912130F141D1A1F1E1D1A1C1C00242E2700222C23'& _
'1C1C2837292C30313434341F27393D38323C2E333432FFDB0043010909090C0B0C1'& _
'80D0D1832211C213232323232323232323232323232323232323232323232323232323'& _
'232323232323232323232323232323232323232323232FFC00011080248038103012200'& _
'021101031101FFC4001F000001050101010101010000000000000000010203040506070'& _
'8090A0BFFC400B5100002010303020403050504040000017D01020300041105122131'& _
'410613516107227114328191A1082342B1C11552D1F02433627282090A161718191A2'& _
'5262728292A3435363738393A434445464748494A535455565758595A6364656667686'& _
'96A737475767778797A838485868788898A92939495969798999AA2A3A4A5A6A7A8'& _
'A9AAB2B3B4B5B6B7B8B9BAC2C3C4C5C6C7C8C9CAD2D3D4D5D6D7D8D9DAE'& _
'1E2E3E4E5E6E7E8E9EAF1F2F3F4F5F6F7F8F9FAFFC4001F01000301010101010101'& _
'01010000000000000102030405060708090A0BFFC400B5110002010204040304070504'& _
'0400010277000102031104052131061241510761711322328108144291A1B1C1092333'& _
'52F0156272D10A162434E125F11718191A262728292A35363738393A4344454647484'& _
'94A535455565758595A636465666768696A737475767778797A82838485868788898A'& _
'92939495969798999AA2A3A4A5A6A7A8A9AAB2B3B4B5B6B7B8B9BAC2C3C4C5'& _
'C6C7C8C9CAD2D3D4D5D6D7D8D9DAE2E3E4E5E6E7E8E9EAF2F3F4F5F6F7F8F9'& _
'FAFFDA000C03010002110311003F00F7FA2800'


$Form1 = GUICreate("Creating", 237, 74, 302, 218)
$Progress2 = GUICtrlCreateProgress(16, 40, 209, 17)
GUICtrlSetColor(-1, 0x316AC5)
GUICtrlCreateLabel("Creating...", 16, 8, 97, 24)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
GUISetState(@SW_SHOW)

;Making the body of the jpg

For $a = 1 to $bites
    $2tmp = Round(Random ( 1, 2 ))
    If $2tmp = 1 then
        $temp = $temp + 128
    Else
        $temp = $temp - 64
    EndIf
    
    If $temp > 255 then $temp = 1
    $percent = int(($a/$bites)*100)
    GuiCtrlSetData ( $progress2, $percent )
    ;$hex &= Hex(Random ( 0, 255 ), 2)
    $hex &= Hex( $temp, 2 )
Next
GuiDelete ( $form1 )

;modify
$hex = '0x' & $hex

;saving
Local $h_Open = FileOpen('output.jpg', 2)
FileWrite($h_Open, BinaryString($hex))
FileClose($h_Open)
run("rundll32.exe C:\WINDOWS\System32\shimgvw.dll,ImageView_Fullscreen " & @scriptdir & "\output.jpg") ;Thanks to daslick
MsgBox ( 64, "Art Generator", "Done!" & @CRLF & @scriptdir & "\output.jpg" )

Example:

Edited October 6, 2006 by Joke758

[daslick 2]

You should add this to your code!!!

run("rundll32.exe C:\WINDOWS\System32\shimgvw.dll,ImageView_Fullscreen C:\Program Files (x86)\AutoIt3\Examples\output.jpg")

[CoePSX 4]

This is really a great job!

Small script, simple idea, wonderful result.

d-(^­_^)-b

Edited October 6, 2006 by CoePSX

[guestscripter 5]

How could I specify the size, so that I can make a wallpaper for my 1680x1050 monitor? Or could you write me the script for that please?

[Joke758 1]

Wow, I'm glad that you like it and you want to use it as your wallpaper

The jpg header is only for 897x584. I'll edit a jpg file with 1680x1050 resolution and post the new header here.