#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <Array.au3>
#include <WindowsConstants.au3>
#include <GDIPlus.au3>
UDMG_Startup( )
UDMG_CreateSingleMap( 8, 4, 4, 4 )
;### Up Down Map Generator ######################################################################################################
;################################################################################################################################
Global $UDMG_PI = 3.1415926
;Noise Interpolation Mode
Global $NIM_LINEAR = 1
Global $NIM_COSINE = 2
Global $NIM_CUBIC = 3
Func UDMG_Startup( )
_GDIPlus_Startup( )
EndFunc
Func UDMG_Shutdown( )
_GDIPlus_Shutdown( )
EndFunc
Func UDMG_CreateSingleMap( $iDetailLevel2Power, $iSeed, $iXOffset, $iYOffset )
Local $iSize = 2^$iDetailLevel2Power
Local $hWND = GUICreate( "", $iSize, $iSize )
GUISetState( )
Local $hGraphics = _GDIPlus_GraphicsCreateFromHWND( $hWND )
Local $hBitmap = _GDIPlus_BitmapCreateFromGraphics( $iSize, $iSize, $hGraphics )
Local $hBitmapData = _GDIPlus_BitmapLockBits( $hBitmap, 0, 0, $iSize, $iSize )
Local $hStride = DllStructGetData( $hBitmapData, "Stride" )
Local $hScan0 = DllStructGetData( $hBitmapData, "Scan0" )
Local $hPixelData, $iColor, $dHeight, $dMaxHeight
Local $aHPoints[$iSize][$iSize]
For $iX = 0 To $iSize - 1
For $iY = 0 To $iSize - 1
$dHeight = UDMG_PRandom( $iX + $iXOffset, $iY + $iYOffset, $iSeed )
If $dHeight > $dMaxHeight Then $dMaxHeight = $dHeight
Next
Next
For $iX = 0 To $iSize - 1
For $iY = 0 To $iSize - 1
$hPixelData = DllStructCreate( "dword", $hScan0 + ( $iY * $hStride ) + ( $iX * 4 ) )
$dHeight = 255 / $dMaxHeight * UDMG_PRandom( $iX + $iXOffset, $iY + $iYOffset, $iSeed )
$iColor = UDMG_ValToBW( $dHeight )
DllStructSetData( $hPixelData, 1, $iColor )
Next
Next
_GDIPlus_BitmapUnlockBits( $hBitmap, $hBitmapData )
_GDIPlus_ImageSaveToFile( $hBitmap, "test.jpg" )
Return $aHPoints
EndFunc
Func UDMG_PRandom( $iX, $iY, $iSeed )
Local $dXFactor = Log( Sin( $iX ) + 1 * $iY ) / 2
Local $dYFactor = Log( Cos( $iY ) + 1 * $iX ) / 2
Local $dSeedFactor = Log( Sin( $iSeed ) + 1 ) / 2
Return Abs( $dXFactor * $dYFactor * $dSeedFactor )
EndFunc
Func UDMG_Interpolate( $aHPoints, $iInteration, $iNoiseInterpolationMode = $NIM_CUBIC )
For $i = 1 To $iInteration
Local $iSize = UBound( $aHPoints, 1 )
Local $aHReturnPoints[$iSize*2][$iSize*2]
Local $dA, $dB, $dC, $dD
For $iX = 1 To $iSize
For $iY = 1 To $iSize
$aHReturnPoints[($iX-1)*2][($iY-1)*2] = $aHPoints[$iX-1][$iY-1]
If $iX < $iSize And $iY < $iSize Then
Switch $iNoiseInterpolationMode
Case $NIM_LINEAR
;$aHReturnPoints[($iX-1)*2+1][($iY-1)*2+1]a*(1-x) + b*x
Case $NIM_COSINE
Case $NIM_CUBIC
EndSwitch
EndIf
Next
Next
If $iInteration > 1 Then $aHPoints = $aHReturnPoints
Next
Return $aHReturnPoints
EndFunc
Func UDMG_DisplayMap( $aHPoints )
Local $iWidth = UBound( $aHPoints, 1 )
Local $iHeight = UBound( $aHPoints, 2 )
Local $hGUI = GUICreate( "", $iWidth, $iHeight, -1, -1, $WS_POPUPWINDOW )
Local $hGraphic = GUICtrlCreateGraphic( 0, 0, $iWidth, $iHeight )
For $iX = 0 To $iWidth - 1
For $iY = 0 To $iHeight - 1
$iColor = "0x" & Hex( $aHPoints[$iX][$iY], 2 ) & Hex( $aHPoints[$iX][$iY], 2 ) & Hex( $aHPoints[$iX][$iY], 2 )
GUICtrlSetGraphic( $hGraphic, $GUI_GR_COLOR, $iColor )
GUICtrlSetGraphic( $hGraphic, $GUI_GR_PIXEL, $iX, $iY )
Next
Next
GUISetState( @SW_SHOW, $hGUI )
Local $iMsg
While True
$iMsg = GUIGetMsg( )
If $iMsg = $GUI_EVENT_CLOSE Then ExitLoop
WEnd
GUICtrlDelete( $hGraphic )
GUIDelete( $hGUI )
EndFunc
Func UDMG_ValToBW( $iValue )
Return "0x" & Hex( $iValue, 2 ) & Hex( $iValue, 2 ) & Hex( $iValue, 2 )
EndFunc
Ich war ja mal ne ganze Zeit sehr aktiv hier aber das hat sich leider geändert, seit ich Visual Studio (C# / C++) für alles mögliche benutze. Aber ich benutze AutoIt tatsächlich noch ne Menge!
) wäre wohl folgendes:
Sorry
