Bild zeigt zum mauszeiger?
Übersicht
BlitzBasic Allgemein
Mr.XBetreff: Bild zeigt zum mauszeiger? |
 Fr, März 09, 2007 1:50Antworten mit Zitat 
|
|
|---|---|---|
|
Hallo kann mir jemand sagen wie ich ein bild immer zum mauszeiger drehen
kann geht soetwas mit sin u.s.w? kleines beispiel wäre ganz gut danke schon mal. |
||
|
hecticSieger des IS Talentwettbewerb 2006 |
Fr, März 09, 2007 2:59 Antworten mit Zitat
|
|---|---|---|
|
Mit linker Maustaste Position ändern: Code: [AUSKLAPPEN] Graphics 320,320,0,2
SetBuffer BackBuffer() TFormFilter 0 mx%=0 ;Maus-X-Position my%=0 ;Maus-Y-Position xp#=160 ;X-Position des Spielers yp#=160 ;Y-Position des Spielers wk#=0 ;Berechneter Winkel ;Hier wird anstelle LoadImage ein Bild selbst gezeichnet Color 255,0,0 Rect 2,10,28,12,1 Color 255,255,0 Rect 14,4,4,10,1 ;Hier wird ein Bild in 32x32 größe und 180 Frames (2° Schritte) erstellt sp=CreateImage(32,32,181) ;Hier wird das gezeichnete Image ins spt1 übertragen (temporäres Bild) spt1=CreateImage(32,32) GrabImage spt1,0,0 MidHandle spt1 ;Hier wird das temporäres Bild in 2° Schritten gedreht und ins Bild 'sp' übertragen For q=0 To 180 spt2=CopyImage(spt1) RotateImage spt2,-90+q*2 DrawBlock spt2,16,16 GrabImage sp,0,0,q Next Cls ;Rotationsmitte bestimmen MidHandle sp ;Temporären Kramm befreien FreeImage spt1 FreeImage spt2 ;Hauptschleife While Not KeyHit(1) mx=MouseX() my=MouseY() If MouseHit(1) xp=mx:yp=my wk=ATan2(my-yp,mx-xp) DrawImage sp,xp,yp,Floor(90+wk/2) Flip Cls Wend End edit1: Der Code ist uralt, habe jetzt nicht so auf Optimierung geachtet. Soll nur eine Möglichkeit zeigen... |
||
Mr.X |
Fr, März 09, 2007 3:16 Antworten mit Zitat
|
|
|---|---|---|
Ja cool danke genau das was ich gebraucht habe 
[Edit] Geht das den auch nur mit rotateimage?? |
||
Übersicht
BlitzBasic Allgemein
Powered by phpBB © 2001 - 2006, phpBB Group