Resources

Light Harp info:

This is the schematic for the simplifyed circuit which will be used in the workshop in Madrid. The optocoupler is not a part of the harp, but an option if you want to trig external devices, like the keys of a toy synth, or to pull a relay that turns on and off a blender, or …

Delphi Source Code and Executable (windows) for The Light Harp Lite (the version used in the workshop.

The MAX/MSP patch used to make the theremine effect in the workshop. You will need to go to file/midi setup and give MidiYoke 1 the abrevation “a”. Also you need to go to the midi tab in the Light Harp Lite program and check the MidiYoke1 as an output.

To play the patch you need MAX/MSP-runtime.

Also, you will need a virtual midi port installed to connect the light harp program to simpleSound (or any other software synth you would like to use). We reccomend MidiYoke.

Delphi Source Code and Executable for the full scale Radio Light Harp shown in the vidoes. Warning! This code is not really intended for anyone else then me. Not even the future me. All comments are in norwegian and the code is a mess. Enjoy!

Schematics for the full scale Radio Light Harp (pdf). Please note that this is a prototype and that I would make some changes if I buildt it again. Especially the de LED current control needs some op-amps.

Datasheet for the MPC3208, 8-channel 12-bit AD converter.

 

General LPT1 info:

 

Pinout LPT1

 

We love the LPT1, dont we! So easy to program and so easy to connect to. I predict that within a 10 years (or less) the LPT1 will not be there anymore, so let’s use it while it is still there PS! The base adress abow is usually $378.

In the days of Win95, Win98 or Dos you could read and write directly to the ports with the OUT and IN assembly comands. However, in XP (I do not know the world of Mac and Linux) the system will not let you do that. It is for your own protection, you know. Instead we communicates with the ports through a DLL file called inpout32.dll. Put the dll in the same directory as your delphi project and insert the following in the code under USES:

  Function Out32(wAddr:word;bOut:byte):byte; stdcall; external ‘inpout32.dll’;

  Function Inp32(wAddr:word):byte; stdcall; external ‘inpout32.dll’;

    Function Out32(wAddr:word;bOut:byte):byte; stdcall; external ‘inpout32.dll’;
    Function Inp32(wAddr:word):byte; stdcall; external ‘inpout32.dll’;

Then you have two new functions to let you pass the XP-police. A program example:

    Out32($378,1); // set bit 0 (pin 2) on the LPT1 dataport high.     

    a:=Inp32($379);// read the LPT1 status port.
    if (a and 64>0) then form1.caption = ‘Obama is a muslim”; 
        //puts a lie in your forms caption bit 6 (pin 10) on the LPT1 staus port is high.