Art Generator!

[Joke758]

Here a script to make nice TOTALLY random design.

expandcollapse popup

;By Joke758
Global $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)
$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
Msgbox ( 0, "hey", _RandomBytes())
$rand = _RandomBytes()
For $za = 1 to $bites Step 16
    For $i = 1 to 16 Step 2
        $temp = StringMid ( $rand, $i, 2 )
        $hex &= $temp
        $percent = int(($za/$bites)*100)
        GuiCtrlSetData ( $progress2, $percent )
    Next
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 shimgvw.dll,ImageView_Fullscreen " & @scriptdir & "output.jpg") ;Thanks to daslick
MsgBox ( 64, "Art Generator", "Done!" & @CRLF & @scriptdir & "output.jpg" )
    
Func _RandomBytes()
    Local $hx_Return
    
    For $i = 1 to 16
        $hx_Return &= Hex(Round(Random ( 0, 255 )),2)
    Next
    
    Return $hx_Return
EndFunc

It can look like this:

or this:

Edited January 4, 2007 by Joke758

[Richard Robertson]

All you have to do is generate the bitmap using your trigonometric functions. Once you have the bitmap, run through the jpg compression scheme. It isn't impossible or hard.

[er453r]

I understand you /dev/null, crystal clear. I think it's impossible to plot exactly what we want, because jpeg compression algorithm uses not single "pixel entries" but parts of the picture. It's like trying to paint Mona Lisa without looking at the canvas. But I was trying to show, that certain parts can be repeated.

[Joke758]

Here's a bmp generator, but it's hard to generate BMP cause they only contain 00 and FF.

expandcollapse popup

;By Joke758
Global $bites = 1572128
Global $temp
;BMP header
Global $hex = '424D56FD17000000000036000000280000008103000048020000010018000000000020'& _
'FD170000000000000000000000000000000000'
Dim $c[7]
$c[0] = 6
$c[1] = '00FF00' ;Green
$c[2] = 'FFFF00' ;Yellow
$c[3] = 'FF0000' ;Blue
$c[4] = 'FFFFFF' ;White
$c[5] = '0000FF' ;Red
$c[6] = '000000' ;Black


$Form1 = GUICreate("Creating", 237, 74)
$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 Step 3
        $temp = $c[Round(Random(1,$c[0]))]
        $hex &= $temp
        $percent = int(($a/$bites)*100)
        GuiCtrlSetData ( $progress2, $percent )
Next
GuiDelete ( $form1 )

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

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

[smstroble]

i created this

(blown up to 800% and converted to jpg for file size)

with

For $a = 1 to $bites Step 3
        $temp = Hex(BitAND(Tan(Sin(Cos($a)))*97, Cos(Tan(Sin($a)))*103),6) ;$c[Round(Random(1,$c[0]))]
        $hex &= $temp
        $percent = int(($a/$bites)*100)
        GuiCtrlSetData ( $progress2, $percent )
Next

Edited January 6, 2007 by smstroble

[Joke758]

Hey that's nice!

[theguy0000]

I will look up the details of PNG, if I can.

[Joke758]

PNG Header with some byte:

Global $hex = '89504E470D0A1A0A0000000D494844520000038100000248080200000050587653000'& _
'000017352474200AECE1CE90000000467414D410000B18F0BFC61050000002063485'& _
'24D00007A26000080840000FA00000080E8000075300000EA6000003A98000017709'& _
'CBA513C000088FB49444154785EED9D8992EB3A8E6D6FFFF9F9F3EAF4904E59A'& _
'248CC04C8ED38F1FAD54D0EE002086E4192FD7FFFFBDFFFFEC307044000041625'& _
'F07F87756D92EC7E96BCC94A178D592C0B04B621F0A341F101011000819508FCF7'& _
'7369FDFB6FA57511D7F2B3767C40000440203F0124ABFC3E828520000263029BEB'& _
'CE132064F671C4A0050880C06C02C854B33D80F9410004A404A03B3BE490DCA5'

[theguy0000]

thats a png header? everywhere I've looked, PNGs only start out with 8 bytes...

[RazerM]

They do start with 8 bytes. Wikipedia has information on png's - http://en.wikipedia.org/wiki/Png

[Joke758]

They indeed start with 8 bytes, but like I said, I added some bytes for the picture resolution (897x584) and everything.

PNG Header with some byte:

You cannot add random byte to the 8-bytes header of PNG because you have to definite the resolution.

[theguy0000]

Oh ok, I see.

so you have set all necessary chunks and now we can just add random values?

[Joke758]

Exactly

But it gives crappy result..

[magician13134]

I don't understand why there are always groups of similar colors in squares... that makes my brain hurt...

[Adam1213]

Nice program but your program could make the picture in 60% of the time.

(You waste a lot of time updating the progress bar every loop, and calculating the percentage. There is a better way by only doing it every 1%)

Also when the image has been made it would be better to show the image.

Run time (bites=100000)

Original program: 5.2 secs (5158.60451537835 ms)

Improved program: 3.3 secs (3273.30233311776 ms)

Improved program takes 64% of the time that the old one takes

Make cool jpg file with my generator!

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

<code was here>

Here's an example:

http://img88.imageshack.us/img88/2554/outputld5.jpg

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
$one_percent=round($bites/100) ; Updating every 1% only (it is displayed like this anyway) makes the program run a lot faster - Adam1213
For $a = 1 to $bites
    if mod($a, $one_percent)=0 then ; Update only every 1% - Adam1213 then
        GuiCtrlSetData ($progress2, $a/$one_percent); - remove round as its not needed -theguy0000 
    endif
    $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" )
Run ('cmd /c "cd '&@scriptdir&'&output.jpg"', @scriptdir, @SW_HIDE) ; Display the image - Adam1213

Edited March 31, 2007 by Adam1213

[theguy0000]

@adam1213 - after doing that, you don't need the Round ( ) anymore, correct?

[Adam1213]

@adam1213 - after doing that, you don't need the Round ( ) anymore, correct?

Forgot about that!

[Skrip]

Heh, this creates a really girly one.

CODE

;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

$one_percent=round($bites/100) ; Updating every 1% only (it is displayed like this anyway) makes the program run a lot faster - Adam1213

For $a = 1 to $bites

if mod($a, $one_percent)=0 then ; Update only every 1% - Adam1213 then

GuiCtrlSetData ($progress2, $a/$one_percent); - remove round as its not needed -theguy0000

endif

$hex &= Hex(Random ( 20, 21 ), 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" )

Run ('cmd /c "cd '&@scriptdir&'&output.jpg"', @scriptdir, @SW_HIDE) ; Display the image - Adam1213

[Joke758]

Ok I made this:

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)

Global $aa = Random ( 0, 255, 1) ;Replace the random for any ID
Global $bb = Random ( 0, 255, 1) ;Replace the random for any ID
$1 = $aa
$2 = $bb
Global $cc
;Making the body of the jpg
$one_percent=round($bites/100) ; Updating every 1% only (it is displayed like this anyway) makes the program run a lot faster - Adam1213
For $a = 1 to $bites
if mod($a, $one_percent)=0 then ; Update only every 1% - Adam1213 then
GuiCtrlSetData ($progress2, $a/$one_percent); - remove round as its not needed -theguy0000
endif
$cc = BitXor ( $aa, $bb )
$aa = $bb
$bb = $cc
$hex &= Hex ($cc,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 ('cmd /c "cd '&@scriptdir&'&output.jpg"', @scriptdir, @SW_HIDE) ; Display the image - Adam1213
MsgBox ( 64, "Art Generator", "Done!" & @CRLF & @scriptdir & "\output.jpg"&@CRLF&"Picture ID: "&$1&","&$2 )

There is 65 025 possibles pictures to generate with this code.

Replace the line 31, 32 to the picture ID you want to reproduce a picture.

[Obi-w00t]

This is a really neat idea - I was wondering if there is any way to make a JPEG in a similar way that would have some letters over the top and a random background behind - kind of like those authentication pictures that are used in signing up for things (type the letters and number in the picture). It would be really useful to have that.