OpenEuphoria

1. The Euphoria Sub Commander project

• Posted by ChrisBurch3 <crylex at g??il.com> Nov 12, 2007
• 685 views

Al Getz wrote:
> 
> ChrisBurch3 wrote:
> > 
> > Hi
> > 
> > Euphoria should be able to handle this quite nicely. Checking on the net,
> > they
> > are fairly
> > minimal block graphics, with character displays, and the concept is a fairly
> > simple large repetitive loop with strategic elements within that (balancing
> > resources damage etc). You should be able to produce either a fairly
> > accurate
> > reproduction, or enhance it with photos of ships and explosions seen through
> > the periscope.
> > 
> > euallegro, and eusdl, would be able to handle these quite nicely.
> > 
> > Tell you what Don, if your up for it, you create the graphics (some ships, a
> > series of explosion graphics,
> > and the large lettering / numbers - this will determine the overall look), 
> > I'll source some sub sounds (pings, explosions, white noise), 
> > and we'll put some code together.
> > 
> > Al, interested?
> > 
> > Chris
> 
> Hi Chris,
> 
> It does sound interesting.  Way back i used to have the 'plastic'
> version.  It was fairly large.
> Who's going to start the code?
> What library would you want to use, if any?
> 
> Al
> 
> E boa sorte com sua programacao Euphoria!
> 
> 
> My bumper sticker: "I brake for LED's"
> 

Hi

I propose using the euallegro graphics library - its simple and agile enough
for this project.

I've already sourced the sounds, and have an outline of structure in my head.

I'll outline the code. Hopefully will be able to modularise it so that separate
authors can work on their modules.

Hopefully this is a simple enough collabarative project that won't
become bogged in bureaucratic shennanigans.

I need a free repository, where I can upload and download code mods and media,
that other members can also do the same - any suggestions - SourceForge is
way too top heavy. I had thought about using esnips, but its terms of use is for
single use only. 

Chris

3. Re: The Euphoria Sub Commander project

• Posted by CChris <christian.cuvier at a?ri?ulture.gouv.fr> Nov 13, 2007
• 588 views

ChrisBurch2 wrote:
> 
> CChris wrote:
> > 
> > 
> > I remember there is a polyglot package in the archive by I. Kachan, which is
> > about a submarine cockpit and control. You may take useful hints from there.
> > I'd bet IK knows his business pretty well.
> > 
> > CChris
> 
> Hi
> 
> I almost got quite excited then - correct me if I'm wrong, but I thought it
> was
> about dos code page fonts, and it mentions that the package is free as in air
> around a submarine. Yup, just searched through it, no other mention of
> submarine
> cockpits.
> 
> Thanks for looking though Chris
> 
> Chris

lol
I can't access the user contrib page right now. But I do remember Igor had
contributed something about submarines, and cited it as an example of big
projects that could be developed in Eu as it was.

On Aug 27, 2002 (message #21 looking for "submarine"), Igor wrote:

One of my programs in EU was a historical model of 
one old ship's control panel - about 400 buttons on 
4 screens, 35000 EU operators, developed in EU 2.1 PD 
with 300 statements limitation on run time diagnostics.
After translation to C with E2C translator, that proggy 
had 2.5M C source code in 50 files. I am not owner of 
that code now, but you can see some chunks in the 
polyglot package.

Perhaps can you get your hands on this?

CChris

5. Re: The Euphoria Sub Commander project

• Posted by don cole <doncole at pacbe?l.n?t> Nov 13, 2007
• 595 views
• Last edited Nov 14, 2007

<snip>



   Sorry about the snipping or lack there of.
I got the sonar screen done now I have to do the beam and scan.
I'll read Chris's posts in detail later.

 Don Cole

7. Re: The Euphoria Sub Commander project

• Posted by ChrisBurch3 <crylex at gm?il.co?> Nov 13, 2007
• 611 views
• Last edited Nov 14, 2007

Hi

Uploading first stage code - a splash screen, and some initialisation.

Note, you need euallegro 0.3 (Ray Smith)

Chris

9. Re: The Euphoria Sub Commander project

• Posted by Robert Craig <rds at Rapid?u?horia.com> Nov 15, 2007
• 576 views

ChrisBurch2 wrote:
> So, Rob, could you please remove the project from the recent user
> contributions

Done.
  
> I apologise for any inconvenience this may have caused. 

No problem.

> I shall draw the
> splash screen myself, avoiding looking at any images of any submarines, and
> shall endeavour to seek approval before posting any copyrighted images.
> 
> I would also request that anybody who has downloaded the file re format their
> hard drives immediately, and send a letter of grovelling apology to
> Edward Monroe-Jones.
> 
> If any one thinks they see a note of slight bitterness, they are absolutely
> right, while I fully support the right of anyone to protect their work, I 
> believe this attitude was high handed and aggressive, and not using the 
> graphic will now not lead anyone who use the program to the site, whereas I
> was more than willing to not make any money from it, and give full
> accreditation
> to the author and the site.
> 
> But that's just my opinion.

A lot of people think their biggest threat is
that someone might copy their work, and make money from it. 
In reality, a much bigger threat is that the world 
will simply ignore them.

Regards,
   Rob Craig
   Rapid Deployment Software
   http://www.RapidEuphoria.com

11. Re: The Euphoria Sub Commander project

• Posted by c.k.lester <euphoric at c?lester.?om> Nov 15, 2007
• 586 views

Brian Clark wrote:
> Robert Craig wrote:
> > A lot of people think their biggest threat is
> > that someone might copy their work, and make money from it. 
> > In reality, a much bigger threat is that the world 
> > will simply ignore them.
> Yes.  It was Oscar Wilde's little-know brother, Fred from Sheboygan who said
> "The only thing worse than having your code copied, is not having your code
> copied".

LOL. But true.

13. Re: The Euphoria Sub Commander project

• Posted by don cole <doncole at pacbel?.ne?> Nov 16, 2007
• 591 views

Could someone please explain the following code to me in detail? I'm especially
confused by the
{} brackets.

k=player --1 or 2
cen={{120,360},{520,360}},     -- centers of clock
r=100,     -- radius of clock
rt=remaining time in secs



Don Cole
 
function p2xy(atom r, atom a)   -- polar to xy
   return {-r*sin(a),-r*cos(a)}
end function

draw_line(colors[k],{cen[[k],cen[k]+p2xy(r,rt/1800*PI)})

This code comes from       : Simple Chess Clock / Countdown Timer
                             Author     : Ernest Cheam  
                             
                             
In the Archives.

Thank you,

15. Re: The Euphoria Sub Commander project

• Posted by CChris <christian.cuvier at agriculture?gouv?fr> Nov 16, 2007
• 581 views

don cole wrote:
> 
> 
> Could someone please explain the following code to me in detail? I'm
> especially
> confused by the
> {} brackets.
> 
> }}}
<eucode>
> 
> k=player --1 or 2
> cen={{120,360},{520,360}},     -- centers of clock

This is a sequence (outer pair of braces) containing two pairs of integers (the
two inner pairs of braces). Each pair is the {x,y} cartesian coordinates of a
point on the screen.

> r=100,     -- radius of clock
> rt=remaining time in secs

This last line confuses me, something must be missing.

> 
> 
> Don Cole
>  
> function p2xy(atom r, atom a)   -- polar to xy
>    return {-r*sin(a),-r*cos(a)}
> end function

Basic trigonometry to go from polar (radius,angle) coords to cartesian (x,y)
coords. The returned value is negative, because the author wished to
write "+p2xy()" rather than "-p2xy()".

> 
> draw_line(colors[k],{cen[[k],cen[k]+p2xy(r,rt/1800*PI)})
> 

cen[[k] must be cen[k], or else the code simply wasn't tested at all.

draw_line() takes an integer (a color) and a sequence of points. A point is
given by its coordinates expressed as {x,y}. This builtin, DOS specific procedure
joins the points in the order given, with a line of unspecified thickness and
supplied color. You can look it up in the docs for Euphoria.

p2xy() returns a pair of offsets, and cen[k] is a pair of coordinates.
cen[k]+p2xy() is the point cen[k] translated by the offset vector p2xy() returns.
Hence both cen[k] and cen[k]+p2xy() are pairs of coordinates, which can appear
in a sequence passed to draw_line().

sin() and cos() expect an argument expressed in radians. A radian is a
measurement unit for angles. A right angle is PI/2 radian long, so a full circle
is 2*PI radian long (PI is defined in misc.e). As a result, PI radians are 180
degrees, so the conversion formula from degrees to radians is rad = deg/180*PI.
So I assume rt is a number of tenths of degree, very likely. Examine the code
further for confirmation of this.

Contrary to standard mathematical conventions, * and / have the same precedence
in Euphoria, so that "x/y*z" is (x/y)*z, not x/(y*z). This is sometimes a problem
when porting math formulas to Euphoria.

> </eucode>
{{{

> 
> 
> This code comes from       : Simple Chess Clock / Countdown Timer
>                              Author     : Ernest Cheam  
>                              
>                              
> In the Archives.
> 
> Thank you,

I wasn't sure what was confusing you in the code; I hope the above has made
things clearer.

CChris

17. Re: The Euphoria Sub Commander project

• Posted by don cole <doncole at pacbe?l.ne?> Nov 16, 2007
• 608 views
• Last edited Nov 17, 2007

Pete Lomax wrote:
> 
> don cole wrote:
> > 
> > 
> > Could someone please explain the following code to me in detail? I'm
> > especially
> > confused by the
> > {} brackets.
> > 
> > }}}
<eucode>
> > 
> > k=player --1 or 2
> > cen={{120,360},{520,360}},     -- centers of clock
> Two clocks, center of 1 is {120,360} and the centre of 2 is {520,360}
> 
> > r=100,     -- radius of clock
> > rt=remaining time in secs
> > 
> > 
> > Don Cole
> >  
> > function p2xy(atom r, atom a)   -- polar to xy
> >    return {-r*sin(a),-r*cos(a)}
> > end function
> > 
> > draw_line(colors[k],{cen[k],cen[k]+p2xy(r,rt/1800*PI)})
> 
> Draws a line from the centre of the clock to somewhere on the edge.
> 
> As sin/cos expect arguments in radians, 0..2*PI, and rt is 0..3600, the number
> of seconds in an hour, it is coded as /1800*PI rather than /3600*2*PI.
> 
> Now imagine a clock with the second hand pointing at 10 seconds past the hour,
> drop a line to
> the horizontal through the centre to make a right angled triange whose longest
> side is the second
> hand. For a picture, see eg <a
> href="http://www.mathsrevision.net/gcse/pages.php?page=39">http://www.mathsrevision.net/gcse/pages.php?page=39</a>
> 
>  From basic trig, the height of this triangle is r*sin(a) and the width is
>  r*cos(a).
> (I almost always get such the wrong way round on first attempt.) 
> 
> Lastly, rt is the remaining time, a hand pointing at 2 o'clock would be
> (10/12)*3600
> or 3000 seconds which should explain why the offsets from the clock centre to
> the tip of the arm are both returned as -ve.
> 
> Hope that is enough detail for you there,
> Pete

  I want to thank everyone who responded.

I kind of figured it out after I went to bed last night. It was the adding to
cen[k] that confused me. cen[k] is a two element sequence the starting point of
the line. The return of p2xy() is also a two element sequence. I guess you can
add sequences together if they are the same length. This gives a third sequence
which is where to put the end of the line.


Don Cole

19. Re: The Euphoria Sub Commander project

• Posted by don cole <doncole at ?ac?ell.net> Nov 19, 2007
• 588 views

CChris wrote:

<snip> <snip> <snip>

> Well yes, it is actually one of the strengths of Euphoria that you can do s
> = s1 + s2 and that this adds the two vectors together, provided their
> structures
> match. This works with and, or, xor,-,* and /, but not & unfortunately.
> All math operations (tan(), sqrt() and friends) also work like this. You'll
> get a complete picture in the docs, section 2.2.4 (Operations on sequences).
> 
> 
> For some background on sequence operations in Eu, see
>  
> <a
> href="http://www.openeuphoria.org/cgi-bin/esearch.exu?fromMonth=6&fromYear=1&toMonth=B&toYear=C&postedBy=robert+craig&keywords=background+on+sequence+operations">http://www.openeuphoria.org/cgi-bin/esearch.exu?fromMonth=6&fromYear=1&toMonth=B&toYear=C&postedBy=robert+craig&keywords=background+on+sequence+operations</a>
> 
> (URL wraps, see post #1 there). Strangely, I cannot find this post on Topica,
> even though the replies do appear. The post is too old to be viewed here, even
> with the several pages recent enhancement.
> 
> CChris

I'm glad you made this post. It seems you understand what I missed. The
    adding of two sequences. It's not that clear in the statment,

draw_line(colors[k],{cen[k],cen[k]+p2xy(r,rt/1800*PI)}).

After studying it I see it. It's so simple now.

I read some of Rob's old posts you put up a link to. Although a lot of it is 
above my head I get the gist. I know this was well covered in David Gay's
tutorial, but it has been about four years since I read it.

Don Cole

21. Re: The Euphoria Sub Commander project

• Posted by ChrisBurch3 <crylex at ?mail.co?> Nov 20, 2007
• 650 views

Hi

Al, or anyone else who wants to participate.

I need a map generating routine, that generates a random map, with coastline
and sea bed depths.

I would like it to be a grid of approximately 1000 * 1000, I anticipate
a euphoria sequence, each cell holding info about depth of seabed, or whether
it is land or not. There should also be an element for thermocline depth, 
although this may or may not be implemented.

Each cell would equate to approximately 1km square.

There should be clear passage through the map from one edge, to at least the
opposite edge. Islands and channels are not excluded.

The depth of the see bad, and sea bed to coast, should make sense, ie, sea bed
depth next to coast shouldn't be, for instance, 200m, then next to that 10m

Each grid cell should have an element how much variability there is within the
grid for the depth. For instance, a variability of 0 would be very flat, 
whereas a variability of 10 may indicate a 10m rise and fall within the grid
generated on the fly.

Global variables for sequence element ids should be prefixed by MAP_
These will be put into the global include file.

The routine should return the map sequence to me.

I will take care of the graphics handling aspect.

Any takers?

Chris

23. Re: The Euphoria Sub Commander project

• Posted by ChrisBurch2 <crylex at ?reeuk?co.uk> Nov 20, 2007
• 588 views

Hi CK

I know how to do it, or how it could be done (slow as I may be!). As part of 
the project, I'm just seeing if anyone else wants to get involved, while I
knit it all together.

An experiment in social engineering / team building if you will.

There will be other small requests later, eg the hydrophone (distance, tone,
etc),
and the target ship ai (that will be a fun one).

Bear in mind this is meant to be a fun, no strings, few spare cycles project,
gives me something to think about while I'm driving between jobs.

eg - the periscope view - ships distance - stretching the ship bitmap before
blitting it, rotating it for sinking, and so on.

One thing I've seen with team requests before, is that the requests have been
too broad, too vague, or the instigator has been unwilling, or unable, to put
the work in - this isn't the case here - if no-one does, I'll still do it
anyway, just for fun!

Chris

Ps - I tried long and hard to draw a submarine - just didn't look right. If
anyone else can do some original artwork, then you can have the splash screen.

25. Re: The Euphoria Sub Commander project

• Posted by ChrisBurch2 <crylex at fre?uk.co.?k> Nov 20, 2007
• 592 views

Bernie Ryan wrote:
> 
> c.k.lester wrote:
> > 
> > ChrisBurch3 wrote:
> > > 
> > > I need a map generating routine, that generates a random map, with
> > > coastline
> > > and sea bed depths.
> > 
> > You could make each point in the grid represents the relative sea level,
> > so for land it can go as high as 20' above sea level (20) and for water
> > it can go as low as 600' below sea level (-600). That way you have one
> > value giving you land or sea. Thermocline values would not need to be
> > set in the grid. It could just be something like {-100,-50} to represent
> > the lower and upper boundaries of the layer.
> 
> 
> Why don't you assign different colors to +20 to 0 would be brown and
> 
> 0 to 10 would be light brown and etc.  Then when you draw a map you
> 
> could just display a color as you scan each cell in a given area.
> 
> Bernie
> 
> My files in archive:
> WMOTOR, XMOTOR, W32ENGIN, MIXEDLIB, EU_ENGIN, WIN32ERU, WIN32API 
> 
> Can be downloaded here:
> <a
> href="http://www.rapideuphoria.com/cgi-bin/asearch.exu?dos=on&win=on&lnx=on&gen=on&keywords=bernie+ryan">http://www.rapideuphoria.com/cgi-bin/asearch.exu?dos=on&win=on&lnx=on&gen=on&keywords=bernie+ryan</a>

gotta luv this forum!

Chris

27. Re: The Euphoria Sub Commander project

• Posted by ChrisBurch3 <crylex at g??il.com> Nov 20, 2007
• 596 views

c.k.lester wrote:
> 
> ChrisBurch2 wrote:
> > 
> > I know how to do it, or how it could be done (slow as I may be!).
> 
> I know... I was just thinking out loud in case I wanted to attempt to write
> a map generator program. :)

go on, I know you want to, you really want to, go on ..........

> 
> > Ps - I tried long and hard to draw a submarine - just didn't look right. If
> > anyone else can do some original artwork, then you can have the splash
> > screen.
> 
> What's the screen resolution for the game?

640 * 480, but thats unimportant as far as a splash screen goes, because it
can all be resized either before, or on the fly.

Chris

29. Re: The Euphoria Sub Commander project

• Posted by don cole <doncole at pacbel??net> Nov 20, 2007
• 585 views
• Last edited Nov 21, 2007

ChrisBurch3 wrote:
> 
> Hi Don
> 
> Are you using DOS routines to draw the sonar screen? Ideally you should be 
> creating a bitmap that allegro can blit to a section of the main screen.
> 
> Chris

I should say I'm using a Pixmap in a Window with win32lib.ew. I could easily
   convert it to DOS. I don't really know what Allegro is.

Don Cole

31. Re: The Euphoria Sub Commander project

• Posted by ChrisBurch3 <crylex at gmail?co?> Nov 21, 2007
• 574 views

don cole wrote:
> 
> ChrisBurch3 wrote:
> > 
> > Hi Don
> > 
> > Are you using DOS routines to draw the sonar screen? Ideally you should be 
> > creating a bitmap that allegro can blit to a section of the main screen.
> > 
> > Chris
> 
>    I should say I'm using a Pixmap in a Window with win32lib.ew. I could
>    easily
> convert it to DOS. I don't really know what Allegro is.
> 
> Don Cole

Hi Don

Allegro is the game / graphic library I'm using as the basis for the program.

It is written under windows.

The basic loop will be

while 1 do
    --move sub
    --move targets
    --move torpedoes
    --display display stuff
    --if selected display sonar by pinging for ships in line with the sonar beam
end while

Hopefully, what your module will do will take the locations of the ships, and
return the bitmap / pixmap of the entire sonar, so that the display module
can display the sonar on the relevant part of the screen. All I need your
module to do is to return a bitmap.

Hi CK

No, you're ahead of me there, give me a day or two 

Chris

33. Re: The Euphoria Sub Commander project

• Posted by c.k.lester <euphoric at ckle?ter.com> Nov 23, 2007
• 582 views

ChrisBurch3 wrote:
> 
> Added a basic console, controls yet to be added, with a screen showing,
> currently, random noise. (awaiting the more intelligent map algorithm PROMISED
> by CK) (no pressure like)

Uh oh! I'm outta town for a few days and will send you what I have when I
return. :)