.Code: Alles auswählen
Adrsierb. Bit der zugehörige 2^x Entfernung pro Bit wenn
Speicher Adresse natürliche Zahl gesamt = 100000LJ(Galaxie)
----------------------------------------------------------------------------------
256 Byte 8 Bit * 256 3.698e13 m
64 Kilo 16 Bit * 65.536 1.444e11 m
16 Mega 24 Bit 16.777.216 5.643e8 m
4 Giga 32 Bit * 4.294.967.296 2.204e6 m
1 Tera 40 Bit 1.099.511.627.776 8.610e3 m (=8.6km)
256 T 48 Bit 281.474.976.710.656 3.365e1 m (=33.65m)
64 T+1 56 Bit 72.057.594.037.927.936 13.14 cm
16 T+2 64 Bit * 18.446.744.073.709.551.616 0.513 mm = genug
4 T+3 72 Bit 4.722.366.482.869.645.213.696 für ein Gesicht
1 T+4 80 Bit ~ 1.208.925.819.614.629.174.706.176
256 T+4 88 Bit
64 T+5 96 Bit^ ! 64 bit kann mimik in der !
16 T+6 104 Bit ! Galaxis darstellen !
4 T+7 112 Bit
1 T+8 120 Bit ~
256 T+8 128 Bit * 3.403e38 ist der nächste schritt 3.594 Trillionen
64 T+9 136 Bit -------------------------------- Galaxiedurchmesser
16 T+10 144 Bit 3.6e18 (Trio) Gal - 100µ bei 1/10mm Einheit
4 T+11 152 Bit 3.6e15 (Bia) Gal - 100nm (Nano) stellt das ganze bekannte
1 T+12 160 Bit ~ 3.6e12 (Bio) Gal - 100pm (Pico) Universum in einem
256 T+12 168 Bit 3.6e09 (Mia) Gal - 100Am (Atto) Vektorraum dar
64 T+13 176 Bit 3.6e06 (mio) Gal - 100Fm (Femto)=> 36 Milliarden Galax
16 T+14 184 Bit bei PicoMeter-Einheit
4 T+15 192 Bit *
1 T+16 200 Bit ~
256 T+16 208 Bit
64 T+17 216 Bit
16 T+18 224 Bit
4 T+19 232 Bit
1 T+20 240 Bit
256 T+20 248 Bit
64 T+21 256 Bit *
es hat für mich den anschein, als ob in einem 26dimensionalen Datenfeld
mit 256bit Variablen als Koordinaten ein 1-bit Wert pro Feld
ausreichen würde, das gesamte EXISTIERENDE Universum zu beschreiben !!!
Ouch. Der Sieg der Mathematik über Verstand und Realität !!!... wenn du deine träume vergisst, hörst du auf, kreativ zu sein...Robert hat geschrieben:In einer traumwelt...
Habe soeben gesehen das es mit PB3.30 noch nicht möglichKaeru Gaman hat geschrieben:jetzt muss ich nurnoch den AVI in ein sprite bekommen, das
wird noch mal spannend...
... hast du da nicht nähere tipps dazu, danilo ?
Code: Alles auswählen
;
; by Danilo, 13.11.2004 - german forum
;
#SCREEN_W = 1024
#SCREEN_H = 768
#NAME_MOVIE = "data\back.avi"
#NAME_STATIC = "data\back.bmp"
#TYPE_MOVIE = 1
#TYPE_STATIC = 2
#SPR_BCKGRND = 1
#SPR_CURSOR = 2
Structure MouseCursor
sprite.l
width.l
height.l
offX.l
offY.l
EndStructure
Procedure CatchMouseCursor(sprite,*mem.LONG)
;
; create new mouse cursor
;
If *mem
width = *mem\l : *mem+SizeOf(LONG)
height = *mem\l : *mem+SizeOf(LONG)
offX = *mem\l : *mem+SizeOf(LONG)
offY = *mem\l : *mem+SizeOf(LONG)
If width And height ; check > 0
*new_cursor.MouseCursor = AllocateMemory( SizeOf(MouseCursor) )
If *new_Cursor
*new_Cursor\sprite = sprite
*new_Cursor\width = width
*new_Cursor\height = height
*new_Cursor\offX = offX
*new_Cursor\offY = offY
If CreateSprite(sprite,width,height)
If StartDrawing(SpriteOutput(sprite))
For y = 1 To height
For x = 1 To width
Plot(x,y,*mem\l) : *mem+SizeOf(LONG)
Next x
Next y
StopDrawing()
ProcedureReturn *new_Cursor
EndIf
EndIf
FreeMemory(*new_Cursor)
EndIf
EndIf
EndIf
EndProcedure
Procedure DisplayCursor(*Cursor.MouseCursor,x,y)
If *Cursor
DisplayTransparentSprite(*Cursor\sprite,x - *Cursor\offX,y - *Cursor\offY)
EndIf
EndProcedure
If InitSprite() And InitMovie() And InitKeyboard() And InitMouse()
If OpenScreen(#SCREEN_W,#SCREEN_H,32,"playmovie")=0
If OpenScreen(#SCREEN_W,#SCREEN_H,24,"playmovie")=0
If OpenScreen(#SCREEN_W,#SCREEN_H,16,"playmovie")=0
MessageRequester("ERROR","Cant open screen !",#MB_ICONERROR):End
EndIf:EndIf:EndIf
If LoadMovie(#SPR_BCKGRND,#NAME_MOVIE)
back_type = #TYPE_MOVIE
Width = MovieWidth()
Height = MovieHeight()
back_sprite = CreateSprite(1,Width,Height) ; #SCREEN_W,#SCREEN_H fr fullscreen
If back_sprite = 0
; Fehler, nicht mal Sprite kann erstellt werden
CloseScreen()
MessageRequester("ERROR","Cant create sprite !",#MB_ICONERROR):End
EndIf
MovieLength = 1000 + MovieLength()*1000/(MovieInfo(0)/1000) ; milliseconds
Else
; movie konnte nicht geladen werden:
; kein grund das spiel abzubrechen, also
; alternativ ein hintergrundbild laden.
; Ist zwar dann nicht animiert, aber man
; kann das spiel trotzdem nutzen.
DisableDebugger
If LoadSprite(#SPR_BCKGRND,#NAME_STATIC)
back_type = #TYPE_STATIC
Width = SpriteWidth (#SPR_BCKGRND)
Height = SpriteHeight(#SPR_BCKGRND)
EndIf
EnableDebugger
EndIf
; init mouse cursor
mouse = CatchMouseCursor(#SPR_CURSOR,?cursor_arrow)
; start movie
If back_type = #TYPE_MOVIE
PlayMovie(#SPR_BCKGRND,#PB_Movie_Rendered)
StartTime = timeGetTime_()
EndIf
Repeat
ExamineKeyboard()
ExamineMouse()
If IsScreenActive()
ClearScreen(0,0,0)
If back_type = #TYPE_MOVIE
If (timeGetTime_()-StartTime) >= MovieLength
; wenn movie fertig, restarten
;MovieSeek(1)
PlayMovie(#SPR_BCKGRND,#PB_Movie_Rendered)
StartTime = timeGetTime_()
EndIf
; wenn movie, dann frame auf sprite rendern
RenderMovieFrame(back_sprite)
EndIf
If back_type
; wenn movie oder static sprite fr
; hintergrund, dann anzeigen, sonst
; einfach ohne hintergrund
DisplaySprite(#SPR_BCKGRND,#SCREEN_W/2-Width/2,#SCREEN_H/2-Height/2)
EndIf
EndIf
; show mouse cursor
If mouse
DisplayCursor(mouse,MouseX(),MouseY())
EndIf
FlipBuffers()
;Delay(10)
Until KeyboardPushed(#PB_KEY_ESCAPE)
EndIf
#blk = $080808
#wht = $FFFFFF
DataSection
cursor_arrow:
Data.l 12, 21 ; width & height
Data.l 0, 0 ; offX & offY (Cursor "HotSpot")
Data.l #blk, 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0
Data.l #blk,#blk, 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0
Data.l #blk,#wht,#blk, 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0
Data.l #blk,#wht,#wht,#blk, 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0
Data.l #blk,#wht,#wht,#wht,#blk, 0 , 0 , 0 , 0 , 0 , 0 , 0
Data.l #blk,#wht,#wht,#wht,#wht,#blk, 0 , 0 , 0 , 0 , 0 , 0
Data.l #blk,#wht,#wht,#wht,#wht,#wht,#blk, 0 , 0 , 0 , 0 , 0
Data.l #blk,#wht,#wht,#wht,#wht,#wht,#wht,#blk, 0 , 0 , 0 , 0
Data.l #blk,#wht,#wht,#wht,#wht,#wht,#wht,#wht,#blk, 0 , 0 , 0
Data.l #blk,#wht,#wht,#wht,#wht,#wht,#wht,#wht,#wht,#blk, 0 , 0
Data.l #blk,#wht,#wht,#wht,#wht,#wht,#wht,#wht,#wht,#wht,#blk, 0
Data.l #blk,#wht,#wht,#wht,#wht,#wht,#wht,#blk,#blk,#blk,#blk,#blk
Data.l #blk,#wht,#wht,#wht,#blk,#wht,#wht,#blk, 0 , 0 , 0 , 0
Data.l #blk,#wht,#wht,#blk,#blk,#wht,#wht,#blk, 0 , 0 , 0 , 0
Data.l #blk,#wht,#blk, 0 , 0 ,#blk,#wht,#wht,#blk, 0 , 0 , 0
Data.l #blk,#blk, 0 , 0 , 0 ,#blk,#wht,#wht,#blk, 0 , 0 , 0
Data.l #blk, 0 , 0 , 0 , 0 , 0 ,#blk,#wht,#wht,#blk, 0 , 0
Data.l 0 , 0 , 0 , 0 , 0 , 0 ,#blk,#wht,#wht,#blk, 0 , 0
Data.l 0 , 0 , 0 , 0 , 0 , 0 , 0 ,#blk,#wht,#wht,#blk, 0
Data.l 0 , 0 , 0 , 0 , 0 , 0 , 0 ,#blk,#wht,#wht,#blk, 0
Data.l 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 ,#blk,#blk, 0 , 0
EndDataSection