danny-girl IN THE RING OF FIRE
livin all of life
info:
The Fire Jets
The fire jets are s series of 4 propane-powered jets that eject a fireball horizontally in front of, behind, and to the left and right of the participant. The valves for these gas jets a triggered by a laptop computer via an 8 relay controller which is connected the RS-232 port (see www.controlanything.com).
Commands are sent to the port using Qbasic:
Open "COM1:19200,N,8,1,CD0,CS0,DS0,OP0" For Random As #1
Print #1, Chr$(76);
The value sent to the port determines which device is activated/deactivated.
Sequences are pre-programmed and are designed to be rhythmic. The speed of the rhythm is selected to affect, if not control, the audience’s and the participant’s heart rate. Slow at first, faster throughout the performance.
Safeguards are built into the program.
Each time a jet is fired the subroutine checks to see if there is a request to NOT fire the jet (ie., by striking any key on the keyboard during a sequence). If not then the instruction to fire is immediately followed by the instruction to deactivate the jet:
Sub PULSE(Device!, Relay!, Time!)
SHARED PulseLen, KillSwitch
If KillSwitch = 0 Then GoTo skipPULSE
Print #1, Chr$((Device * 16) + (Relay + 7));
For td = 0 To PulseLen
Next td
skipPULSE:
Print #1, Chr$((Device * 16) + (Relay - 1));
End Sub
info:
The Fire Jets
The fire jets are s series of 4 propane-powered jets that eject a fireball horizontally in front of, behind, and to the left and right of the participant. The valves for these gas jets a triggered by a laptop computer via an 8 relay controller which is connected the RS-232 port (see www.controlanything.com).
Commands are sent to the port using Qbasic:
Open "COM1:19200,N,8,1,CD0,CS0,DS0,OP0" For Random As #1
Print #1, Chr$(76);
The value sent to the port determines which device is activated/deactivated.
Sequences are pre-programmed and are designed to be rhythmic. The speed of the rhythm is selected to affect, if not control, the audience’s and the participant’s heart rate. Slow at first, faster throughout the performance.
Safeguards are built into the program.
Each time a jet is fired the subroutine checks to see if there is a request to NOT fire the jet (ie., by striking any key on the keyboard during a sequence). If not then the instruction to fire is immediately followed by the instruction to deactivate the jet:
Sub PULSE(Device!, Relay!, Time!)
SHARED PulseLen, KillSwitch
If KillSwitch = 0 Then GoTo skipPULSE
Print #1, Chr$((Device * 16) + (Relay + 7));
For td = 0 To PulseLen
Next td
skipPULSE:
Print #1, Chr$((Device * 16) + (Relay - 1));
End Sub