Uploaded by Sapphie 
1280x960 01:58.59 WEBM 24.77 MB 87 Views
Interested in advertising on Ponybooru? Click here for information!
Ponybooru ain't free mate - help support us financially!
ETH: 0xC41132ad4627FBfBd0d1712A27B268a06278eE50 | BTC: bc1qeyw3e72pcylque89r2940hhfzrz339kxuvruun
Description
Image imported from derpibooru
Original Description:
Messing around with Blitz BASIC. Wrote a simple program that plays the Contra theme using a square waveform looped, delayed and pitched.
Here’s the source code in case anyone is interested:
–
Original Description:
Messing around with Blitz BASIC. Wrote a simple program that plays the Contra theme using a square waveform looped, delayed and pitched.
Here’s the source code in case anyone is interested:
–
Global pontraPic ;The background image Graphics 640, 480, 32, 2 SetBuffer BackBuffer() pontraPic = LoadImage(“assets\pontra.bmp”) ;Load picture Global sqrWave = LoadSound(“assets\pulse13.wav”) ;Load square waveform ; The notes to be played Global note1 = 6637 Global note2 = 9945 Global note3 = 9386 Global note4 = 7450 Global note5 = 8362 Global note6 = 11162 Global note7 = 12529 ; Gfx stuff Cls DrawImage pontraPic, 84, 24 ; Play the Contra theme = LoopSound sqrWave ; Note 1 chnSqrWave = PlaySound(sqrWave) ChannelPitch chnSqrWave, note1 Delay 360 PauseChannel chnSqrWave Delay 360 ; Note 2 ChannelPitch chnSqrWave, note2 ResumeChannel chnSqrWave Delay 360 PauseChannel chnSqrWave Delay 360 ; Note 3 ChannelPitch chnSqrWave, note3 ResumeChannel chnSqrWave Delay 360 PauseChannel chnSqrWave Delay 360 ; Note 4 ChannelPitch chnSqrWave, note4 ResumeChannel chnSqrWave Delay 360 PauseChannel chnSqrWave Delay 360 ; Note 5 ChannelPitch chnSqrWave, note5 ResumeChannel chnSqrWave Delay 720 PauseChannel chnSqrWave Delay 360 ; Note 6 and 7 ChannelPitch chnSqrWave, note6 ResumeChannel chnSqrWave Delay 360 ChannelPitch chnSqrWave, note7 ResumeChannel chnSqrWave Delay 1250 ; End theme StopChannel chnSqrWave Delay 360 Flip EndComments
0 comments posted