OpenEuphoria: Forum: Exotica

1. Exotica

Posted by Chris Burch <chrisburch at uku.co.uk> Jul 18, 2003
451 views

Hi

Have I missed something, but the links to Chris Benslers and Todd 
Riggins Exotica sites seem to be either down or have no mention of 
Exotica.

Has it been 'taken off the market'?

Chris

new topic » topic index » view message » categorize

2. Exotica

Posted by mwfch at MWEB.CO.ZA Jul 06, 2001
413 views

This is a multi-part message in MIME format.

------=_NextPart_000_0007_01BFD47F.A0F1CEC0
	charset="iso-8859-1"

Hi .
What is wrong with my Exotica program :

--BEGIN CODE

include emain.ew

object funcval
funcval=3Dc_func(EXOTICA_INIT,{hwnd,hInst}) =20
end if

object val
val =3D c_func(DMUSIC_INIT,{NULL})

object val2
val2 =3D c_func(DMUSIC_REVERB_AVAIL,{NULL})=20
return val2

if val2 =3D 0 then
  object val3,C_INT
  C_INT =3D 0
  val3 =3D c_proc(DMUSIC_TOGGLE_REVERB,{C_INT})=20
elsif val2 =3D 1 then
  object val4,C_INT
  C_INT =3D 1
  val4 =3D c_proc(DMUSIC_TOGGLE_REVERB,{C_INT})
end if

object mid_file,Filename
Filename =3D boss.mid=20
mid_file =3D c_proc(MIDI_OPEN,{Filename})=20

object play
play =3D c_proc(MIDI_PLAY,{NULL})

--END CODE

Thanx

Ferdinand

------=_NextPart_000_0007_01BFD47F.A0F1CEC0
Content-Type: text/html;
	charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META content=3D"text/html; charset=3Diso-8859-1" =
http-equiv=3DContent-Type>
<META content=3D"MSHTML 5.00.2614.3500" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#ffffff>
<DIV>Hi .</DIV>
<DIV>What is wrong with my Exotica program :</DIV>
<DIV>&nbsp;</DIV>
<DIV>--BEGIN CODE</DIV>
<DIV>&nbsp;</DIV>
<DIV>include emain.ew</DIV>
<DIV>&nbsp;</DIV>
<DIV>object funcval<BR>funcval=3Dc_func(EXOTICA_INIT,{hwnd,hInst})&nbsp; =
<BR>end=20
if</DIV>
<DIV>&nbsp;</DIV>
<DIV>object val<BR>val =3D c_func(DMUSIC_INIT,{NULL})</DIV>
<DIV>&nbsp;</DIV>
<DIV>object val2<BR>val2 =3D c_func(DMUSIC_REVERB_AVAIL,{NULL}) =
<BR>return=20
val2</DIV>
<DIV>&nbsp;</DIV>
<DIV>if val2 =3D 0 then<BR>&nbsp; object val3,C_INT<BR>&nbsp; C_INT =3D =
0<BR>&nbsp;=20
val3 =3D c_proc(DMUSIC_TOGGLE_REVERB,{C_INT}) <BR>elsif val2 =3D 1 =
then<BR>&nbsp;=20
object val4,C_INT<BR>&nbsp; C_INT =3D 1<BR>&nbsp; val4 =3D=20
c_proc(DMUSIC_TOGGLE_REVERB,{C_INT})<BR>end if</DIV>
<DIV>&nbsp;</DIV>
<DIV>object mid_file,Filename<BR>Filename =3D boss.mid <BR>mid_file =3D=20
c_proc(MIDI_OPEN,{Filename}) </DIV>
<DIV>&nbsp;</DIV>
<DIV>object play<BR>play =3D c_proc(MIDI_PLAY,{NULL})</DIV>
<DIV>&nbsp;</DIV>
<DIV>--END CODE</DIV>
<DIV>&nbsp;</DIV>
<DIV>Thanx</DIV>
<DIV>&nbsp;</DIV>

------=_NextPart_000_0007_01BFD47F.A0F1CEC0--

new topic » goto parent » topic index » view message » categorize

3. Re: Exotica

Posted by martin.stachon at worldonline.cz Jul 07, 2001
433 views

This is a multi-part message in MIME format.

------=_NextPart_000_005C_01C10662.4742B400
	charset="iso-8859-1"

  ----- Original Message -----=20
  From: mwfch at MWEB.CO.ZA=20
  To: EUforum=20
  Sent: Tuesday, June 13, 2000 12:05 AM
  Subject: Exotica

  Hi .
  What is wrong with my Exotica program :
Lots of things 

  --BEGIN CODE

  include emain.ew

  object funcval
  funcval=3Dc_func(EXOTICA_INIT,{hwnd,hInst}) =20
  end if

Why "end if" when there is no "if" statement ?

  object val
  val =3D c_func(DMUSIC_INIT,{NULL})

  object val2
  val2 =3D c_func(DMUSIC_REVERB_AVAIL,{NULL})=20
  return val2

You cannot return a variable if you aren't inside a function.

  if val2 =3D 0 then
    object val3,C_INT

You cannot declare a variable at this point.
btw you can use ONE variable for all of this.
(funcval). There is no need to have val2,val3,...
because the functions just returns succes/failure
info which is then not needed.

    C_INT =3D 0
    val3 =3D c_proc(DMUSIC_TOGGLE_REVERB,{C_INT})=20
  elsif val2 =3D 1 then
    object val4,C_INT
    C_INT =3D 1
    val4 =3D c_proc(DMUSIC_TOGGLE_REVERB,{C_INT})
  end if

  object mid_file,Filename
  Filename =3D boss.mid=20

must be Filename =3D "boss.mid"

  mid_file =3D c_proc(MIDI_OPEN,{Filename})=20

  object play
  play =3D c_proc(MIDI_PLAY,{NULL})

  --END CODE

  Thanx

  Ferdinand

I would suggest you first start writing simple Euphoria programs
which do not use Exotica because with DirectX initialized it is
difficult to trace and see intrepreter messages.

------=_NextPart_000_005C_01C10662.4742B400
Content-Type: text/html;
	charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META content=3D"text/html; charset=3Diso-8859-1" =
http-equiv=3DContent-Type>
<META content=3D"MSHTML 5.00.2614.3500" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#ffffff>
<DIV>&nbsp;</DIV>
<BLOCKQUOTE=20
style=3D"BORDER-LEFT: #000000 2px solid; MARGIN-LEFT: 5px; MARGIN-RIGHT: =
0px; PADDING-LEFT: 5px; PADDING-RIGHT: 0px">
  <DIV style=3D"FONT: 10pt arial CE">----- Original Message ----- </DIV>
  <DIV=20
  style=3D"BACKGROUND: #e4e4e4; FONT: 10pt arial CE; font-color: =
black"><B>From:</B>=20
  <A href=3D"mailto:mwfch at MWEB.CO.ZA" =
title=3Dmwfch at MWEB.CO.ZA>mwfch at MWEB.CO.ZA</A>=20
  </DIV>
  <DIV style=3D"FONT: 10pt arial CE"><B>To:</B> <A=20
  href=3D"mailto:EUforum at topica.com" =
title=3DEUforum at topica.com>EUforum</A> </DIV>
  <DIV style=3D"FONT: 10pt arial CE"><B>Sent:</B> Tuesday, June 13, 2000 =
12:05=20
  AM</DIV>
  <DIV style=3D"FONT: 10pt arial CE"><B>Subject:</B> Exotica</DIV>
  <DIV style=3D"FONT: 10pt arial CE">&nbsp;</DIV>
  <DIV>Hi .</DIV>
  <DIV>What is wrong with my Exotica program :</DIV></BLOCKQUOTE>
<DIV><FONT face=3D"Arial CE" size=3D2>Lots of things </FONT></DIV>
<BLOCKQUOTE=20
style=3D"BORDER-LEFT: #000000 2px solid; MARGIN-LEFT: 5px; MARGIN-RIGHT: =
0px; PADDING-LEFT: 5px; PADDING-RIGHT: 0px">
  <DIV>&nbsp;</DIV>
  <DIV>--BEGIN CODE</DIV>
  <DIV>&nbsp;</DIV>
  <DIV>include emain.ew</DIV>
  <DIV>&nbsp;</DIV>
  <DIV>object =
funcval<BR>funcval=3Dc_func(EXOTICA_INIT,{hwnd,hInst})&nbsp; <BR>end=20
  if</DIV>
  <DIV>&nbsp;</DIV></BLOCKQUOTE>
<DIV><FONT face=3D"Arial CE" size=3D2>Why "end if" when there is no "if" =
statement=20
?</FONT></DIV>
<BLOCKQUOTE=20
style=3D"BORDER-LEFT: #000000 2px solid; MARGIN-LEFT: 5px; MARGIN-RIGHT: =
0px; PADDING-LEFT: 5px; PADDING-RIGHT: 0px">
  <DIV>&nbsp;</DIV>
  <DIV>object val<BR>val =3D c_func(DMUSIC_INIT,{NULL})</DIV>
  <DIV>&nbsp;</DIV>
  <DIV>object val2<BR>val2 =3D c_func(DMUSIC_REVERB_AVAIL,{NULL}) =
<BR>return=20
  val2</DIV>
  <DIV>&nbsp;</DIV></BLOCKQUOTE>
<DIV><FONT face=3D"Arial CE" size=3D2>You cannot return a variable if =
you aren't=20
inside a function.</FONT></DIV>
<BLOCKQUOTE=20
style=3D"BORDER-LEFT: #000000 2px solid; MARGIN-LEFT: 5px; MARGIN-RIGHT: =
0px; PADDING-LEFT: 5px; PADDING-RIGHT: 0px">
  <DIV>&nbsp;</DIV>
  <DIV>if val2 =3D 0 then<BR>&nbsp; object val3,C_INT</DIV>
  <DIV>&nbsp;</DIV></BLOCKQUOTE>
<DIV><FONT face=3D"Arial CE" size=3D2>You cannot declare a variable at =
this=20
point.</FONT></DIV>
<DIV><FONT face=3D"Arial CE" size=3D2>btw you can use ONE variable for =
all of=20
this.</FONT></DIV>
<DIV><FONT face=3D"Arial CE" size=3D2>(funcval). There is no need to =
have=20
val2,val3,...</FONT></DIV>
<DIV><FONT face=3D"Arial CE" size=3D2>because the functions just returns =

succes/failure</FONT></DIV>
<DIV><FONT face=3D"Arial CE" size=3D2>info which is then not =
needed.</FONT></DIV>
<BLOCKQUOTE=20
style=3D"BORDER-LEFT: #000000 2px solid; MARGIN-LEFT: 5px; MARGIN-RIGHT: =
0px; PADDING-LEFT: 5px; PADDING-RIGHT: 0px">
  <DIV><BR>&nbsp; C_INT =3D 0<BR>&nbsp; val3 =3D=20
  c_proc(DMUSIC_TOGGLE_REVERB,{C_INT}) <BR>elsif val2 =3D 1 =
then<BR>&nbsp; object=20
  val4,C_INT<BR>&nbsp; C_INT =3D 1<BR>&nbsp; val4 =3D=20
  c_proc(DMUSIC_TOGGLE_REVERB,{C_INT})<BR>end if</DIV>
  <DIV>&nbsp;</DIV>
  <DIV>object mid_file,Filename<BR>Filename =3D boss.mid </DIV>
  <DIV>&nbsp;</DIV></BLOCKQUOTE>
<DIV><FONT face=3D"Arial CE" size=3D2>must be Filename =3D =
"boss.mid"</FONT></DIV>
<BLOCKQUOTE=20
style=3D"BORDER-LEFT: #000000 2px solid; MARGIN-LEFT: 5px; MARGIN-RIGHT: =
0px; PADDING-LEFT: 5px; PADDING-RIGHT: 0px">
  <DIV><BR>mid_file =3D c_proc(MIDI_OPEN,{Filename}) </DIV>
  <DIV>&nbsp;</DIV>
  <DIV>object play<BR>play =3D c_proc(MIDI_PLAY,{NULL})</DIV>
  <DIV>&nbsp;</DIV>
  <DIV>--END CODE</DIV>
  <DIV>&nbsp;</DIV>
  <DIV>Thanx</DIV>
  <DIV>&nbsp;</DIV>
  <DIV>Ferdinand</DIV></BLOCKQUOTE>
<DIV>&nbsp;</DIV>
<DIV><FONT face=3DArial size=3D2>I would suggest you first start writing =
simple=20
Euphoria programs</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>which do not use Exotica because with =
DirectX=20
initialized it is</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>difficult to trace and see intrepreter=20
messages.</FONT></DIV>
<DIV>&nbsp;</DIV>
<DIV><FONT face=3DArial><FONT=20

------=_NextPart_000_005C_01C10662.4742B400--

new topic » goto parent » topic index » view message » categorize

4. Exotica

Posted by Chris Bensler <bensler at mailops.com> Mar 06, 2001
423 views

In case anyone is interested in Dowloading Exotica.. It was mentioned
before, but Rob didn't correct it on the RDS site. The latest release of
Exotica requires DX8.0 not 7.0

Chris

OpenEuphoria

1. Exotica

2. Exotica

3. Re: Exotica

4. Exotica

Search

Include:

Quick Links

User menu

Misc Menu