'$INCLUDE: "SDL\SDL.bi"For FMOD, it's
'$Include: 'fmod.bi'and for tinyPTC, you'll want
'$INCLUDE: 'tinyptc.bi''2. Initilizing the library, loading a file'
CONST SCR_WIDTH = 640 CONST SCR_HEIGHT = 480 DIM MenuScreen AS SDL_Surface ptr 'our bitmap DIM Shared video AS SDL_Surface ptr 'our screen surface SDL_Init ( SDL_INIT_VIDEO ) video = SDL_SetVideoMode( SCR_WIDTH, SCR_HEIGHT, 32, 0 ) 'sets the video mode for 640x480x32 MenuScreen = SDL_LoadBMP("bitmap.bmp")To initilize FMOD and load a sound into memory, you must:
DIM sound AS INTEGER 'it's just a handle, so it's an int! IF FSOUND_GetVersion <= FMOD_VERSION THEN ErrorQuit "FMOD version " + STR$(FMOD_VERSION) + " or greater required" End If If FSOUND_Init(44100, 32, 0) = FALSE Then ErrorQuit "Can't initialize FMOD" End If sound = FSOUND_Sample_Load(FSOUND_FREE,"sound.wav", FSOUND_HW3D, 0, 0)Finally, there's no data formats to load with tinyPTC because it's so simple, but you initilize it by going:
const SCR_WIDTH = 320 const SCR_HEIGHT = 200 const SCR_SIZE = SCR_WIDTH*SCR_HEIGHT if( ptc_open( "tinyPTC test", SCR_WIDTH, SCR_HEIGHT ) = 0 ) then end -1 end ifBlitting, Playing, or Plotting
SUB BlitImage(x as integer,y as integer,image as sdl_surface ptr, dest as sdl_surface ptr) DIM Rectangle as SDL_Rect DIM Rectangle2 as SDL_Rect Rectangle.X = 0 Rectangle.Y = 0 rectangle.w = image->w rectangle.h = image->h Rectangle2.x = x Rectangle2.y = y SDL_BlitSurface image, @rectangle, dest, @rectangle2 END SUB
FUNCTION fModPlayWave( samp1 as integer ) AS INTEGER 'where samp1 is the number returned by FSOUND_SampleLoad DIM position(0 to 2)' as FSound_Vector DIM vel(0 to 2)' FSound_Vector fModPlayWave = FSOUND_PlaySoundEx(FSOUND_FREE, samp1, NULL, TRUE) END FUNCTIONAnd TinyPTC, which is again, not a high level library like the other two, can plot pixels using the following code:
SUB putd(BYREF buffer(), BYVAL x AS INTEGER, BYVAL y AS INTEGER, BYVAL colr as INTEGER) buffer((y * SCR_WIDTH) + x) = colr ptc_update @buffer(0) 'This is a pageFlip END SUB
SDL: SDL_Quit ()
fmod: FSOUND_Close ()
tinyPTC: PTC_Close ()That's all there is to quitting!
Вещество и поле не есть что-то отдельное от эфира, также как и человеческое тело не есть что-то отдельное от атомов и молекул его составляющих. Оно и есть эти атомы и молекулы, собранные в определенном порядке. Также и вещество не есть что-то отдельное от элементарных частиц, а оно состоит из них как базовой материи. Также и элементарные частицы состоят из частиц эфира как базовой материи нижнего уровня. Таким образом, всё, что есть во вселенной - это есть эфир. Эфира 100%. Из него состоят элементарные частицы, а из них всё остальное. Подробнее читайте в FAQ по эфирной физике.