Skip to content

Instantly share code, notes, and snippets.

View GRGSIBERIA's full-sized avatar

Eiichi Takebuchi GRGSIBERIA

38 followers · 8 following
View GitHub Profile
@GRGSIBERIA
GRGSIBERIA / test.cpp
Created August 11, 2015 10:27
サウンドライブラリの中身
#include <time.h>
#include "sound_source.h"
void KeyonNote(Sound *sounds, Note* note)
{
Sound *sound = &sounds[note->sound_index];
UINT8 *freq_ptr = &sound->frequency;
if (sound->sweep != 0)
(*(__REG)(sound->rel_ptr + REL_SOUND_SWEEP)) = sound->sweep;
@GRGSIBERIA
GRGSIBERIA / file0.txt
Last active August 29, 2015 14:26
Visual Studio 2015でゲームボーイ開発をやってみる ref: http://qiita.com/GRGSIBERIA/items/d510041300d136cf4491
LCC = lcc -Wa-l -Wl-m -Wl-j -DUSE_SFR_FOR_REG
# 変更すると面倒くさいので変更しないで！
TARGET = output.gb
# コンパイルしたいCファイルを全て書く
SOURCES = main.c test.c
OBJECTS = $(SOURCES:.c=.o)
source_to_objs:
@GRGSIBERIA
GRGSIBERIA / a.cpp
Created August 5, 2015 07:52
Siv3D + cuFFTで音の解析をする
#include <Siv3D.hpp>
#include <cuda_runtime.h>
#include <cufft.h>
const int N = 16384 * 2;
const int BATCH = 10;
bool SetWave(cufftComplex *data, const Wave& wave, const int index, const int lengthSample)
{
if (index + N > lengthSample)
@GRGSIBERIA
GRGSIBERIA / mpm.hpp
Last active February 22, 2021 01:55
MPMアルゴリズムの実装です．自己相関関数の周期をささっと求めるためのアルゴリズムです．以下のURLを参考にC++で実装してみました．
/*
GNU GENERAL PUBLIC LICENSE
Version 3, 29 June 2007
Copyright (C) 2007 Free Software Foundation, Inc. <http://fsf.org/>
Everyone is permitted to copy and distribute verbatim copies
of this license document, but changing it is not allowed.
Preamble
@GRGSIBERIA
GRGSIBERIA / gist:ebdd8912e75ed6889529
Created February 26, 2015 10:06
1曲のJSONデータ，scoresに複数の楽譜情報を詰め込める．
{
"music_info": {
"categories": [
"hoge",
"yamada",
"puyo"
],
"group_name": "group_name",
"music_name": "music_name"
},
@GRGSIBERIA
GRGSIBERIA / file0.cpp
Last active August 29, 2015 14:15
Siv3Dで透過PNGテクスチャの上端に線が入る ref: http://qiita.com/GRGSIBERIA/items/f049e2d4b7aff9bcf849
# include <Siv3D.hpp>
void Main()
{
Graphics2D::SetSamplerState(
SamplerState(TextureAddressMode::Clamp, TextureFilter::MinMagMipLinear));
while (System::Update())
{
// hogehoge
@GRGSIBERIA
GRGSIBERIA / gist:c744a76f1f115bc76f24
Created January 23, 2015 07:09
++[->+++++[->+++++++++++++<]<]>>>++[->+++++<]>>+++[->+++++++++++++++++++++++++++++++++++++++++++++++++++++<]>>++[->+++++++++++++++++++++++++++++++++++++++++++++++<]>>+++[->+++++++<]>>++[->+++<]>>++[->+++[->+++++++<]<]->>>++[->+++++[->+++++++++++++++++<]<]>>>++[->+++[->+++++[->+++++++<]<]<]>>>>++[->+++++[->+++++++++++++++++++++++<]<]->>>++[->+++++++++++<]->>+++[->+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++<]>>++[->+++[->+++++++++++++<]<]->>>++[->+++++++[->+++++++++++++<]<]>>>+++[->+++++<]>>++[->+++++[->+++++++++++++<]<]>>>++[->+++++<]>>+++[->+++++++++++++++++++++++++++++++++++++++++++++++++++++<]>>++[->+++++++++++++++++++++++++++++++++++++++++++++++<]>>+++[->+++++++<]>>++[->+++<]>>++[->+++[->+++++++<]<]->>>++[->+++++[->+++++++++++++++++<]<]>>>++[->+++[->+++++[->+++++++<]<]<]>>>>++[->+++++[->+++++++++++++++++++++++<]<]->>>++[->+++++++++++<]->>+++[->+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++<]>>++[->+++[->+++++++++++++<]<]->>>++[->+++++++[->+++++++++++++<]<]>>>+++[->+++++<]>>
@GRGSIBERIA
GRGSIBERIA / file4.pl
Last active August 29, 2015 14:13
Prologサーバで事実を動的に追加・削除する ref: http://qiita.com/GRGSIBERIA/items/a6a552a9f16aea27d679
add(oppai, yamada).
add(buikini, yamada).
tag(X, Y).
@GRGSIBERIA
GRGSIBERIA / file2.hs
Last active August 29, 2015 14:13
EgisonでPrologっぽいことをやってみる ref: http://qiita.com/GRGSIBERIA/items/727d88541b44696ecf8b
;;; https://gist.github.com/GRGSIBERIA/0b54694966aa4a104688
(define $warriors
{["nagisa_misumi" "futari_ha" "black"]
["honoka_yukishiro" "futari_ha" "white"]
["hikari_kujo" "max_heart" "luminus"]
["saki_hyuga" "splash_star" "bloom"]
["mai_misho" "splash_star" "eaglette"]
["nozomi_yumehara" "yes" "dream"]
["rin_natsuki" "yes" "rouge"]
["urara_kasugano" "yes" "lemonade"]
@GRGSIBERIA
GRGSIBERIA / fun.egi
Last active August 29, 2015 14:13 — forked from egisatoshi/fun.egi
EgisonでPrologで言うところの連言を扱ってみる
(define $warriors
{["nagisa_misumi" "futari_ha" "black"]
["honoka_yukishiro" "futari_ha" "white"]
["hikari_kujo" "max_heart" "luminus"]
["saki_hyuga" "splash_star" "bloom"]
["mai_misho" "splash_star" "eaglette"]
["nozomi_yumehara" "yes" "dream"]
["rin_natsuki" "yes" "rouge"]
["urara_kasugano" "yes" "lemonade"]
["komachi_akimoto" "yes" "mint"]