AutoIt Bilder

    Ich möchte mal eure Kreativität sehen :D

    Das ist kein Wettbewerb, eher eine kleine Sammlung. Erstellt ein schönes Bild mit Bezug zu AutoIt (auch wenns nur das Logo ist).
    Ich gehe da mal mit guten Beispiel voran:

    Kaffee

    [Blockierte Grafik: http://i40.img-up.net/mug6669.png]

    Und hier ist ein Wallpaper (das AutoItlogo als Grafitti) Achtung 6MB. Am besten gleich Speichern:

    http://u68i.img-up.net/grafittif96e.png?l=de

    Lets have fun!

    moin moin,

    für Tasse oder T-Shirt :D
    Meinst du so was in der Art ?
    autoit.de/wcf/attachment/18137/ oder so autoit.de/wcf/attachment/18112/
    noch eins autoit.de/wcf/attachment/18117/ und das autoit.de/wcf/attachment/18122/

    Edit: Hast nicht angegeben ob du eine bestimmte Größe haben möchtest.

    oh-ha

    Hier mal was von mir:
    [Blockierte Grafik: http://hegi.tk/public/autoit/Linien.jpg]

    Edit: Hier nochmal ein Motiv in 3 unterschiedlichen Varianten:
    [Blockierte Grafik: http://hegi.tk/public/autoit/Leuchten.jpg]
    [Blockierte Grafik: http://hegi.tk/public/autoit/Leuchten2.jpg]
    [Blockierte Grafik: http://hegi.tk/public/autoit/Leuchten3.jpg]

    Will ich auch mal meinen (bescheidenen) Beitrag dazu leisten:
    [Blockierte Grafik: http://sninfando.magix.net/public/AutoIt.de_Header.png]
    Habe ich ja schon in der SB gezeigt, aber hier nochmal für alle. ^^

    Das sieht im Vergleich zu den anderen Bildern natürlich langweilig aus.
    Allerdings hat meines eine 'tiefere Bedeutung', wenn man so will.

    Dieses Bild wurde mit AutoIt & GDI+ erzeugt. ;)

    Ich erspare mir jetzt jede weitere Erklärung: Das Skript sagt alles. :P

    Spoiler anzeigen
    [autoit]


    #include <Array.au3>
    #include <GDIPlus.au3>
    #include <GDIP.au3>

    [/autoit] [autoit][/autoit] [autoit]

    $iCellSize = InputBox("", "Cellsize (px):")

    [/autoit] [autoit][/autoit] [autoit]

    $sInput = InputBox("", "String to encode:")
    $aInput = StringSplit($sInput, "")
    Dim $aBinary[$aInput[0]]
    For $i = 1 To $aInput[0]
    $aBinary[$i - 1] = _FillWithZeros(_TranslateBase(Asc($aInput[$i]), 10, 2))
    Next

    [/autoit] [autoit][/autoit] [autoit]

    _GDIPlus_Startup()

    [/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

    $iBorder = 0.075 ;$iCellSize * $iBorder = Randdicke

    [/autoit] [autoit][/autoit] [autoit]

    $hBrushTrue = _GDIPlus_LineBrushCreate(0, 0, $iCellSize * (1 - 2 * $iBorder), $iCellSize * (1 - 2 * $iBorder), 0xFF0000BB, 0xFF0000FF, 3)
    $hBrushFalse = _GDIPlus_LineBrushCreate(0, 0, $iCellSize * (1 - 2 * $iBorder), $iCellSize * (1 - 2 * $iBorder), 0xFF000077, 0xFF0000BB, 3)
    $hGUI = GUICreate("Binary", $iCellSize * 8, $iCellSize * $aInput[0])
    GUISetState()

    [/autoit] [autoit][/autoit] [autoit]

    $hGraphics = _GDIPlus_GraphicsCreateFromHWND($hGUI)
    $hBitmap = _GDIPlus_BitmapCreateFromGraphics($iCellSize * 8, $iCellSize * $aInput[0], $hGraphics)
    $hBuffer = _GDIPlus_ImageGetGraphicsContext($hBitmap)

    [/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

    _GDIPlus_GraphicsFillRect($hBuffer, 0, 0, $iCellSize * 8, $iCellSize * $aInput[0])

    [/autoit] [autoit][/autoit] [autoit]

    For $iY = 1 To $aInput[0]
    $aActualLine = StringSplit($aBinary[$iY - 1], "")
    For $iX = 1 To 8
    If $aActualLine[$iX] = "1" Then
    $hBrush = $hBrushTrue
    Else
    $hBrush = $hBrushFalse
    EndIf
    _GDIPlus_GraphicsFillRoundRect($hBuffer, (($iX - 1) * $iCellSize) + $iCellSize * $iBorder, (($iY - 1) * $iCellSize) + $iCellSize * $iBorder, $iCellSize * (1 - 2 * $iBorder), $iCellSize * (1 - 2 * $iBorder), 30, $hBrush)
    Next
    Next

    [/autoit] [autoit][/autoit] [autoit]

    _GDIPlus_GraphicsDrawImageRect($hGraphics, $hBitmap, 0, 0, $iCellSize * 8, $iCellSize * $aInput[0])

    [/autoit] [autoit][/autoit] [autoit]

    While True
    $iMsg = GUIGetMsg()
    If $iMsg = -3 Then
    _GDIP_Exit()
    Exit
    EndIf
    WEnd

    [/autoit] [autoit][/autoit] [autoit]

    Func _TranslateBase($sNumber, $iOldBase = 10, $iNewBase = 2)
    ;by eukalyptus
    If $iOldBase < 2 Or $iOldBase > 128 Or $iNewBase < 2 Or $iNewBase > 128 Then Return SetError(1, 1, False)
    Local $iNum, $aRes, $tChr = DllStructCreate("char[64];")
    If $iOldBase <> 10 Then
    $aRes = DllCall("msvcrt.dll", "uint64:cdecl", "_strtoui64", "str", $sNumber, "ptr", 0, "int", $iOldBase)
    If @error Then Return SetError(1, 2, False)
    $iNum = $aRes[0]
    Else
    $iNum = Int($sNumber)
    EndIf
    $aRes = DllCall("msvcrt.dll", "ptr:cdecl", "_i64toa", "int64", $iNum, "ptr", DllStructGetPtr($tChr), "int", $iNewBase)
    If @error Then Return SetError(1, 3, False)
    Return DllStructGetData($tChr, 1)
    EndFunc ;==>_TranslateBase

    [/autoit] [autoit][/autoit] [autoit]

    Func _FillWithZeros($bValue)
    ;chesstiger
    $bReturn = $bValue
    For $i = 1 To 8 - StringLen($bValue)
    $bReturn = 0 & $bReturn
    Next
    Return $bReturn
    EndFunc ;==>_FillWithZeros

    [/autoit] [autoit][/autoit] [autoit]

    Func _GDIP_Exit()
    $sName = InputBox("", "Filename:")
    If @error <> 1 Then _GDIPlus_ImageSaveToFile($hBitmap, $sName)
    _GDIPlus_ImageDispose($hBitmap)
    _GDIPlus_BrushDispose($hBrushTrue)
    _GDIPlus_BrushDispose($hBrushFalse)
    _GDIPlus_GraphicsDispose($hGraphics)
    _GDIPlus_Shutdown()
    EndFunc ;==>_GDIP_Exit

    [/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

    Func _GDIPlus_GraphicsFillRoundRect($hGraphics, $iX, $iY, $iWidth, $iHeight, $iRadius = 30, $hBrush = 0)
    ;TheShadowAE / CreativeName: erstellt
    Local $hPath = _GDIPlus_PathCreate(1)
    _GDIPlus_PathAddPie($hPath, $iX, $iY, $iRadius, $iRadius, 180, 90)
    _GDIPlus_PathAddPie($hPath, $iX + $iWidth - $iRadius, $iY, $iRadius, $iRadius, 270, 90)
    _GDIPlus_PathAddPie($hPath, $iX + $iWidth - $iRadius, $iY + $iHeight - $iRadius, $iRadius, $iRadius, 0, 90)
    _GDIPlus_PathAddPie($hPath, $iX, $iY + $iHeight - $iRadius, $iRadius, $iRadius, 90, 90)
    _GDIPlus_PathAddRectangle($hPath, $iX, $iY + $iRadius / 2, $iWidth, $iHeight - $iRadius)
    _GDIPlus_PathAddRectangle($hPath, $iX + $iRadius / 2, $iY, $iWidth - $iRadius, $iHeight)
    _GDIPlus_PathCloseFigure($hPath)
    _GDIPlus_GraphicsFillPath($hGraphics, $hPath, $hBrush)
    _GDIPlus_PathDispose($hPath)
    EndFunc ;==>_GDIPlus_GraphicsFillRoundRect

    [/autoit]

    lg, chess ^^