vcm/ConstructorCodeForLateBindingfft.cpp at master · Vapoursynth-Plugins-Gitify/vcm · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67

// late binding

bool ok = true;
HINSTANCE hinstLib = LoadLibrary(TEXT("libfftw3f-3.dll"));

if (hinstLib == NULL)
hinstLib = LoadLibrary(TEXT("fftw3.dll"));

if (hinstLib == NULL)
hinstLib = LoadLibrary(TEXT("fftw.dll"));

if (hinstLib != NULL)
{
	d->hinstLib = hinstLib;
	d->fftwf_free = (fftwf_free_proc)GetProcAddress(d->hinstLib, "fftwf_free");
	d->fftwf_malloc = (fftwf_malloc_proc)GetProcAddress(d->hinstLib, "fftwf_malloc");
	// for 1 d fft
	d->fftwf_plan_dft_r2c_1d = (fftwf_plan_dft_r2c_1d_proc)GetProcAddress(d->hinstLib, "fftwf_plan_dft_r2c_1d");
	d->fftwf_plan_dft_c2r_1d = (fftwf_plan_dft_c2r_1d_proc)GetProcAddress(d->hinstLib, "fftwf_plan_dft_c2r_1d");
	// for 2d fft
	d->fftwf_plan_dft_r2c_2d = (fftwf_plan_dft_r2c_2d_proc)GetProcAddress(d->hinstLib, "fftwf_plan_dft_r2c_2d");
	d->fftwf_plan_dft_c2r_2d = (fftwf_plan_dft_c2r_2d_proc)GetProcAddress(d->hinstLib, "fftwf_plan_dft_c2r_2d");


	d->fftwf_destroy_plan = (fftwf_destroy_plan_proc)GetProcAddress(d->hinstLib, "fftwf_destroy_plan");
	d->fftwf_execute = (fftwf_execute_proc)GetProcAddress(d->hinstLib, "fftwf_execute");

	d->fftwf_execute_dft_r2c = (fftwf_execute_dft_r2c_proc)GetProcAddress(d->hinstLib, "fftwf_execute_dft_r2c");
	d->fftwf_execute_dft_c2r = (fftwf_execute_dft_c2r_proc)GetProcAddress(d->hinstLib, "fftwf_execute_dft_c2r");
	// required for internal threading
//	fftwf_init_threads = (fftwf_init_threads_proc)GetProcAddress(hinstLib, "fftwf_init_threads");
//	fftwf_plan_with_nthreads = (fftwf_plan_with_nthreads_proc)GetProcAddress(hinstLib, "fftwf_plan_with_nthreads");
//	fftwf_cleanup_threads = (fftwf_cleanup_threads_proc)GetProcAddress(hinstLib, "fftwf_cleanup_threads");
//	fftwf_cleanup = (fftwf_cleanup_proc)GetProcAddress(hinstLib, "fftwf_cleanup");

}
if (d->hinstLib == NULL || d->fftwf_free == NULL || d->fftwf_malloc == NULL
	|| d->fftwf_plan_dft_r2c_1d == NULL || d->fftwf_plan_dft_c2r_1d == NULL
	|| d->fftwf_plan_dft_r2c_2d == NULL || d->fftwf_plan_dft_c2r_2d == NULL
	|| d->fftwf_destroy_plan == NULL || d->fftwf_execute == NULL
	|| d->fftwf_execute_dft_r2c == NULL || d->fftwf_execute_dft_c2r == NULL
	// required for internal threading
//	|| d->fftwf_init_threads == NULL || d->fftwf_plan_with_nthreads == NULL
//	|| d->fftwf_cleanup_threads == NULL || d->fftwf_cleanup == NULL


)
ok = false;

//
/*
code for fft dll internal threading
numCPU = 1;
int nThreadMult = 1;	// one thread per cpu

SYSTEM_INFO sysinfo;
GetSystemInfo(&sysinfo);

numCPU = sysinfo.dwNumberOfProcessors;
// check number of processors

d->fftwf_init_threads();

d->fftwf_plan_with_nthreads(nThreadMult * numCPU);
*/