Jump to content

Sky Slate Blueberry Blackcurrant Watermelon Strawberry Orange Banana Apple Emerald Chocolate
Photo

Malen mit AHK


  • Please log in to reply
3 replies to this topic
Spur
  • Members
  • 18 posts
  • Last active: Nov 27 2014 07:36 AM
  • Joined: 17 Nov 2013

Hallo zusammen,

folgende Bilder wurden mithilfe von AHK und Paint/PS/Gimp etc. erstellt.

Unter den Bilder ist das verwendete Script. Vereinzelt habe ich das Script angepasst.

Hoffe es gefällt.

rpaskf88mlm.png

m2br4bevvkt.png

;run mspaint.exe
!a::
{
	sleep 100
	send {lbutton down}
	sleep 100
	loop 60
	{
		;sleep 100
		MouseMove, AX, AY
		MouseMove, BX, BY
		;sleep 100
		BX := BX+5
		AX := AX-5
	}
	send {lbutton up}
}
return 

!1::MouseGetPos AX, AY
!2::MouseGetPos BX, BY

end::exitapp

sbkp4p9uerbo.png

 

qof9ia9m17ej.png

 

ussymrwnf6q.png

;run mspaint.exe
!a::
{
	ink = 3								;wieviel der abstand zur nächsten Linie ist [Pixel]
	
	hoehe := (BY-AY)/2
	lo1 := hoehe / ink
	radius := hoehe
	
	t1 := (2*radius*hoehe)-(hoehe*hoehe)	;hier wird die Shene berechnet
	t2 := 2*Sqrt(t1)						;hier wird die Shene berechnet
	
	HSehne := t2/2							;hälfte der sehen
	MouseMove, AX, AY+hoehe
	MouseGetPos mitteX, mitteY
	
	MouseMove, mitteX+HSehne, mitteY 
	MouseMove, mitteX-HSehne, mitteY
	
	AX1 := AX
	AY1 := AY
	HSehne1 := HSehne
	hoehe1 := hoehe
	send {lbutton down}
	loop %lo1%
	{
		hoehe1 := hoehe1 - ink
		MouseMove, AX1, AY1+hoehe1
		
		MouseGetPos mitteX1, mitteY1

	
		t1 := (2*radius*hoehe1)-(hoehe1*hoehe1)	;hier wird die Shene berechnet
		t2 := 2*Sqrt(t1)						;hier wird die Shene berechnet
	
		HSehne1 := t2/2							;hälfte der sehen
		
		MouseMove, mitteX1+HSehne1, mitteY1
		
		MouseMove, mitteX1-HSehne1, mitteY1
	}
	send {lbutton up}
	
	MouseMove, mitteX, mitteY 
	
	send {lbutton down}
	loop %lo1%
	{
		hoehe := hoehe + ink
		MouseMove, AX, AY+hoehe
		
		MouseGetPos mitteX2, mitteY2

	
		t1 := (2*radius*hoehe)-(hoehe*hoehe)	;hier wird die Shene berechnet
		t2 := 2*Sqrt(t1)						;hier wird die Shene berechnet
	
		HSehne := t2/2							;hälfte der sehen
		
		MouseMove, mitteX2+HSehne, mitteY2
		
		MouseMove, mitteX2-HSehne, mitteY2
	}
	send {lbutton up}
	
}
return 


!1::MouseGetPos AX, AY
!2::MouseGetPos BX, BY

end::exitapp

z4aso5uo4ins.png

;run mspaint.exe
!a::
{
	loop 30
	{
		sleep 100
		MouseMove, AX, AY
		sleep 100
		send {lbutton down}
		sleep 100
		MouseMove, BX, AY
		sleep 100
		MouseMove, BX, BY
		MouseMove, AX, BY
		MouseMove, AX, AY
		send {lbutton up}
		
		AX := AX-5
		AY := AY-5
		BX := BX+5
		BY := BY+5
	}
	mittex := AX+BX
	mittex := mittex/2
	mittey := AY+BY
	mittey := mittey/2
	
	MouseMove, mittex, mittey
	send {lbutton down}
	MouseMove, AX, AY
	MouseMove, mittex, mittey
	MouseMove, BX, AY
	MouseMove, mittex, mittey
	MouseMove, BX, BY
	MouseMove, mittex, mittey
	MouseMove, AX, BY
	MouseMove, mittex, mittey
	send {lbutton up}
}
return 

!1::MouseGetPos AX, AY
!2::MouseGetPos BX, BY

end::exitapp

udkwrb22sdaj.png

wet58sg26g6.gif

So sieht’s mit Paint aus :)

 

xfwmqemwdnb.png

run mspaint.exe
!a::
{
	loop 14
	{
		sleep 100
		MouseMove, AX, AY
		sleep 100
		send {lbutton down}
		MouseMove, BX, AY
		sleep 100
		MouseMove, BX, BY
		MouseMove, AX, BY
		MouseMove, AX, AY
		send {lbutton up}
		
		
		mittex := AX+BX
		mittex := mittex/2
		mittey := AY+BY
		mittey := mittey/2
		
		MouseMove, mittex, mittey
		
		send {lbutton down}
		loop
		{
			Random, ZZx , -50, 50
			Random, ZZy , -50, 50
			MouseGetPos cx, cy
			if cx<%AX%
				break
			if cy<%AY%
				break 
			if cx>%BX%
				break
			if cy>%BY%
				break
				
			MouseMove, ZZx, ZZy , 1, R	
		}
		send {lbutton up}
		send {alt}r
		send ec
		
		loop 7
		{
			send {tab}
		}
		Random, F1 , 0, 255
		send %F1%{tab}
		Random, F2 , 0, 255
		send %F2%{tab}
		Random, F3 , 0, 255
		send %F3%{tab}{space}
		send {tab}{enter}
		AX := AX-5
		AY := AY-5
		BX := BX+5
		BY := BY+5
		
		
	}
}
return 

!1::MouseGetPos AX, AY
!2::MouseGetPos BX, BY

end::exitapp

Wäre schön wenn jemand seine Kreationen posten würde!

Gruss Spur



DeadLock
  • Members
  • 86 posts
  • Last active:
  • Joined: 10 Jul 2013

ahk.jpg

 

made with: https://www.dropbox....ata2Bitmap2.ahk



nnnik
  • Members
  • 1625 posts
  • Last active: Apr 11 2017 02:13 PM
  • Joined: 28 Jul 2012
Sucht mal nach GDI+.
Damit kann man direkt mit ahk malen.

Visit the new forum ahkscript.org.

http://ahkscript.org


Bentschi
  • Moderators
  • 120 posts
  • Last active: Sep 05 2014 02:12 AM
  • Joined: 26 Nov 2008

komisch, aber meistens sind genau solche bilder aus dem 2. post interressant, da ein bild mit solchen eigenschaften zwar großteils  zu falscher programmierung zurück zu führen sind, aber so hab ich selbst angefangen.

Vor alem mit Bilder kann man gut experimentieren, daher, give it a go.

Bnin mal etwa noch 1 monat off, dann gibts wieder was von mir

Gruß, Bentschi