Discussion :

[Archimède]

Hello,

Peut-on envisager une version FlashPascal3 reposant sur as3 ?
J'ai bricolé un peu avec flashdev en as3 avec le package flash.display entre autres, c'est intéressant...
Peut-être qu'une version en as3 motiverait davantage de personnes sur le forum...
Dommage de ne pas faire évoluer FlashPascal...

(même en version payante...)

anthony

[Paul TOTH]

Hello,

Peut-on envisager une version flashpascal3 reposant sur as3 ?
J'ai bricolé un peu avec flashdev en as3 avec le package flash.display entre autres, c'est intéressant...
Peut-être qu'une version en as3 motiverait davantage de personnes sur le forum...
Dommage de ne pas faire évoluer flashpascal...

(même en version payante...)

anthony

oui, j'ai déjà un POC (Proof of Concept) mais ça demande pas mal de boulot que de refaire le compilateur en AS3 car le format n'a plus rien à voir...et le compilateur FlashPascal2 ne séparant pas bien la compilation de la génération de code ça ne simplifie pas les choses.

version payante, oui mais il faut que je finance sa conception, le temps que je passe dessus c'est pas payé, et le produit sera-t-il acheté ?

faudrait que je lance ça sur ulule

[Archimède]

le produit sera-t-il acheté ?

En effet, c'est beaucoup d'investissement pour peut-être ne pas rentrer dans ses billes...je te comprends..

Il faudrait faire un sondage et voir en donnant une estimation du prix, le nombre de personnes qui s'engageraient à l'acheter le produit...

Pas facile tout ça...

[Paul TOTH]

En attendant j'ai fait une bannière FlashPascal2 (en FlashPascal évidemment), n'hésitez pas à la placer sur vos sites ^^

flashpascal.swf

la voir en ligne sur http://tothpaul.free.fr/sources.php, une des pages les plus visitées de mes sites

[Archimède]

En attendant j'ai fait une bannière FlashPascal2 (en FlashPascal évidemment), n'hésitez pas à la placer sur vos sites ^^

flashpascal.swf

la voir en ligne sur http://tothpaul.free.fr/sources.php, une des pages les plus visitées de mes sites

Très joli
Je la mettrai sur mon site (si ça peut motiver des élèves à se lancer...)

[Archimède]

Hello, quel est l'équivalent as3 des instructions flashpascal :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
{$FRAME_WIDTH 1000}
{$FRAME_HEIGHT 600}

pour fixer la taille de la scène ?

Dans mon petit test d'as3, j'ai tenter de tracer une sinusoïde pour me faire la main...J'y suis parvenu...mais je ne vois pas comment on peut modifier la dimension du swf dans le navigateur...

ci-joint :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
 
package 
{
	import flash.display.MovieClip;
	import flash.display.Sprite;
	import flash.events.Event;
 
	public class Graphique extends MovieClip 
	{
		private var t:Number = 0;
		private var Periode:Number = (stage.stageWidth-10)/5;
		private var omega : Number = 2*Math.PI / Periode;
		private var container:Sprite = new Sprite();
		private var sinus:Sprite = new Sprite();
		private var cosinus:Sprite = new Sprite();
 
		public function Graphique():void 
		{ 
	          stage.frameRate = 30;
 
		  with (container.graphics)
		  { 
		   lineStyle(2, 0x000000, 0.75);
		   //axe horizontal  
		    moveTo(10,stage.stageHeight / 2);
		    lineTo(stage.stageWidth, stage.stageHeight / 2);
		    beginFill(0);
		    moveTo(stage.stageWidth-15,stage.stageHeight / 2-7);
		    lineTo(stage.stageWidth - 15, stage.stageHeight / 2 + 7 );
		    lineTo(stage.stageWidth, stage.stageHeight / 2 );
		    lineTo(stage.stageWidth - 15, stage.stageHeight / 2 - 7);
		     endFill();
		    //axe vertical
		    moveTo(10,stage.stageHeight / 2 -200);
		    lineTo(10, stage.stageHeight / 2 +200 );
		    beginFill(0);
		    moveTo(3,stage.stageHeight / 2-185);
		    lineTo(17, stage.stageHeight / 2 -185 );
		    lineTo(10, stage.stageHeight / 2-200 );
		    lineTo(3, stage.stageHeight / 2 - 185); 
		    endFill();
		  }
		  addChild(container);
		  sinus.x = 10;
		  cosinus.x = 10;
		  sinus.graphics.moveTo(t, -150 * Math.sin(omega * t) + stage.stageHeight / 2);
		  cosinus.graphics.moveTo(t, -150 * Math.cos(omega * t) + stage.stageHeight / 2);
		  container.addChildAt(sinus,0);
		  container.addChild(cosinus);
 
		  addEventListener(Event.ENTER_FRAME, doTrace);
		}
 
	function doTrace(event:Event):void
        {
		  t+= 5;
		  sinus.graphics.lineStyle(3, 0x0000FF, 0.75); 
		  sinus.graphics.lineTo(t, -150 * Math.sin(omega * t )+ stage.stageHeight / 2);
		  cosinus.graphics.lineStyle(3, 0xff0000, 0.75);
		  cosinus.graphics.lineTo(t , -150 * Math.cos(omega * t) + stage.stageHeight / 2);
		  if (t > stage.stageWidth) 
		  {
			sinus.graphics.clear();   
			cosinus.graphics.clear(); 
		    t = 0;
			sinus.graphics.moveTo(t, -150 * Math.sin(omega * t) + stage.stageHeight / 2);
			cosinus.graphics.moveTo(t, -150 * Math.cos(omega * t) + stage.stageHeight / 2);
		  }	 
 
		}
    }  		
 
}

Excuse pour le code As3. Rassure-toi, je préfère faire du code pascal, je suis plus à l'aise... et avoir ta réponse plutôt que de poster sur le forum correspondant.

ps: Ce qui est bien intéressant en as3, c'est de récupérer as3gl pour la 3D...