psygate
Anmeldungsdatum: 05.04.2005
Beiträge: 304
Wohnort: Wien und der Computer
|
 Verfasst am: 25.07.2008, 09:54 Titel: Pointer Problem |
 |
|
Hallo, mal wieder 
Könnte mal jemand einen ganz kurzen Blick in mein programm hier werfen udn mir sagen, warum mich des Partout nicht mit dem Pointer auf die Screen zugreifen lässt? Thx
Achja, der Pointer wäre in der Sub vertblur() und heißt target
| Code: |
Dim As Integer x,y,x1,y1,r,g,b,c
Dim As String Key
Dim As integer Ptr img
Dim Shared As Integer Ptr imgptr
Dim Shared As Integer w,h,pitch,bpp,buffer
Declare Sub vertblur()
Declare Sub horzblur()
Declare function getpix(x As integer,y As Integer,p As Any ptr) As integer
Const xmax=320
Const ymax=240
ScreenRes xmax,ymax,32,,
imgptr=screenptr()
ScreenInfo w,h,,bpp,pitch
Randomize Timer
While Key<>Chr(27) And Key<>Chr(255)+"k"
Key=InKey$
x= Int(Rnd*xmax)
y= Int(Rnd*ymax)
x1=Int(Rnd*xmax)
y1=Int(Rnd*ymax)
r=Int(Rnd*255)
g=r
b=Int(r+(255-r)*Rnd)
c=RGB(r,g,b)
screenlock
img=imagecreate(xmax,ymax)
Line img,(x,y)-(x1,y1),c',,2
Put (0,0),img,alpha,8
imagedestroy(img)
pset(0,0),&hff11ff
ScreenUnLock
vertblur()
sleep
End
Wend
Sub vertblur()
Dim As UByte r,g,b,a
Dim As uInteger x,y,q
Dim As Integer Ptr target
For x=1 To w-1
For y=1 To h-1
q=peek(UInteger,target)
*target=Not q
Next
Next
End Sub
Public function getpix(x As integer,y As Integer,p As Any ptr) As integer
Dim As Integer value
value=(y*pitch)+(x*bpp)
Return value
End Function
|
_________________
Danke an Volta für seine großartige MMX_fade function. *verneig*
Personal-DNA:
<script src="http://personaldna.com/h/?k=qtrCFboSuCOpFrX-OI-AADBA-f78d&t=Free-Wheeling+Leader">
</script>
| Zitat: | | Das Forum für den zum QBASIC kompatieblen open soure FreeBasic Kompiler. |
by DJ. Peters |
|
FAQ
Suchen
Mitgliederliste
Benutzergruppen
Registrieren
Profil
Einloggen, um private Nachrichten zu lesen
Login
