"langage" MYSTERE ???

[yupiteru]

*** TEST TRAITEMENTS BASE de DONNEES avec AFFICHAGE DESSIN CG 30/01/03
don:Zone Département
don:Plan France Dépt



***.....S.C.E.N.A.R.I.O.....***


mac ecrMenu 4  

***des écran texte vid net
des écran géo vid net
apl :INITIALISATION.TABLEAUX
apl :IMPRESSION.EN-TETE

apl :LECTURE.BASE
tri $Dept a 1 $Dept 0 0 1
apl :EDITION.LISTE

apl :AFFICHE.DESSIN
geo mode 1 geo redessine 1
geoforceDialogueEnregistrer 0
mac ecrMenu 4  
frm
fin


:AFFICHE.DESSIN
don:Lig 55
desécran activeFenetre :Plan :E
esi:E = # ! fai 0 :Plan
don:t 0 her:t
desécran dériveFenetre :Plan
geomode 0
*** geo créerCalque 1 0 1 Régions
*** geo forceCalque 0 1 0 1 Stat
*** geo calque 0
*** geoTout.Sélectionner
*** geo Copier
*** geoTout.Désélectionner
*** geo calque 1
*** geo Coller
*** geo calque 0
*** geo forceCalque 1 0 0 1 Régions
*** geoTout.Sélectionner
*** desepaisseurTrait 0 0
*** desRVBFond 65535 65535 65535
*** geoTout.Désélectionner

por:x 0 150 1
ste
apl :COLORIAGE
geoTout.Désélectionner
geo mode 1 geo redessine 1
geoforceDialogueEnregistrer 0
desécran dériveFenetre :MaFen
***her:t ecr/ :t 60
ret

:COLORIAGE
don:R 0 don:V 65535 don:B 0 donécale --1 don:Inc / * / 3,14159 2
6 $Dept 0 0
don:R 65535 don:V 0 don:B 0 don:Inc / 65535 $Dept 0 0
por:N 1 $Dept 0 0 1
esi$Dept 3 :N = :Nul ! ste ret
don:Signature $Dept 3 :N nbr:Signature
geosélectObjet :Signature
***aplEGRADE desRVBFond :R :V :B
don:V - 65535 * :N :Inc
desRVBFond :R :V :B
geo Copier
desécran dériveFenetre :MaFen
geo redessine 0
geoTout.Désélectionner
geo collerPosition 50 =+ :Lig 50

des epaisseurTrait 0,5 0,5
geozoomObjet 0,4 0,4 1
des clutFond 128 100
geo objetIndex -1 :Sig :x :x :x :x :x :x :x :x
geo forceScript :Sig :Nul
desécran dériveFenetre :Plan

***desRVBFond %RVB $Dept 4 :N 0 %RVB $Dept 4 :N 1 %RVB $Dept 4 :N 2
geoTout.Désélectionner
***,,, imp$Dept 2 :N ecr   ecr$Dept 1 :N ecr   ecr$Dept 0 :N ecr 
***,,, ecr$Dept 2 :N ecr  ecr:Signature ecr   ecr:R ecr   ecr:V
ecr   ecr:B
ste
ret

EGRADE
matsin :Sin * :N :Inc abs:Sin don:Co * :Sin 65535
milécale :Re 1 1 esi:Re > 0 ! don:R :Co
milécale :Ve 2 1 esi:Ve > 0 ! don:V :Co
milécale :Be 3 1 esi:Be > 0 ! don:B :Co
esi:Co < 1 ! milécale

1 1 cum=+

écale

milécale

écale 2 3
esi:Co > 65534 ! milécale

1 1 cum=+

écale

milécale

écale 2 3
ret



:EDITION.LISTE
don:Lig 40
fom3 3
don:Phase 0
don:Co 1
don:R 0 don:V 65535 don:B 0 donécale --1 don:Inc / * / 3,14159 2
6 $Dept 0 0
don:R 65535 don:V 0 don:B 0 don:Inc / 65535 $Dept 0 0
por:N 1 $Dept 0 0 1
esi$Dept 3 :N = :Nul ! ste ret

***aplEGRADE desRVBTrait :R :V :B
don:V - 65535 * :N :Inc
desRVBTrait :R :V :B

desligneTexte $Dept 2 :N 20 =+ :Lig 50 ***11
desligneTexte $Dept 0 :N 40 :Lig apl:SCRIPT
desligneTexte + $Dept 1 :N km2 180 :Lig
ste
ret
esi=+ :Phase 1 > 2 ! don:Phase 1 esi=+ :Co 1 > 7 ! don:Co 1
desRVBTrait %RVB :Co 0 %RVB :Co 1 %RVB :Co 2
don$Dept 4 :N :Co
*** ,,, imp$Dept 2 :N ecr   ecr$Dept 1 :N ecr   ecr$Dept 0 :N ecr  
ecr$Dept 3 :N ecr   ecr$Dept 4 :N
ste
ret


:LECTURE.BASE
***,,, ecr:MaxFiche ,,, ecr:Fidx
don:Max 0
por:N 1 :MaxFiche 1
***,,, ecr:N
lir:Zone :N
esiitem :Zone 14 < 1 ! ste don$Dept 0 0 :Max ret
don:Nom item$ :Zone 2
don:Surf item :Zone 14
don:Code item :Zone 4
don:Clef item$ :Zone 4
esi:Clef = 2A ! don:Clef 96
esi:Clef = 2B ! don:Clef 97
apl:RECHERCHE.FICHE
lir:Fidx :Fiche
esiitem$ :Fidx 6 <> :Clef ! ste don$Dept 0 0 :Max ret
don$Dept 0 =+ :Max 1 :Nom
don$Dept 1 :Max :Surf
don$Dept 2 :Max :Code
don$Dept 3 :Max item :Fidx 8
***ecr   ecr:Max ecr   ecr$Dept 0 :Max ecr <>  ecr$Dept 1 :Max ecr <> 
ecr$Dept 3 :Max
ste don$Dept 0 0 :Max
ret


:RECHERCHE.FICHE
lir:Fidx 2
don:Fiche 1 don:Père 1 chn:Clef don:zzzz item$ :Fidx 6
por:X 0 0 0
lir:Fidx :Fiche don:V item$ :Fidx 6
esi:V = :zzzz ! stv ret
esi:V = :Clef ! stv ret
esi:V > :Clef ! don:Père :Fiche don:Fiche item :Fidx 2 ste
esi:V < :Clef ! don:Père :Fiche don:Fiche item :Fidx 3
ste


:INITIALISATION.TABLEAUX
don:Lig 11
desRVBTrait 0 0 0
desécran nomFenetre :MaFen
lir:Zone 1
volgetRessource :Zone Indx 0 :Fidx
volgetRessource :Zone Stru 5 :MaxFiche nbr:MaxFiche
asc202 :FB 1
don:INS.BLANC
asc32 :B 1 asc202 :b 1 cum=+ :NomB :B lon:NomB :L1 por:L 1 :L1 0 macmot 
:NomB :Nb :L :B ins:b :NomB - :L 1 1 stemil:NomB :NomB 1 - :L1 1
don:NomB :Plan exc:INS.BLANC
asc32 :L 35
don$Dept 5 :MaxFiche :L

don%RVB 20 2 0
don%RVB 0 0 65535 don%RVB 0 1 65535 don%RVB 0 2 65535 *** Blanc
don%RVB 1 0 65535 don%RVB 1 1 0 don%RVB 1 2 0 *** Rouge
don%RVB 2 0 65535 don%RVB 2 1 65535 don%RVB 2 2 0 *** Jaune
don%RVB 3 0 0 don%RVB 3 1 65535 don%RVB 3 2 0 *** Vert
don%RVB 4 0 0 don%RVB 4 1 65535 don%RVB 4 2 65535 *** Cyan
don%RVB 5 0 0 don%RVB 5 1 0 don%RVB 5 2 65535 *** Bleu
don%RVB 6 0 65535 don%RVB 6 1 0 don%RVB 6 2 65535 *** Magenta
don%RVB 7 0 0 don%RVB 7 1 0 don%RVB 7 2 0 *** Noir
don%RVB 8 0 0 don%RVB 8 1 0 don%RVB 8 2 0 *** Noir
don%RVB 9 0 0 don%RVB 9 1 0 don%RVB 9 2 0 *** Noir
don%RVB 10 0 65535 don%RVB 10 1 0 don%RVB 10 2 0 *** Rouge
don%RVB 11 0 65535 don%RVB 11 1 32767 don%RVB 11 2 32767
don%RVB 12 0 42597 don%RVB 12 1 0 don%RVB 12 2 0 *** Orange

don%RVB 13 0 32896 don%RVB 13 1 32896 don%RVB 13 2 32896
don%RVB 14 0 16448 don%RVB 14 1 16448 don%RVB 14 2 16448
don%RVB 15 0 0 don%RVB 15 1 0 don%RVB 15 2 0 *** Noir
don%RVB 16 0 65535 don%RVB 16 1 65535 don%RVB 16 2 21845 *** JauneEI
don%RVB 17 0 32767 don%RVB 17 1 65535 don%RVB 17 2 65535 *** Cyan clair
don%RVB 18 0 0 don%RVB 18 1 65535 don%RVB 18 2 0 *** Vert
don%RVB 19 0 65535 don%RVB 19 1 0 don%RVB 19 2 0 *** Rouge
ret


:IMPRESSION.EN-TETE
desligneTexte TRI des DEPARTEMENTS     Base: 20 =+ :Lig 11
desligneTexte :Zone 205 :Lig
desligneTexte   par SURFACE            Plan: 20 =+ :Lig 11
desligneTexte :Plan 205 :Lig
ret
,,,
ecr    TRI des DEPARTEMENTS     Base:  ecr:Zone ,,,
ecr      par SURFACE            Plan:  ecr:Plan ,,,
,,,
ret


=
*** SUPRESSION DES POLYGONES DOUBLES
don:Zone Département
don:Plan France Dépt



***.....S.C.E.N.A.R.I.O.....***


mac ecrMenu 4  

des écran texte vid net
apl :INITIALISATION.TABLEAUX

desécran activeFenetre :Plan :E
esi:E = # ! fai 0 :Plan
desécran dériveFenetre :Plan
geomode 0

apl :EFFACE.POLY.VIDE
apl :MODIF.POLY.PLEIN

desécran dériveFenetre :MaFen

mac ecrMenu 4  
frm
fin



:EFFACE.POLY.VIDE
don:I -1
por:X 0 0 0
geoobjetIndex =+ :I 1 :Sig :Typ :PoH :PoV :CoH :CoV :Vér :Rot :Grp
esi:Typ = -1 ! stv bip ret
esi:Typ <> 11 ! ste ret
geoobjetCouleur :Sig :Rt :Vt :Bt :Pat :Rmp :PatF :Rp :Vp :Bp :Rf
:Vf :Bf
esi:Rmp > 0 ! ste ret
geoeffaceObjet :Sig
***,,, ecr:Sig ecr   ecr:Rmp
ste
ret

:MODIF.POLY.PLEIN
geoTout.Désélectionner
don:I -1
por:X 0 0 0
geoobjetIndex =+ :I 1 :Sig :Typ :PoH :PoV :CoH :CoV :Vér :Rot :Grp
esi:Typ = -1 ! stv bip ret
esi:Typ <> 11 ! ste ret
geoobjetCouleur :Sig :Rt :Vt :Bt :Pat :Rmp :PatF :Rp :Vp :Bp :Rf
:Vf :Bf
esi:Rmp <> 1 ! ste ret
geosélectObjet :Sig
desepaisseurTrait 0,1 0,1
geoTout.Désélectionner
***,,, ecr:Sig ecr   ecr:Rmp
ste
ret

:SCRIPT
geo objetIndex -1 :Sgn :x :x :x :x :x :x :x :x
don:La.sign $Dept 3 :N chn:La.sign
*** don:Script + des écran dériveFenetre  + :NomB +
 geo mode 0 geo Tout.Sélectionner des clutFond 128 58 geo Tout.Désélecti
onner geo sélectObjet  + :La.sign  des clutFond 128 205 geo mode 1
*** don:Script + des écran dériveFenetre  + :NomB +
 geo mode 0 geo calque 0 geo Tout.Désélectionner geo calque 1 geo Tout.S
électionner desremplissage 0 geo sélectObjet  + :La.sign +
 geo Copier geo Coller des clutFond 128 205 geo mode 1
don:Script + des écran nomFenetre :MaF des écran dériveFenetre  +
:NomB +  geo mode 0 geo Tout.Désélectionner geo sélectObjet  + :La.sign
 geo redessine 1 geo mode 1 geoforceDialogueEnregistrer 0 des écran déri
veFenetre :MaF
geo forceScript :Sgn :Script
ret


ca vous dit qq chose ???
des avis ou réactions ?

---
yup

 

[Philou309]

AUCUNE ID2E, c'est quoi?????

 

[__bobo__]

si tu donne le code(????) sans avoir une idée de ce qu'il fait, ca vas pas etre facile....

C'est du winDev on truc????