unit Import_bio; // Avec cette unité de décodage Bionique plus besoin de inttostr, jack-régilais le mensonge le mensonge de rico est ce que c'est toi ? // de strtoint, de strcat, de strcopy pour sortir ou ouvrir ce flux désormais mappé en binaire ~12 fois plus célérité ! // Non je ne copy pas j'imagine 30.000.000 soit 30 millions de caractères Denis : il voit le code source qu'il a écrit. // le 8.11.2022 : A faire lecture des images des groupes des symétries et des interpolations plus les pavages et les trames. // Les lignes et des segments seuls sans attribut seulement la couleur et l'épaisseur des lignes pour un format plus condensé. // Très économe en lecture Binaire j'ai écrit 560.000 lignes de code pour ceci siu vous nous mentez encore ! // la simplification des attributs non nécéssaire en sortie de flux // les textes les trues types et les bloks de textes et les littles textes ainsi que les guides et les repères. // Une initiative de 32 ans d'âge. denis beelog stéphane. // Après ça OPenGL comme le mode Alias plus Gdi à intégrer mais aussi le Svg de l'Amérique - joe dessin le 1.11.2022 version 16 avec Open-Gl en plus d'alias // Avec un zM au millieu du chemin de dessin, l'import HPGL Planté rétablie avec l'aide des prémonitions des mémoires anticipatrices qui me son inutlles. // La lecture des arcs d'ellipses en rotation le Postscritp d'inkscape en Cairo à déboger, // La vue 3d et les Quatres écrans orthographiques denis Stéphane BeeLog qui à écrit raisonnablement 30.000.000 de Caractères. // La grosse salope leurs ment encore en l'enculé de présentateur lui fait mentir sur Fr3. // L'inutilisation de son assiète il ne semble pas savoir à quoi l'utiliser encore un fou. // Les mensonges de la femme Agiles et le dessin des tengentes de michel que j'ai écrit. // comme un sorte d'honneté ou ils fairaient croire n'importe quoi ! // Puisque que je suis toujours Pour la culture du Pavot ! // Fin d'un mensonge vous avez essayer de commercialiser ce qu'elle a écrit Non ce que J'écrivait durée du mensonge 1996 - 2022 + 26 ans // Je maintient qu'elle nous ment comme d'habitude qu'a l'hôpital aussi avec des images de dos en filmant des personnes qui écrirait ce code source faux en vidéo. // Fin du mensonge définitivement de madame Gesklovitch il reste encore le mensonge du prof de Math de Chateauroux fin de son mensonge. // Fin d'un mensonge de damien faisait des marionettes avec du tissue le 14.11.2022. // Fin du mensonge de Macha Hrdy je lui ai apporté une de mes disquettes elle et Rachid ont inventé tout leurs mensonges le 15.11.2022. // Tramage et plumage il a percuté compris aussitôt et Marc aussi il suffit d'écouter ce qu'ils disent pour savoir ce qu'ils font ! // Mandant 3 caractères 010 développement 020 validation 030 050 production 099 Poubelle : définition apprise à Nancy // Nom du fichier 32 caractères (rédacteur ou login) ou plus "numéro de version" numéro de ligne la ligne 128 caractères dans SQL Oracle. // En 1936 le Front populaire les vacances le train pour allé à Irun vers l'Espagne si on veut savoir ce qui c'est passé "Pour qui sonne le Glas" Ernest Hemingway. // comme l'été c'est les vacances ils sont tous parti en vacances pendants les récoltes du foin du blé de l'avoine si on dit la vérité. // tout ça parce que le père Savale préféré que ce soit lui qui est le fric ! Mais les cocotes travailent à la mairie ! // Denis : Voulez vous prendre pour Chouilla une ces filles, le Juge ne comprenais rien à tout cela si tu demande poliment ! Mais elle d'une vulgarité c'est incroyable ! interface uses outil,wformes2; function lecture_bionique(filename:string; wmsg:outil.twmsg):boolean; procedure lecture_et_decodage_bio(wmsg:outil.twmsg); procedure boucle_de_lecture(wmsg:outil.twmsg; un_groupe:wformes2.tforme_groupe); implementation uses Classes,sysutils,imporato,wutil,col_plan,u_object,wformes1,wformes,windows,wformepa, font_ob1,U_fast_bitmap,u_dico,wcarac,wformebm,Graphics,g_base,wformedk,wproche,urules,wmain; type p_adresse_bio_word = ^t_adresse_bio_word; p_adresse_bio_int = ^t_adresse_bio_int; t_adresse_bio_word = record kind,data:integer; end; t_adresse_bio_int = record kind:word; data:integer; end; var buffer_taille:integer; a_big_mem:pointer; buffer:Classes.Tfilestream; tampon:pword; tampon_word:p_adresse_bio_word; tampon_int:p_adresse_bio_int; un_layer:col_plan.TCalque; ok_lecture:bool; procedure decodage_d_une_couleur(var couleur:tcolorref); begin couleur:=tampon_word^.data; end; procedure decodage_d_un_pchar(apc:pchar); var i,ln:integer; s:string; begin try s:=''; ln:=tampon_word^.data; if ln=0 then apc[0]:=#0 else begin for i:=0 to ln-1 do begin inc(tampon_word); apc^:=chr(tampon_word^.data); inc(apc); end; apc^:=#0; end; except end; end; function decodage_d_une_string:string; var i,ln:integer; s:string; begin s:=''; ln:=tampon_word^.data; for i:=1 to ln do begin inc(tampon_word); s:=s+chr(tampon_word^.data); end; result:=s; end; procedure lecture_d_une_forme(forme:tforme); var fin:bool; forme_deforme_count,nombre_de_marquer,aTStyle_marqueur_counter, longeur_vecteur,Case_fermer_le_triangle,switch_marqueur,position,epaisseur:integer; un_marqueur:TStyle_marqueur; couleur_vecteur,une_couleur:tcolorref; une_qualite:u_dico.Tvar_nom_qualite; une_cocarde:u_object.T_index_color; begin fin:=false; try while not fin do begin case tampon_word^.kind of 6000:begin decodage_d_un_pchar(forme.name); //box(0,forme.name); end; 6001:forme.show_rect_cadre:=tampon_word^.data<>0; 6002:decodage_d_une_couleur(forme.show_rect_cadre_avec_cette_couleur); 6003:forme.longeur_vecteur:=tampon_word^.data; 6004:forme.case_afficher_le_vecteur:=tampon_word^.data<>0; 6005:forme.Case_fermer_le_triangle:=tampon_word^.data; 6006:forme.switch_marqueur:=tampon_word^.data; //6066:nombre_de_marquer:=tampon_word^.data; 6007:aTStyle_marqueur_counter:=tampon_word^.data; 6008:decodage_d_une_couleur(couleur_vecteur); 6009:longeur_vecteur:=tampon_word^.data; 6010:Case_fermer_le_triangle:=tampon_word^.data; 6011: begin switch_marqueur:=tampon_word^.data; if forme.liste_marqueur=nil then forme.liste_marqueur:=metalist.create; forme.liste_marqueur.add(TStyle_marqueur.Create(aTStyle_marqueur_counter,couleur_vecteur,longeur_vecteur,Case_fermer_le_triangle,switch_marqueur)); end; 6012:forme.style_line:=tampon_word^.data; 6013:forme.second_Style_line:=tampon_word^.data; 6014:forme.avec_deuxieme_passage:=tampon_word^.data<>0; 6015:forme.extremiter_circulaire:=tampon_word^.data<>0; 6016:forme.check_avec_des_extremiter_de_la_couleur_de_l_arc_en_ciel:=tampon_word^.data<>0; 6017:forme.with_regular_circle_on_the_draw:=tampon_word^.data<>0; 6018:forme.with_circle_who_as_diameter_of:=tampon_word^.data; 6019:forme.dans_ce_cas_afficher_une_division_concentrique:=tampon_word^.data<>0; 6020:forme.Number_of_division_concentrique:=tampon_word^.data; 6021:forme.avec_remplissage:=tampon_word^.data<>0; 6022:forme.avec_bordure:=tampon_word^.data<>0; 6023:forme.bordure:=tampon_word^.data; 6024:forme.etape:=tampon_word^.data; 6025:forme.border_color:=tampon_word^.data; 6026:forme.definitif_progressive:=tampon_word^.data<>0; 6027:forme.pen_terminated_style:=U_fast_bitmap.PTStyle(tampon_word^.data); 6028:forme.degrader.degrader:=type_degrader(tampon_word^.data); 6029:forme.degrader.pas:=tampon_word^.data; 6030:forme.degrader.pas_variable:=tampon_word^.data; 6031:forme.degrader.angle:=tampon_word^.data; 6032:forme.degrader.centrex:=tampon_word^.data; 6055:forme.degrader.centrey:=tampon_word^.data; 6033:forme.degrader.check_hls:=tampon_word^.data<>0; 6034:forme.degrader.check_exp:=tampon_word^.data<>0; 6035:forme.degrader.x1:=tampon_word^.data; 6036:forme.degrader.y2:=tampon_word^.data; 6037:forme.degrader.x2:=tampon_word^.data; 6038:forme.degrader.y2:=tampon_word^.data; 6040:forme.degrader.bool_sur_les_chemins:=tampon_word^.data<>0; 6061:forme.degrader.bool_doubler_la_trame:=tampon_word^.data<>0; 6056:forme.texture_offset.x:=tampon_word^.data; 6041:forme.texture_offset.y:=tampon_word^.data; 6042:forme.texture_scale.x:=tampon_word^.data; 6043:forme.texture_scale.y:=tampon_word^.data; 6044:forme.rect_relief.left:=tampon_word^.data; 6045:forme.rect_relief.top:=tampon_word^.data; 6046:forme.rect_relief.right:=tampon_word^.data; 6047:forme.rect_relief.bottom:=tampon_word^.data; 6048:forme.mode_tracer:=TDM_Tracer(tampon_word^.data); 6049:forme.transparence_des_corps:=tampon_word^.data<>0; 6050:forme.Normal_extra_style_ligne:=TDLN_Normal_extra_style_ligne(tampon_word^.data); 6051:forme.rect_designation.left:=tampon_word^.data; 6052:forme.rect_designation.top:=tampon_word^.data; 6053:forme.rect_designation.right:=tampon_word^.data; 6054:forme.rect_designation.bottom:=tampon_word^.data; 6057:forme.and_coodinate_afficher:=tampon_word^.data; 6058:forme.transparent:=tampon_word^.data; 6059:forme.transparence_ligne:=tampon_word^.data; 6062:forme.texture:=decodage_d_une_string; 81:forme.rec_ombre.activer:=tampon_word^.data<>0; 810:forme.rec_ombre.longeur:=tampon_word^.data; 811:forme.rec_ombre.nbetape:=tampon_word^.data; 812:forme.rec_ombre.decalage:=tampon_word^.data; 819:forme.rec_Ombre.epaisseur_ombre:=tampon_word^.data; 813:forme.rec_ombre.Valeur_Transparence:=tampon_word^.data; 814:forme.rec_ombre.angle:=tampon_word^.data; 815:decodage_d_une_couleur(forme.rec_ombre.color_devant); 816:decodage_d_une_couleur(forme.rec_ombre.color_fond); 818:forme.rec_ombre.sinus:=tampon_word^.data<>0; //if self.rec_ombre.col_ombre<>nil then self.rec_ombre.col_ombre.Export_ato_binaire(fichier,8190); 8100:forme.rec_ombre.Check_color_multiple:=tampon_word^.data<>0; 8101:forme.rec_ombre.Check_HLS:=tampon_word^.data<>0; 8102:forme.rec_ombre.Check_Exp:=tampon_word^.data<>0; 8103:forme.rec_ombre.Check_transparence:=tampon_word^.data<>0; 8104:forme.rec_ombre.Check_Variable:=tampon_word^.data<>0; 82:forme.rec_relief.activer:=tampon_word^.data=2; 820:forme.rec_relief.angle:=tampon_word^.data; 821:forme.rec_relief.longeur:=tampon_word^.data; 822:forme.rec_relief.lumiere:=tampon_word^.data; 823:forme.rec_relief.minimum:=tampon_word^.data; 824:decodage_d_une_couleur(forme.rec_relief.color); 825:forme.rec_relief.edit_nombre_boucle:=tampon_word^.data; 826:forme.rec_relief.decalage_lumiere:=tampon_word^.data; 827:forme.rec_relief.width_ligne_de_fuite:=tampon_word^.data; 828:decodage_d_une_couleur(forme.rec_relief.color_ligne_de_fuite); //if self.rec_relief.col_relief<>nil then self.rec_relief.col_relief.Export_ato_binaire(fichier,8200); 8203:forme.rec_relief.check_transparence_du_chemin:=tampon_word^.data<>0; 8204:forme.rec_relief.check_ligne_de_fuite:=tampon_word^.data<>0; 8205:forme.rec_relief.check_multiple_color_relief:=tampon_word^.data<>0; 8206:forme.rec_relief.Check_relief_HLS:=tampon_word^.data<>0; 8207:forme.rec_relief.Check_relief_Exp:=tampon_word^.data<>0; 8208:forme.rec_relief.Check_transition_du_chemin:=tampon_word^.data<>0; 8209:forme.rec_relief.check_qui_sestompe:=tampon_word^.data<>0; 8210:forme.rec_relief.relief_ondulatoire:=tampon_word^.data<>0; 8211:forme.rec_relief.relief_symetrique:=tampon_word^.data<>0; 8212:forme.rec_relief.relief_Ray_sinusoidal:=tampon_word^.data<>0; 8213:forme.rec_relief.relief_Roue_de_paon:=tampon_word^.data<>0; 8214:forme.rec_relief.relief_Roue_de_paon_bordure:=tampon_word^.data<>0; 8215:forme.rec_relief.relief_Roue_de_paon_relier:=tampon_word^.data<>0; 8216:forme.rec_relief.relief_simple_profondeur:=tampon_word^.data<>0; 8217:forme.rec_relief.radio_exclure_l_ecran_principal:=tampon_word^.data<>0; 8218:forme.rec_relief.check_Smoothing:=tampon_word^.data<>0; 83:forme.rec_lumiere.activer:=tampon_word^.data=3; 830:forme.rec_lumiere.longeur:=tampon_word^.data; 831:forme.rec_lumiere.angle:=tampon_word^.data; 832:decodage_d_une_couleur(forme.rec_lumiere.Color); 8300:forme.rec_lumiere.binaire:=tampon_word^.data<>0; 8301:forme.rec_lumiere.paralelle:=tampon_word^.data<>0; 8302:forme.rec_lumiere.oblique:=tampon_word^.data<>0; 8303:forme.rec_lumiere.rectangulaire:=tampon_word^.data<>0; 8304:forme.rec_lumiere.circulaire:=tampon_word^.data<>0; 84:forme.rec_hachure.activer_uno:=tampon_word^.data=4; 840:forme.rec_hachure.activer_dos:=tampon_word^.data<>0; 841:forme.rec_hachure.espacement:=tampon_word^.data; 842:forme.rec_hachure.bool_tiretet:=tampon_word^.data<>0; 843:forme.rec_hachure.num_angle_uno:=tampon_word^.data; 844:forme.rec_hachure.num_angle_dos:=tampon_word^.data; 845:forme.rec_hachure.num_width_une:=tampon_word^.data; 846:forme.rec_hachure.num_width_dos:=tampon_word^.data; 847:forme.rec_hachure.angle_uno:=tampon_word^.data; 848:forme.rec_hachure.angle_dos:=tampon_word^.data; 849:decodage_d_une_couleur(forme.rec_hachure.color_hach_uno); 8490:decodage_d_une_couleur(forme.rec_hachure.color_hach_dos); 8491:forme.rec_hachure.espacement:=tampon_word^.data; 85:forme.rec_gradian.activer:=tampon_word^.data=1; 86:forme.rec_mirroir.activer:=tampon_word^.data=1; 860:forme.rec_mirroir.mirroir_decalage:=tampon_word^.data; 861:forme.rec_mirroir.mirroir_transparence:=tampon_word^.data; 87:forme.rec_rayon.activer:=tampon_word^.data=1; 870:forme.rec_rayon.rayon_direction:=tampon_word^.data; 871:forme.rec_rayon.rayon_longeur:=tampon_word^.data; 872:forme.rec_rayon.rayon_nombre_d_element:=tampon_word^.data; 873:forme.rec_rayon.rayon_check_couleurs_transitions:=tampon_word^.data=1; 874:forme.rec_rayon.rayon_check_par_segment:=tampon_word^.data=1; 875:forme.rec_rayon.rayon_check_hls:=tampon_word^.data=1; 876:forme.rec_rayon.rayon_check_exp:=tampon_word^.data=1; 88:forme.rec_motif_plume.activer:=tampon_word^.data=1; 890:position:=tampon_word^.data; 891:une_couleur:=tampon_word^.data; 892: begin if forme.col_degra=nil then forme.col_degra:=u_object.T_Col_point_couleur.Create; forme.col_degra.Add(u_object.T_index_color.Create(position,une_couleur,tampon_word^.data)); end; 901:epaisseur:=tampon_word^.data; 902: begin if forme.plein_et_delier=nil then forme.plein_et_delier:=u_object.T_Col_ligne_epaisseur.Create; forme.plein_et_delier.add(T_index_epaisseur.create(epaisseur,tampon_word^.data)); end; 91:forme.rec_gradian.activer:=tampon_word^.data=1; 92:forme.rec_gradian.gradian_avec_finesse:=tampon_word^.data=1; 93:forme.rec_gradian.gradian_tls:=tampon_word^.data=1; 94:forme.rec_gradian.gradian_exp:=tampon_word^.data=1; 3000:forme.rec_outline.activer:=tampon_word^.data=1; 3001:forme.rec_outline.border_outline_with_hls_color:=tampon_word^.data=1; 3002:forme.rec_outline.border_outline_repartition_hls:=tampon_word^.data=1; 3003:forme.rec_outline.border_outline_show_the_way_as_a_light:=tampon_word^.data=1; 3004:forme.rec_outline.border_outline_lighty:=tampon_word^.data=1; 3005:forme.rec_outline.outline_border_relier:=tampon_word^.data=1; 3006:forme.rec_outline.border_outline_progress_outside:=tampon_word^.data=1; 3007:forme.rec_outline.border_outline_sinusoidale:=tampon_word^.data; 3010:forme.rec_point_de_fuite.activer:=tampon_word^.data=1; 3011:forme.rec_point_de_fuite.vers_point_de_fuite:=tampon_word^.data; 3012:forme.rec_point_de_fuite.distance_du_centre_au_point_de_fuite:=tampon_word^.data; {Les paramètres du tronc de cône} 3013:forme.rec_point_de_fuite.enable_tronc_de_cone:=tampon_word^.data=1; 3014:forme.rec_point_de_fuite.enable_tronc_de_cone_relier:=tampon_word^.data=1; 3015:forme.rec_point_de_fuite.enable_effet_teepee:=tampon_word^.data=1; 3016:forme.rec_point_de_fuite.distance_de_projection_de_l_arrondit:=tampon_word^.data; {Ces paramètres de colorisation} 3017:forme.rec_point_de_fuite.methode_arc_en_ciel:=tampon_word^.data=1; 3018:forme.rec_point_de_fuite.methode_gradians_gris:=tampon_word^.data=1; 3019:forme.rec_point_de_fuite.methode_faire_varier_l_intensite_au_millieu:=tampon_word^.data=1; 3020:forme.rec_point_de_fuite.methode_faire_varier_l_intensite_au_millieu_plus_clair:=tampon_word^.data=1; 3021:forme.rec_point_de_fuite.methode_inverse_le_border:=tampon_word^.data=1; {Les polygone sont remplit ou sont filiaire} 3022:forme.rec_point_de_fuite.bool_close_fermeture_polygone:=tampon_word^.data=1; //Les variables 3024: begin if forme.ses_variables=nil then forme.ses_variables:=u_object.metalist.create; une_qualite:=u_dico.Tvar_nom_qualite.Create_vide; forme.ses_variables.Add(une_qualite); decodage_d_un_pchar(une_qualite.nom); end; 3025:decodage_d_un_pchar(une_qualite.qualite); 3026:decodage_d_une_couleur(une_qualite.couleur); 3027:decodage_d_un_pchar(une_qualite.nom_de_la_texture); 3028:forme.attrib_murette:=tampon_word^.data; 3029:forme.scannage_de_la_ligne:=tampon_word^.data=1; 3030:forme.Normal_extra_style_ligne:=TDLN_Normal_extra_style_ligne(tampon_word^.data); 50:forme.epaisseur:=tampon_word^.data; 51:forme.epaisseur_went:=tampon_word^.data; 52:forme.epaisseur_seconde:=tampon_word^.data; 53:decodage_d_une_couleur(forme.couleur_pinceau); 54:decodage_d_une_couleur(forme.brush1.lbColor); 55:decodage_d_une_couleur(forme.brush1.lbStyle); 56:forme.brush1.lbHatch:=tampon_word^.data; 57:decodage_d_une_couleur(forme.brush2.lbColor); 58:forme.brush2.lbStyle:=tampon_word^.data; 59:forme.brush2.lbHatch:=tampon_word^.data; 60:decodage_d_une_couleur(forme.brush3.lbColor); 61:forme.brush3.lbStyle:=tampon_word^.data; 62:forme.brush3.lbHatch:=tampon_word^.data; 63:forme_deforme_count:=tampon_word^.data; 64:forme.couleur_vecteur:=tampon_word^.data; 65:forme.couleur_numerique_du_dessin_des_cercles:=tampon_word^.data; 66:forme.style_line:=tampon_word^.data; 67:forme.second_Style_line:=tampon_word^.data; 68:forme.size_array_hachure:=tampon_word^.data; 69:forme.rop2:=tampon_word^.data; 70:forme.remplissage:=tampon_word^.data; 71:forme.fondu_nombre_d_etape:=tampon_word^.data; 72:forme.fondu_intervalle_de_temps:=tampon_word^.data; 77:forme.longeur_vecteur:=tampon_word^.data; 73:forme.valeur_numerique_du_dessin_du_rayon:=tampon_word^.data; 74:forme.Number_of_division_concentrique:=tampon_word^.data; 75:forme.couleur_numerique_du_dessin_des_cercles:=tampon_word^.data; 76:forme.fond:=tampon_word^.data; 78:forme.transparent:=tampon_word^.data; 79:forme.texture_offset.x:=tampon_word^.data; 80:forme.texture_offset.y:=tampon_word^.data; 3200:forme.avec_bordure:=tampon_word^.data=1; 3201:forme.etape:=tampon_word^.data; 3202:forme.border_color:=tampon_word^.data; 3203:forme.bordure:=tampon_word^.data; 3210: begin if forme.cocarde_liste=nil then forme.cocarde_liste:=u_object.T_Col_point_couleur.Create; {contient des u_object.T_index_color} une_cocarde:=u_object.T_index_color.Create_pos(tampon_word^.data); forme.cocarde_liste.Add(une_cocarde); end; 3211:une_cocarde.color:=tampon_word^.data; 3212:une_cocarde.transparent:=tampon_word^.data; 3213:une_cocarde.style_ligne:=tampon_word^.data; 3214:une_cocarde.une_epaisseur_ligne:=tampon_word^.data; 3215:une_cocarde.visible:=tampon_word^.data<>0; 126:begin forme.rop2:=tampon_word^.data; fin:=true; end; end; {case} inc(tampon_word); end; {while} except end; end; {lecture_d_une_forme} { - la fonte est un exélent conducteur d'ondes acoustiques il à détruit sa canalisation en fonte à la masse il à su qu'il m'espionner avec de quoi alimenter toute une cité en eau pourtant ! Et coluche de préciser à son époque mais Votez pour des salops tout le temps : oui en fait c'est ce qui nous à décidait à voter pour Mithérant ! Mais quoi d'autre encore les psychiatres que vous faite alors : ils leurs donnent des médicaments pour les handicaper exprès ! Pour acheter la justice autant comme il le font acheter des voitures de luxes à ces enfoirés ils nous croiront se disent-ils en riant ! Madame Jean vous ment : après tout je vais bien sur je le prévois rapporter ces embalages des boxes en cartons aux Bouïges mais pourquoi couper les arbres en Amazonie autant emballer les steaks dans du plastique. Car nous pouvons certainement créer du plastique et du papier avec du chanvre indien ! Comme c'est décidé, je vais alors remettre 13 milles-millimes à ce Marocain équivalement actuel de 13 centimes Rend toi compte il en faudrais 10 comme moi pour que tu puisse t'acheter une bagette ! Pour une graine : est ce que tu peut tenir cette graine s'il te plais je me méfie toujours se sont des lentilles ! Mais en fait ce sont les oiseaux qui les ont disposés entre les planches ces graines de connaissances ! } procedure lecture_d_une_forme_de_dessin; var forme_dessin:wformes1.tforme_dessin; fin:bool; node:font_ob1.testnode; begin fin:=false; try inc(tampon_word); forme_dessin:=tforme_dessin.Create(0,0); forme_dessin.cotation.debut:=0; forme_dessin.cotation.fin:=0; forme_dessin.elements.FreeAll; un_layer.Add(forme_dessin); lecture_d_une_forme(forme_dessin); while not fin do begin case tampon_word^.kind of 0:forme_dessin.x:=tampon_word^.data; 1:forme_dessin.y:=tampon_word^.data; {$ifdef 3d} 2:forme_dessin.z:=tampon_word^.data; {$endif} (*3: begin nb_element:=tampon_word^.data; lecture_des_elements; end; *) 500: begin case tampon_word^.data of 1:node:=font_ob1.pointnode.Create(0,0); 2:node:=font_ob1.polynode.Create(0,0); 3:node:=font_ob1.ligneNode.Create(0,0); 4:node:=font_ob1.cercleNode.Create(0,0); 5:node:=font_ob1.splineNode.Create(0,0); 6:node:=font_ob1.QuadrasplineNode.Create(0,0); 7:node:=font_ob1.BezierNode.Create(0,0); 8:node:=font_ob1.QuarteNode.Create(0,0); 9:node:=font_ob1.QuartiNode.Create(0,0); 10:node:=font_ob1.arcNode.Create(0,0); 11:node:=font_ob1.arciNode.Create(0,0); 12:node:=font_ob1.demicerclenode.Create(0,0); 13:node:=font_ob1.bombicerclenode.Create(0,0); 14:node:=font_ob1.cercleNode.Create(0,0); 15:node:=font_ob1.diametrenode.Create(0,0); 16:node:=font_ob1.ellipseNode.Create(0,0); 17:node:=font_ob1.ellipsiNode.Create(0,0); 18:node:=font_ob1.cerclenode3pt.Create(0,0); 19:node:=font_ob1.connectHoriNode.Create(0,0); 20:node:=font_ob1.connectVertiNode.Create(0,0); 21:node:=font_ob1.connectHoriObliqueNode.Create(0,0); 22:node:=font_ob1.connectVertiObliqueNode.Create(0,0); 23:node:=font_ob1.ovalenode.Create(0,0); 24:node:=font_ob1.bombecerclenode.Create(0,0); end; {case} forme_dessin.elements.Add(node); end; 501:node.x:=tampon_word^.data; 502:node.y:=tampon_word^.data; {$ifdef 3d} 503:node.z:=tampon_word^.data; {$endif} 504:decodage_d_un_pchar(node.relational_name); 4:forme_dessin.cotation.debut:=tampon_word^.data; 5:forme_dessin.cotation.cota_taille:=tampon_word^.data; 6:forme_dessin.cotation.cota_angle:=tampon_word^.data; 7:forme_dessin.cotation.cota_angle:=tampon_word^.data; 8:forme_dessin.cotation.cota_taquet_superieur:=tampon_word^.data; 9:forme_dessin.cotation.cota_taquet_inferieur:=tampon_word^.data; 10:forme_dessin.cotation.cota_taquet_sup_double:=tampon_word^.data; 11:forme_dessin.cotation.cota_taquet_inf_double:=tampon_word^.data; 12:forme_dessin.cotation.cota_cote_position:=tampon_word^.data; 14:forme_dessin.cotation.cota_numeric_reference:=tampon_word^.data; 15:forme_dessin.cotation.integer_tangente_diametre:=tampon_word^.data; 16:forme_dessin.cotation.integer_tangente_diametre:=tampon_word^.data; 17:forme_dessin.cotation.couleur_de_la_tangente:=tampon_word^.data; 19:forme_dessin.cotation.bool_check_inverse:=tampon_word^.data<>0; 20:forme_dessin.cotation.bool_check_ferme:=tampon_word^.data<>0; 21:forme_dessin.cotation.bool_check_colore:=tampon_word^.data<>0; 22:forme_dessin.cotation.bool_check_multiligne:=tampon_word^.data<>0; 23:forme_dessin.cotation.bool_check_incurver:=tampon_word^.data<>0; 24:forme_dessin.cotation.bool_check_Taquet:=tampon_word^.data<>0; 25:forme_dessin.cotation.bool_check_cote:=tampon_word^.data<>0; 26:forme_dessin.cotation.bool_check_opaque:=tampon_word^.data<>0; 27:forme_dessin.cotation.bool_check_avec_des_coins:=tampon_word^.data<>0; 28:forme_dessin.cotation.bool_check_afficher_la_position:=tampon_word^.data<>0; 29:forme_dessin.cotation.bool_utiliser_les_caractere_baton:=tampon_word^.data<>0; 30:forme_dessin.cotation.bool_selon_lecran:=tampon_word^.data<>0; 31:forme_dessin.cotation.check_symbole_dessous:=tampon_word^.data<>0; 32:forme_dessin.cotation.check_cet_element_de_reference:=tampon_word^.data<>0; 33:forme_dessin.cotation.une_couleur_bien_choisie:=tampon_word^.data; 34:forme_dessin.cotation.rec_echelle.numerateur:=tampon_word^.data; 35:forme_dessin.cotation.rec_echelle.denominateur:=tampon_word^.data; 36:forme_dessin.cotation.rec_echelle.nb_entier:=tampon_word^.data; 37:forme_dessin.cotation.rec_echelle.nb_decimal_tronquer:=tampon_word^.data; 38:forme_dessin.cotation.rec_echelle.nb_decimal_visible:=tampon_word^.data; 39:forme_dessin.cotation.rec_echelle.logfont.lfHeight:=tampon_word^.data; 40:decodage_d_un_pchar(forme_dessin.cotation.rec_echelle.logfont.lfFaceName); 41:forme_dessin.cotation.rec_tolerance.check_plus:=tampon_word^.data<>0; 42:forme_dessin.cotation.rec_tolerance.check_moins:=tampon_word^.data<>0; 50:forme_dessin.cotation.rec_tolerance.check_encadrer:=tampon_word^.data<>0; 43:forme_dessin.cotation.rec_tolerance.check_colorier_le_cadre:=tampon_word^.data<>0; 44:decodage_d_un_pchar(forme_dessin.cotation.rec_tolerance.plus); 45:decodage_d_un_pchar(forme_dessin.cotation.rec_tolerance.moins); 46:decodage_d_une_couleur(forme_dessin.cotation.la_couleur_texte_cotation); 47:decodage_d_une_couleur(forme_dessin.cotation.la_couleur_de_fond); 18:forme_dessin.cotation.fin:=tampon_word^.data; 95:forme_dessin.cotation.angle_un_des_taquets:=tampon_word^.data; 96:forme_dessin.cotation.angle_dos_des_taquets:=tampon_word^.data; {Les paramètres d'affichage des tangentes - denis} 48:forme_dessin.cotation.boolean_tangente_activer:=tampon_word^.data<>0; 49:forme_dessin.cotation.integer_tangente_diametre:=tampon_word^.data; 90:forme_dessin.cotation.boolean_tangente_tiretet:=tampon_word^.data<>0; 91:forme_dessin.cotation.boolean_tangente_rondes:=tampon_word^.data<>0; 92:forme_dessin.cotation.boolean_tangente_demi_distance:=tampon_word^.data<>0; 93:forme_dessin.cotation.tangente_aleatoire:=tampon_word^.data<>0; 94:decodage_d_une_couleur(forme_dessin.cotation.couleur_de_la_tangente); 97:forme_dessin.show_rect_cadre:=tampon_word^.data<>0; 98:decodage_d_une_couleur(forme_dessin.show_rect_cadre_avec_cette_couleur); 99: begin forme_dessin.calcul; fin:=true; end; end; {case} inc(tampon_word); end; {while} dec(tampon_word); except end; end; {lecture_d_une_forme_de_dessin} procedure lecture_d_une_ligne_seule; var fin:bool; forme_dessin:tforme_dessin; anode,bnode:testnode; begin fin:=false; try inc(tampon_word); forme_dessin:=tforme_dessin.Create(0,0); anode:=forme_dessin.elements.at(0); bnode:=font_ob1.lignenode.create(0,0); forme_dessin.elements.add(bnode); un_layer.Add(forme_dessin); while not fin do begin case tampon_word^.kind of 2801:decodage_d_un_pchar(forme_dessin.name); 2802:forme_dessin.x:=tampon_word^.data; 2803:forme_dessin.y:=tampon_word^.data; {$ifdef 3d} 2804:forme_dessin.z:=tampon_word^.data; 2807:bnode.z:=tampon_word^.data; {$endif} 2844:decodage_d_un_pchar(anode.relational_name); { -- } 2805:bnode.x:=tampon_word^.data; 2806:bnode.y:=tampon_word^.data; 2855:decodage_d_un_pchar(bnode.relational_name); 2808: begin forme_dessin.epaisseur:=tampon_word^.data; forme_dessin.epaisseur_went:=tampon_word^.data; end; 2809:decodage_d_une_couleur(forme_dessin.couleur_pinceau); 2810:forme_dessin.style_line:=tampon_word^.data; 2811:forme_dessin.pen_terminated_style:=U_fast_bitmap.PTStyle(tampon_word^.data); 2812:forme_dessin.transparent:=tampon_word^.data; 2813:forme_dessin.epaisseur_seconde:=tampon_word^.data; 2800:fin:=true; end; {case} inc(tampon_word); end; {while} dec(tampon_word); forme_dessin.calcul; except end; end; {lecture_d_une_ligne_seule} procedure lecture_d_une_ligne_de_texte_vincent; var fin:boolean; ligne_vince:wformes1.tforme_text; begin fin:=false; try inc(tampon_word); ligne_vince:=wformes1.tforme_text.create(0,0); //Vector invent that nobody care embody team ! lecture_d_une_forme(ligne_vince); un_layer.Add(ligne_vince); while not fin do with ligne_vince,af,raf do begin case tampon_word^.kind of 100:ligne_vince.af.nom:=decodage_d_une_string; 97:ligne_vince.af.raf.texte:=decodage_d_une_string; 101:ligne_vince.definitif_progressive:=tampon_word^.data<>0; 102:ligne_vince.invert_xy:=tampon_word^.data<>0; 103:ligne_vince.bordure_du_texte:=tampon_word^.data<>0; 104:decodage_d_une_couleur(ligne_vince.couleur_de_bordure); 105:ligne_vince.dimension:=tampon_word^.data; 106:ligne_vince.af.raf.x:=tampon_word^.data; 107:ligne_vince.af.raf.y:=tampon_word^.data; {$ifdef 3d}108:af.raf.z:=tampon_word^.data;{$endif} 109:taille:=tampon_word^.data; 110:pourcent:=tampon_word^.data; 111:italique:=tampon_word^.data; 112:interLettre:=tampon_word^.data; 113:filet:=tampon_word^.data; 114:sousligner:=tampon_word^.data<>0; 115:barrer:=tampon_word^.data<>0; 116:encadrer:=tampon_word^.data<>0; 117:descendant:=tampon_word^.data<>0; 118:fond_du_cadre:=tampon_word^.data<>0; 119:Couleur_du_cadre:=tampon_word^.data; 120:int_value_de_debordement:=tampon_word^.data; 121:int_value_de_transparence:=tampon_word^.data; 122:Check_10eme_de_millimetre:=tampon_word^.data<>0; 123:Check_arrondi_des_rectarond:=tampon_word^.data<>0; 124:le_bizeau_des_textes:=tampon_word^.data<>0; 125:Check_ellipse:=tampon_word^.data<>0; 126:index:=tampon_word^.data; 127:invert_xy:=tampon_word^.data<>0; 128: begin Transition_vertical_aleatoire:=tampon_word^.data<>0; fin:=True; end; end; {case} inc(tampon_word); end; {while} dec(tampon_word); ligne_vince.calcul; except end; end; {lecture_d_une_ligne_de_texte_vincent} // il ment ce salot d'Éric comme les Geskovichistes comme ça lui fait "envie" comme ca lui fait plaisir de le faire croire. procedure lecture_d_un_groupe(wmsg:outil.twmsg; kind:integer); var temp_echange_de_collection:u_object.metalist; un_Groupe:wformes2.tforme_groupe; begin try un_Groupe:=nil; case kind of 1100:un_Groupe:=wformes2.tforme_groupe.Create(0,0,0,0,-1); 1500: begin un_Groupe:=wformes2.tforme_groupe(wformes2.Tforme_indice.Create(0,0,0,0,0,-1)); inc(tampon_word); if tampon_word.kind=1501 then begin wformes2.Tforme_indice(un_Groupe).indice:=tampon_word^.data; inc(tampon_word); end; end; 1200:un_Groupe:=wformes2.tforme_groupe(wformes2.tforme_symetrie_horizontale.Create(0,0,0,0,-1)); 1300:un_Groupe:=wformes2.tforme_groupe(wformes2.tforme_symetrie_verticale.Create(0,0,0,0,-1)); 2900:un_Groupe:=wformepa.tforme_pavage.create(0,0,0,0); end; un_layer.Add(un_Groupe); inc(tampon_word); un_Groupe.rect.Left:=tampon_word^.data; inc(tampon_word); un_Groupe.rect.Top:=tampon_word^.data; inc(tampon_word); un_Groupe.rect.Right:=tampon_word^.data; inc(tampon_word); un_Groupe.rect.Bottom:=tampon_word^.data; //inc(tampon_word); //denis temp_echange_de_collection:=un_layer; un_layer:=col_plan.TCalque(un_Groupe.groupe); boucle_de_lecture(wmsg,un_Groupe); un_layer:=col_plan.TCalque(temp_echange_de_collection); un_Groupe.calcul; finally end; end; //écrit par Denis bertin le 12.11.2022 procedure lecture_d_une_ligne_de_texte; var une_forme_ligne:wformes1.tforme_ligne; fin:boolean; begin inc(tampon_word); une_forme_ligne:=wformes1.tforme_ligne.Create_vide; un_layer.Add(une_forme_ligne); fin:=false; while not fin do begin case tampon_word^.kind of 200:une_forme_ligne.position.x:=tampon_word^.data; 201:une_forme_ligne.position.y:=tampon_word^.data; {$ifdef 3d} 202:une_forme_ligne.position.z:=tampon_word^.data; {$endif} 203:une_forme_ligne.ligne:=decodage_d_une_string; 204:une_forme_ligne.fonte:=decodage_d_une_string; 205:une_forme_ligne.size:=tampon_word^.data; 206:une_forme_ligne.bold:=tampon_word^.data<>0; 207:une_forme_ligne.italic:=tampon_word^.data<>0; 208:une_forme_ligne.souslaligne:=tampon_word^.data<>0; 209:une_forme_ligne.stylebarrer:=tampon_word^.data<>0; 210:une_forme_ligne.rotation:=tampon_word^.data; 211:une_forme_ligne.une_couleur_par_lettre:=tampon_word^.data<>0; 212:une_forme_ligne.coef_horizontal:=tampon_word^.data; 213:une_forme_ligne.transparent:=tampon_word^.data; 214:decodage_d_une_couleur(une_forme_ligne.brush1.lbColor); 215:une_forme_ligne.coef_horizontal:=tampon_word^.data; 199:fin:=true; end; inc(tampon_word); end; une_forme_ligne.calcul; dec(tampon_word); end; //ecrit le 12.11.2022 procedure lecture_des_littles_textes; var un_little_texte:tforme_little_texte; fin:bool; begin fin:=false; inc(tampon_word); un_little_texte:=tforme_little_texte.Create_vide; lecture_d_une_forme(un_little_texte); un_layer.Add(un_little_texte); while not fin do with un_little_texte do begin case tampon_word^.kind of 400:position.x:=tampon_word^.data; 401:position.y:=tampon_word^.data; {$ifdef 3d} 402:position.z:=tampon_word^.data; {$endif} 403:size:=tampon_word^.data; 404:ligne:=decodage_d_une_string; 405:invert_xy:=tampon_word^.data<>0; 399:fin:=true; end; inc(tampon_word); end; un_little_texte.calcul; dec(tampon_word); end; {tforme_little_texte.Export_ato_binaire} procedure lecture_d_une_image; var fin:bool; forme_TBitMap:Tforme_TBitMap; arect:trect; i,j:integer; begin fin:=false; inc(tampon_word); forme_TBitMap:=Tforme_TBitMap.create_vide; un_layer.Add(forme_TBitMap); //non while not fin do //denis begin case tampon_word^.kind of 1008: begin wformebm.une_image_a_obtenir.SetPixel(i,j,tampon_word^.data); inc(i); if i=forme_TBitMap.BitMap.Width then begin i:=0; inc(j); end; end; 1001:forme_TBitMap.ombre:=tampon_word^.data; 1003:forme_TBitMap.Rect.Left:=tampon_word^.data; 1004:forme_TBitMap.Rect.Top:=tampon_word^.data; 1005:forme_TBitMap.Rect.Right:=tampon_word^.data; 1006:forme_TBitMap.Rect.Bottom:=tampon_word^.data; 1007:forme_TBitMap.taille_text_du_bouton:=tampon_word^.data; 1009:forme_TBitMap.propriete_exif.Add(decodage_d_une_string); 1012:forme_TBitMap.nom_de_l_image:=decodage_d_une_string; 1013:forme_TBitMap.text_du_bouton:=decodage_d_une_string; 1014:forme_TBitMap.font_text_du_bouton:=decodage_d_une_string; 1015:forme_TBitMap.old_nom_de_l_image:=decodage_d_une_string; 1016:forme_TBitMap.replier_les_exif:=tampon_word^.data<>0; 1018:decodage_d_une_couleur(forme_TBitMap.brush1.lbColor); 1002:forme_TBitMap.transparent:=tampon_word^.data; 1010:forme_TBitMap.fond:=tampon_word^.data; 1011:forme_TBitMap.rop2:=tampon_word^.data; 1021:forme_TBitMap.BitMap.Width:=tampon_word^.data; 1022: begin i:=0; j:=0; forme_TBitMap.BitMap.Height:=tampon_word^.data; wformebm.une_image_a_obtenir.Copy(forme_TBitMap.BitMap); end; 8218:forme_TBitMap.texture:=decodage_d_une_string; 8219:forme_TBitMap.texture_offset.x:=tampon_word^.data; 8220:forme_TBitMap.texture_offset.y:=tampon_word^.data; 8221:forme_TBitMap.texture_scale.x:=tampon_word^.data; 8222:forme_TBitMap.texture_scale.y:=tampon_word^.data; 1000:fin:=true; end; inc(tampon_word); end; dec(tampon_word); //Denis end; {lecture_d_une_image} procedure lecture_d_un_block_de_texte; // Écrit par denis Bertin le 13.11.2022 var fin:bool; un_carac:Tun_carac; un_attrib:Tun_attrib; Forme_bloc_de_true_type:TForme_bloc_de_true_type; begin fin:=false; inc(tampon_word); Forme_bloc_de_true_type:=TForme_bloc_de_true_type.Create(0,0,0,0); un_layer.Add(Forme_bloc_de_true_type); while not fin do begin case tampon_word^.kind of 717: begin un_carac:=Tun_carac.create(chr(tampon_word^.data)); Forme_bloc_de_true_type.une_collection.Add(un_carac); end; 718:un_carac.selected:=tampon_word^.data<>0; 711:Forme_bloc_de_true_type.posit_cursor:=tampon_word^.data; 712:Forme_bloc_de_true_type.bottom_posit:=tampon_word^.data; 713:Forme_bloc_de_true_type.fond_transparent:=tampon_word^.data<>0; 714:Forme_bloc_de_true_type.alignement:=TAlignement(tampon_word^.data); 715:Forme_bloc_de_true_type.debogue:=tampon_word^.data<>0; 716:Forme_bloc_de_true_type.justification:=tampon_word^.data; 725:Forme_bloc_de_true_type.rect.Left:=tampon_word^.data; 726:Forme_bloc_de_true_type.rect.top:=tampon_word^.data; 727:Forme_bloc_de_true_type.rect.right:=tampon_word^.data; 728:Forme_bloc_de_true_type.rect.bottom:=tampon_word^.data; 719: begin un_attrib:=Tun_attrib.create_vide; Forme_bloc_de_true_type.une_collection.Add(un_attrib); un_attrib.size_font:=tampon_word^.data; end; 720:decodage_d_un_pchar(un_attrib.font_name); 721:decodage_d_une_couleur(un_attrib.de_cette_couleur); 722:un_attrib.typography_grasse:=tampon_word^.data<>0; 723:un_attrib.typographie_italic:=tampon_word^.data<>0; 724:un_attrib.typographie_sousligner:=tampon_word^.data<>0; 730:un_attrib.typographie_strikeout:=tampon_word^.data<>0; 740:decodage_d_une_couleur(Forme_bloc_de_true_type.brush1.lbColor); 710:fin:=true; end; inc(tampon_word); end; Forme_bloc_de_true_type.calcul; dec(tampon_word); end; {lecture_d_un_block_de_texte} procedure lecture_d_un_repere; var fin:bool; forme_axe_repere:tforme_axe_repere; begin fin:=false; inc(tampon_word); forme_axe_repere:=tforme_axe_repere.Create(0,0{$ifdef 3d},0{$endif 3d}); lecture_d_une_forme(forme_axe_repere); un_layer.Add(forme_axe_repere); while not fin do begin case tampon_word^.kind of 701:forme_axe_repere.x:=tampon_word^.data; 702:forme_axe_repere.y:=tampon_word^.data; {$ifdef 3d} 703:forme_axe_repere.z:=tampon_word^.data; {$endif} 700:fin:=True; end; {case} inc(tampon_word); end; {while} forme_axe_repere.Calcul; dec(tampon_word); end; var forme_interpolation:tforme_Interpolation; un_index_en_couleur:u_object.T_index_color; procedure lecture_d_une_interpolation(wmsg:outil.twmsg); var temp_echange_de_collection:u_object.metalist; begin try inc(tampon_word); forme_interpolation:=tforme_Interpolation.Create; un_layer.Add(forme_interpolation); temp_echange_de_collection:=un_layer; un_layer:=tCalque(forme_interpolation.groupe); boucle_de_lecture(wmsg,forme_interpolation); un_layer:=col_plan.TCalque(temp_echange_de_collection); forme_interpolation.Calcul; except end; end; {lecture_d_une_interpolation} procedure lecture_d_un_patch_bicubic; var fin:boolean; i,j:byte; une_forme_bicubic:wformes2.tforme_bicubic; begin i:=1; j:=1; inc(tampon_word); fin:=false; une_forme_bicubic:=wformes2.tforme_bicubic.Create; un_layer.Add(une_forme_bicubic); while not fin do begin case tampon_word^.kind of 1602:une_forme_bicubic.tableau[i,j].x:=tampon_word^.data; 1603: begin une_forme_bicubic.tableau[i,j].y:=tampon_word^.data; inc(i); if i=5 then begin inc(j); i:=1; end; end; {$ifdef 3d} 1604:une_forme_bicubic.tableau[i,j].z:=tampon_word^.data; {$endif} 1605:une_forme_bicubic.remplir:=tampon_word^.data<>0; 1606:une_forme_bicubic.bool_quatre_couleur:=tampon_word^.data<>0; 1607:une_forme_bicubic.check_HLS:=tampon_word^.data<>0; 1608:decodage_d_une_couleur(une_forme_bicubic.les_quatre_couleur[1]); 1609:decodage_d_une_couleur(une_forme_bicubic.les_quatre_couleur[2]); 1610:decodage_d_une_couleur(une_forme_bicubic.les_quatre_couleur[3]); 1611:decodage_d_une_couleur(une_forme_bicubic.les_quatre_couleur[4]); 1620:une_forme_bicubic.rect.Left:=tampon_word^.data; 1621:une_forme_bicubic.rect.Top:=tampon_word^.data; 1622:une_forme_bicubic.rect.Right:=tampon_word^.data; 1623:une_forme_bicubic.rect.Bottom:=tampon_word^.data; 1600:fin:=true; end; {case} inc(tampon_word); end; une_forme_bicubic.calcul; dec(tampon_word); end; {lecture_d_un_patch_bicubic} procedure decodage_des_rules; //le 21.12.2022 C'Db var fin:bool; une_rules:urules.TUne_rules; Une_Regle_pour_la_couleur:urules.TUne_Regle_pour_la_couleur; begin inc(tampon_word); fin:=false; if wmain.MainWindow.ma_collection_regle<>nil then wmain.MainWindow.ma_collection_regle.freeall else wmain.MainWindow.ma_collection_regle:=urules.Tcol_rules.create; while not fin do begin case tampon_word^.kind of 1901: begin une_rules:=urules.TUne_rules.create; wmain.MainWindow.ma_collection_regle.add(une_rules); decodage_d_un_pchar(une_rules.pour_ce_point); end; 1902:decodage_d_un_pchar(une_rules.avec_ce_point); 1903:une_rules.radio_position_relative:=tampon_word^.data<>0; 1904:une_rules.radio_Position_angulary:=tampon_word^.data<>0; 1905:une_rules.radio_Position_entre_deux:=tampon_word^.data<>0; 1906:une_rules.edit_numeric_x:=tampon_word^.data; 1907:une_rules.edit_numeric_y:=tampon_word^.data; {$ifdef 3d} 1908:une_rules.edit_numeric_z:=tampon_word^.data; {$endif} 1930:une_rules.distance:=tampon_word^.data; // En 32 bits integer data 1931:une_rules.rotation:=tampon_word^.data; // En 32 bits integer data 1932:une_rules.inversion_positive:=tampon_word^.data<>0; 1910: begin Une_Regle_pour_la_couleur:=urules.TUne_Regle_pour_la_couleur.Create; wmain.MainWindow.ma_collection_regle.add(Une_Regle_pour_la_couleur); decodage_d_un_pchar(Une_Regle_pour_la_couleur.pour_cette_element); end; 1911:decodage_d_un_pchar(Une_Regle_pour_la_couleur.avec_cette_element); 1912:decodage_d_une_couleur(Une_Regle_pour_la_couleur.une_couleur_de_contour); 1913:decodage_d_une_couleur(Une_Regle_pour_la_couleur.une_couleur_de_remplissage); 1900:fin:=true; end; inc(tampon_word); end; dec(tampon_word); end; procedure lecture_digital_kind; var fin:boolean; une_forme_digital_kind:wformedk.tformedk; une_couleur:u_object.T_index_color; begin fin:=false; inc(tampon_word); while not fin do begin case tampon_word^.kind of 2001: begin case tampon_word^.data of kid_wformedisk,kid_wformetore:une_forme_digital_kind:=wformedk.tformedk.Create(0,0,0,0,false); kid_forme_anneau:une_forme_digital_kind:=wformedk.Tformedkanneau.Create(0,0,0,0); kid_wformespirale:une_forme_digital_kind:=wformedk.tformedk_spirale.Create(0,0,0,0,false); kid_wformeray:une_forme_digital_kind:=wformedk.tformedk_etoile.Create(0,0,0,0,false); kid_wformenucleaire:une_forme_digital_kind:=wformedk.tformedk_nucleaire.Create(0,0,0,0,false); kid_wforme_arbre:une_forme_digital_kind:=wformedk.tformedb_arbo.Create(0,0,0); kid_wforme_trou_noir:une_forme_digital_kind:=wformedk.tformedk_blackholl.Create(0,0,0); kid_wforme_cadre_marin:une_forme_digital_kind:=wformedk.Tformedk_cadre_marin.Create(0,0,0,0); kid_wforme_ray_circle:une_forme_digital_kind:=wformedk.tformedk_raycircle.Create(0,0,0); kid_wformvbomb:une_forme_digital_kind:=wformedk.tformedk_bomber_vertical.Create(0,0,0,0); kid_wformhbomb:une_forme_digital_kind:=wformedk.tformedk_bomber_horizontal.Create(0,0,0,0); kid_wform_moon:une_forme_digital_kind:=wformedk.tformedk_evolution_lune.Create(0,0,0,0,0,0); kid_wformephong:une_forme_digital_kind:=wformedk.tformedk_demisphere.Create(0,0,0,0,0,0,false,false,false,false,false,false,0); kid_wformeinimitable:une_forme_digital_kind:=wformedk.tformedk_rect_inimitable.Create(0,0,0,0); kid_wformegoute_deau:une_forme_digital_kind:=wformedk.tformedk_goute_deau_inscrit.Create(0,0,0,0,false,false); kid_wformvarm:une_forme_digital_kind:=wformedk.tformedk_bras_vertical.Create(0,0,0,0); kid_wformharm:une_forme_digital_kind:=wformedk.tformedk_bras_horizontal.Create(0,0,0,0); kid_wformvpiston:une_forme_digital_kind:=wformedk.tformedk_piston_vertical.Create(0,0,0,0); kid_wformhpiston:une_forme_digital_kind:=wformedk.tformedk_piston_horizontal.Create(0,0,0,0); kid_wformvland:une_forme_digital_kind:=wformedk.tformedk_palier_vertical.Create(0,0,0,0); kid_wformhland:une_forme_digital_kind:=wformedk.tformedk_palier_horizontal.Create(0,0,0,0); end; {case} un_layer.Add(une_forme_digital_kind); end; 2002:une_forme_digital_kind.x:=tampon_word^.data; 2003:une_forme_digital_kind.y:=tampon_word^.data; {$ifdef 3d} 2004:une_forme_digital_kind.z:=tampon_word^.data; {$endif 3d} 2603:wformedk.tformedk_rect_inimitable(une_forme_digital_kind).l:=tampon_word^.data; 2604:wformedk.tformedk_rect_inimitable(une_forme_digital_kind).h:=tampon_word^.data; 2005:une_forme_digital_kind.r:=tampon_word^.data; 2006:une_forme_digital_kind.r2:=tampon_word^.data; 2007:une_forme_digital_kind.bool_disque:=tampon_word^.data<>0; 2008:une_forme_digital_kind.transparent:=tampon_word^.data; 2009:decodage_d_une_couleur(une_forme_digital_kind.brush1.lbColor); 2200:wformedk.tformedk_spirale(une_forme_digital_kind).nb_circonvolution:=tampon_word^.data; 2201:wformedk.tformedk_spirale(une_forme_digital_kind).monochrome:=tampon_word^.data<>0; 2100:wformedk.tformedk_etoile(une_forme_digital_kind).nb_branche:=tampon_word^.data; 2101:wformedk.tformedk_etoile(une_forme_digital_kind).afficher_les_segments:=tampon_word^.data<>0; 2202:wformedk.tformedk_nucleaire(une_forme_digital_kind).nb_division:=tampon_word^.data; 2203:wformedk.tformedk_nucleaire(une_forme_digital_kind).infinite:=tampon_word^.data<>0; 2204:wformedk.tformedk_nucleaire(une_forme_digital_kind).helice:=tampon_word^.data<>0; 2305:wformedk.tformedk_nucleaire(une_forme_digital_kind).angle_rotation:=tampon_word^.data; 2401:wformedk.tformedk_demisphere(une_forme_digital_kind).angle_lumiere_horizontal:=tampon_word^.data; 2402:wformedk.tformedk_demisphere(une_forme_digital_kind).angle_lumiere_vertical:=tampon_word^.data; 2403:wformedk.tformedk_demisphere(une_forme_digital_kind).pourcent_phong:=tampon_word^.data; 2404:wformedk.tformedk_demisphere(une_forme_digital_kind).avec_perturbation:=tampon_word^.data<>0; 2405:wformedk.tformedk_demisphere(une_forme_digital_kind).avec_concentrique:=tampon_word^.data<>0; 2406:wformedk.tformedk_demisphere(une_forme_digital_kind).avec_paralelle:=tampon_word^.data<>0; 2407:wformedk.tformedk_demisphere(une_forme_digital_kind).avec_des_lignes_rouges:=tampon_word^.data<>0; 2408:wformedk.tformedk_demisphere(une_forme_digital_kind).avec_des_axes:=tampon_word^.data<>0; 2409:wformedk.tformedk_demisphere(une_forme_digital_kind).avec_effet_fondu:=tampon_word^.data<>0; 2410:wformedk.tformedk_demisphere(une_forme_digital_kind).number_of_ramdom_pixel:=tampon_word^.data; 2501:Tformedk_evolution_lune(une_forme_digital_kind).phase:=tampon_word^.data; 2502:Tformedk_evolution_lune(une_forme_digital_kind).vertical:=tampon_word^.data; 2503:Tformedk_evolution_lune(une_forme_digital_kind).fondu:=tampon_word^.data; 2504:Tformedk_evolution_lune(une_forme_digital_kind).option_byzance:=tampon_word^.data<>0; 2505:Tformedk_evolution_lune(une_forme_digital_kind).option_lune_scanner:=tampon_word^.data<>0; 2506:Tformedk_evolution_lune(une_forme_digital_kind).option_lune_colorer:=tampon_word^.data<>0; 2507:Tformedk_evolution_lune(une_forme_digital_kind).option_lune_total_obscure:=tampon_word^.data<>0; 2508:Tformedk_evolution_lune(une_forme_digital_kind).option_simuler_sa_position:=tampon_word^.data<>0; 2509:Tformedk_evolution_lune(une_forme_digital_kind).option_abstrait:=tampon_word^.data<>0; 2510:Tformedk_evolution_lune(une_forme_digital_kind).rotation:=tampon_word^.data; 2511:Tformedk_evolution_lune(une_forme_digital_kind).option_terre_scanner:=tampon_word^.data<>0; 2701:tformedb_arbo(une_forme_digital_kind).Nb_branche:=tampon_word^.data; 2702:tformedb_arbo(une_forme_digital_kind).Nb_profondeur:=tampon_word^.data; 2703:tformedb_arbo(une_forme_digital_kind).Angle_defaut_possible:=tampon_word^.data; 2704:tformedb_arbo(une_forme_digital_kind).Should_be_offseted_by_this_angle:=tampon_word^.data; 2705:tformedb_arbo(une_forme_digital_kind).En_couleur:=tampon_word^.data<>0; 2706:tformedb_arbo(une_forme_digital_kind).Arc_en_ciel:=tampon_word^.data<>0; 2707:tformedb_arbo(une_forme_digital_kind).Afficher_les_feuilles:=tampon_word^.data<>0; 2800:wformedk.tformedk_blackholl(une_forme_digital_kind).bool_d_une_couleur_particuliere:=tampon_word^.data<>0; 2801:wformedk.Tformedk_cadre_marin(une_forme_digital_kind).division_hori:=tampon_word^.data; 2802:wformedk.Tformedk_cadre_marin(une_forme_digital_kind).division_verti:=tampon_word^.data; 2803:wformedk.Tformedk_cadre_marin(une_forme_digital_kind).bordure:=tampon_word^.data; 2804:wformedk.Tformedk_cadre_marin(une_forme_digital_kind).Couleur_des_coins:=tampon_word^.data; 2805:wformedk.Tformedk_cadre_marin(une_forme_digital_kind).Couleur_des_marques:=tampon_word^.data; 2806:wformedk.Tformedk_cadre_marin(une_forme_digital_kind).Couleur_des_separation:=tampon_word^.data; 2901:wformedk.tformedk_goute_deau_inscrit(une_forme_digital_kind).sens_inverse:=tampon_word^.data<>0; 2902:wformedk.tformedk_goute_deau_inscrit(une_forme_digital_kind).multicolor:=tampon_word^.data<>0; 2910:wformedk.tformedk_raycircle(une_forme_digital_kind).val_nb_branche:=tampon_word^.data; 2911:wformedk.tformedk_raycircle(une_forme_digital_kind).val_space_for_ray:=tampon_word^.data; 2912:wformedk.tformedk_raycircle(une_forme_digital_kind).choix_du_dessin:=T_choix_des_rayons(tampon_word^.data); 2913:wformedk.tformedk_raycircle(une_forme_digital_kind).bool_multicolor:=tampon_word^.data<>0; 2914:wformedk.tformedk_raycircle(une_forme_digital_kind).barioler:=tampon_word^.data; 2915:wformedk.tformedk_raycircle(une_forme_digital_kind).bool_effet_escompter:=tampon_word^.data<>0; 2916:wformedk.tformedk_raycircle(une_forme_digital_kind).bool_condition_carre:=tampon_word^.data<>0; 2917:wformedk.tformedk_raycircle(une_forme_digital_kind).bool_dessin_etoile_de_carte:=tampon_word^.data<>0; 2918:wformedk.tformedk_raycircle(une_forme_digital_kind).bool_dessin_multiple_coins:=tampon_word^.data<>0; 2919:wformedk.tformedk_raycircle(une_forme_digital_kind).bool_rayon:=tampon_word^.data<>0; 2920:wformedk.tformedk_raycircle(une_forme_digital_kind).bool_sirius:=tampon_word^.data<>0; 2921:wformedk.tformedk_raycircle(une_forme_digital_kind).bool_with_hls:=tampon_word^.data<>0; 2922:wformedk.tformedk_raycircle(une_forme_digital_kind).bool_with_exp:=tampon_word^.data<>0; 2923:wformedk.tformedk_raycircle(une_forme_digital_kind).bool_transparence_de_surface:=tampon_word^.data<>0; 2924:wformedk.tformedk_raycircle(une_forme_digital_kind).bool_apparence_du_soleil:=tampon_word^.data<>0; 2925:wformedk.tformedk_raycircle(une_forme_digital_kind).bool_couleurs_passageres:=tampon_word^.data<>0; 2926: begin une_couleur:=u_object.T_index_color.Create(tampon_word^.data); if une_forme_digital_kind.col_degra=nil then une_forme_digital_kind.col_degra:=u_object.T_Col_point_couleur.Create; une_forme_digital_kind.col_degra.Add(une_couleur); end; 2927:decodage_d_une_couleur(une_couleur.color); 2928:une_couleur.transparent:=tampon_word^.data; 2000:fin:=true; end; {case} inc(tampon_word); end; une_forme_digital_kind.calcul; dec(tampon_word); end; {lecture_digital_kind} //Import des Cadres, des Goullotes en entrée bionique le 30.12.2022 - denis stéphane Beelog procedure lecture_des_Goulotes; begin inc(tampon_word); global_bool_Afficher_la_liste_des_cadres_x:=tampon_word^.data; inc(tampon_word); wproche.global_bool_Afficher_la_liste_des_cadres_y:=tampon_word^.data;; inc(tampon_word); wproche.global_bool_Afficher_la_liste_des_cadres_goulotte:=tampon_word^.data;; inc(tampon_word); wproche.global_bool_Afficher_la_liste_des_cadres_au_dessous:=tampon_word^.data<>0; inc(tampon_word); wproche.global_bool_Afficher_la_liste_des_cadres_couleur_des_cadres:=tampon_word^.data; inc(tampon_word); wproche.global_bool_Afficher_la_liste_des_cadres_couleur_des_goulottes:=tampon_word^.data; inc(tampon_word); wproche.global_bool_Afficher_la_liste_des_cadres_marge_gauche:=tampon_word^.data; inc(tampon_word); wproche.global_bool_Afficher_la_liste_des_cadres_marge_haute:=tampon_word^.data; inc(tampon_word); wproche.global_bool_Afficher_la_liste_des_cadres_marge_droite:=tampon_word^.data; inc(tampon_word); wproche.global_bool_Afficher_la_liste_des_cadres_marge_basse:=tampon_word^.data; inc(tampon_word); wproche.global_bool_Activer_les_cadres_magnetiques:=tampon_word^.data<>0; inc(tampon_word); wproche.global_bool_Activer_les_cadres_sensibilite:=tampon_word^.data; inc(tampon_word); end; {Import Bio des cadres Frames et goulottes, écrit par denis bertin le 30 décembre 2022} procedure boucle_de_lecture(wmsg:outil.twmsg; un_groupe:wformes2.tforme_groupe); var fin:boolean; bool_valide:boolean; nom_du_calque:string; first:boolean; Guide_couleur:u_object.T_Guide_couleur; begin fin:=false; bool_valide:=false; first:=true; while not fin do begin case tampon_word^.kind of 2800:lecture_d_une_ligne_seule; 98:lecture_d_une_forme_de_dessin; 99:lecture_d_une_ligne_de_texte_vincent; 1100,1500,1200,1300,2900: if tampon_word^.data=0 then exit else lecture_d_un_groupe(wmsg,tampon_word^.kind); 1400:if tampon_word^.data=0 then exit else lecture_d_une_interpolation(wmsg); 1600:lecture_d_un_patch_bicubic; 199:lecture_d_une_ligne_de_texte; 399:lecture_des_littles_textes; 710:lecture_d_un_block_de_texte; 1000:lecture_d_une_image; //Elle nous ment enore ! chose formidable elle ment tout le temps ! 10000:wmsg.zoom_coef:=tampon_word^.data/1000; 10001:; 10002:; 10003:decodage_d_une_couleur(wmain.MainWindow.rec_taille_doc.couleur_cadre_externe); 598:bool_valide:=tampon_word^.data=1540; 597:bool_valide:=bool_valide and (tampon_word^.data=1440); 596:bool_valide:=bool_valide and (tampon_word^.data=$1032); 595:decodage_d_une_string; 599: begin nom_du_calque:=decodage_d_une_string; un_layer:=col_plan.TCalque.Create(pchar(nom_du_calque)); if first then wmsg.col_dessin.list_calque.Clear; first:=false; wmsg.col_dessin.list_calque.add(un_layer); if (wmain.winpanellayer<>nil) and wmain.winpanellayer.Is_Visible then wmain.winpanellayer.redraw; end; 601:un_layer.visible:=tampon_word^.data; 602:un_layer.minz:=tampon_word^.data; 603:un_layer.maxz:=tampon_word^.data; 604:un_layer.color_by_layer:=tampon_word^.data; 605:un_layer.zoption:=tampon_word^.data; 606:wmsg.col_dessin.index_actif:=tampon_word^.data; //Les modes de l'aliasing 607:u_fast_bitmap.antialiasing:=tampon_word^.data<>0; 611:u_fast_bitmap.forte_alias:=tampon_word^.data<>0; 609:u_fast_bitmap.double_alias:=tampon_word^.data<>0; //610:u_fast_bitmap.quadruple:=tampon_word^.data<>0; //607:nombre_index:=tampon_word^.data; 608:if un_layer.classtype=tcalque then un_layer.col_select.add(u_object.tindex.create(tampon_word^.data)); 700:lecture_d_un_repere; 888:if un_layer.classtype=tcalque then un_layer.col_select.select.Sort(@u_object.Compare_Index); 999:fin:=true; 1401:forme_interpolation.transy_une:=tampon_word^.data; 1402:forme_interpolation.transy_deux:=tampon_word^.data; 1403:forme_interpolation.hls_Interpolation:=tampon_word^.data<>0; 1404:forme_interpolation.exp_Interpolation:=tampon_word^.data<>0; 1405:forme_interpolation.check_sinusoidale:=tampon_word^.data<>0; 1406:forme_interpolation.check_coquillage:=tampon_word^.data<>0; 1407:forme_interpolation.style_line:=tampon_word^.data; 1408:forme_interpolation.second_Style_line:=tampon_word^.data; 1409:forme_interpolation.nb_forme_intermediaire:=tampon_word^.data; //Les index des couleurs des interpolations en couleurs. 1420: begin un_index_en_couleur:=u_object.T_index_color.Create(tampon_word^.data); if forme_interpolation.cocarde_liste=nil then forme_interpolation.cocarde_liste:=u_object.T_Col_point_couleur.create; forme_interpolation.cocarde_liste.Add(un_index_en_couleur); end; 1421,1431:decodage_d_une_couleur(un_index_en_couleur.color); 1422,1433:un_index_en_couleur.transparent:=tampon_word^.data; 1430: begin un_index_en_couleur:=u_object.T_index_color.Create(tampon_word^.data); if forme_interpolation.cocarde_remplissage=nil then forme_interpolation.cocarde_remplissage:=u_object.T_Col_point_couleur.create; forme_interpolation.cocarde_remplissage.Add(un_index_en_couleur); end; // Cadre de la page et lecture des guides maire Michel est exact : mais ils achetaint nos magazines // repartaient avec nos photographies et nos Bagnolles veillez parlez devant l'hygiaphone : oui c'est oui-oui // il écrit et gilles le fait croire avec toute son équipe qui n'a jamais écrit ça. // à Chateauroux bien avant ceci sa fille avait caffeté on le sait que ce n'était pas le professeur de Mathématique qui l'avait écrit // Non plus comment savoir véritablement si les machines a votrer doivent alors être plus // Favorablement vérifiés par ceux de la chose Public que ceux que l'on à privé de nos besoins essenciels // il mangaient pourtant eux aussi des nouilles il me semble à dit la Juge. 629: begin Guide_couleur:=u_object.T_Guide_couleur(u_object.T_Angle_Guide.create(tampon_word^.data,0)); wmsg.colec_guide_anglulaire.Add(Guide_couleur); end; 630:u_object.T_Angle_Guide(Guide_couleur).y:=tampon_word^.data; {$ifdef 3d} 631:u_object.T_Angle_Guide(Guide_couleur).z:=tampon_word^.data; {$endif 3d} 636: begin Guide_couleur:=u_object.T_Guide_couleur.Create(tampon_word^.data); wmsg.colec_guide_verticale.Add(Guide_couleur); end; 616: begin Guide_couleur:=u_object.T_Guide_couleur.Create(tampon_word^.data); wmsg.colec_guide_horizontale.Add(Guide_couleur); end; 617,637:guide_couleur.transparent:=tampon_word^.data; 618,638: if guide_couleur.classtype=u_object.T_Mini_Guide then decodage_d_une_couleur(u_object.T_Mini_Guide(Guide_couleur).color) else decodage_d_une_couleur(guide_couleur.color); 632:u_object.T_Angle_Guide(Guide_couleur).angle:=tampon_word^.data*Pi/1800; 628:decodage_d_une_couleur(u_object.T_Angle_Guide(Guide_couleur).color); 643: begin Guide_couleur:=u_object.T_Guide_couleur(u_object.T_Mini_Guide.Create(tampon_word^.data)); wmsg.colec_guide_verticale.Add(Guide_couleur); end; 623: begin Guide_couleur:=u_object.T_Guide_couleur(u_object.T_Mini_Guide.Create(tampon_word^.data)); wmsg.colec_guide_horizontale.Add(Guide_couleur); end; 644,624:u_object.T_Mini_Guide(Guide_couleur).y:=tampon_word^.data; {$ifdef 3d} 645,625:u_object.T_Mini_Guide(Guide_couleur).z:=tampon_word^.data; {$endif 3d} 2905:wformepa.tforme_pavage(un_Groupe).is_inverse:=tampon_word^.data<>0; 2906:wformepa.tforme_pavage(un_Groupe).visible:=tampon_word^.data<>0; 2907:wformepa.tforme_pavage(un_Groupe).decx:=tampon_word^.data; 2908:wformepa.tforme_pavage(un_Groupe).decy:=tampon_word^.data; 2909:wformepa.tforme_pavage(un_Groupe).masked:=tampon_word^.data<>0; 2910:wformepa.tforme_pavage(un_Groupe).rect_initial.left:=tampon_word^.data; 2911:wformepa.tforme_pavage(un_Groupe).rect_initial.top:=tampon_word^.data; 2912:wformepa.tforme_pavage(un_Groupe).rect_initial.right:=tampon_word^.data; 2913:wformepa.tforme_pavage(un_Groupe).rect_initial.bottom:=tampon_word^.data; 2914:wformepa.tforme_pavage(un_Groupe).rect.left:=tampon_word^.data; 2915:wformepa.tforme_pavage(un_Groupe).rect.top:=tampon_word^.data; 2916:wformepa.tforme_pavage(un_Groupe).rect.right:=tampon_word^.data; 2917:wformepa.tforme_pavage(un_Groupe).rect.bottom:=tampon_word^.data; {Lecture Bionique du zoomogramme Un, deux trois le 23.11.2022} 10030:wproche.ScrollInfo_horizontal_one.nMin:=tampon_word^.data; 10031:wproche.ScrollInfo_horizontal_one.nMax:=tampon_word^.data; 10032:wproche.ScrollInfo_horizontal_one.nPage:=tampon_word^.data; 10033:wproche.ScrollInfo_horizontal_one.nPos:=tampon_word^.data; 10034:wproche.zoom_coef_one:=tampon_word^.data/1000; 10035:wproche.the_position_of_zoomogramme_one_is_definited:=tampon_word^.data<>0; 10040:wproche.ScrollInfo_horizontal_one.nMax:=tampon_word^.data; 10041:wproche.ScrollInfo_horizontal_one.nMax:=tampon_word^.data; 10042:wproche.ScrollInfo_horizontal_one.nPage:=tampon_word^.data; 10043:wproche.ScrollInfo_horizontal_one.nPos:=tampon_word^.data; 10050:wproche.ScrollInfo_horizontal_two.nMin:=tampon_word^.data; 10051:wproche.ScrollInfo_horizontal_two.nMax:=tampon_word^.data; 10052:wproche.ScrollInfo_horizontal_two.nPage:=tampon_word^.data; 10053:wproche.ScrollInfo_horizontal_two.nPos:=tampon_word^.data; 10054:wproche.zoom_coef_two:=tampon_word^.data/1000; 10055:wproche.the_position_of_zoomogramme_two_is_definited:=tampon_word^.data<>0; 10060:wproche.ScrollInfo_horizontal_tree.nMax:=tampon_word^.data; 10061:wproche.ScrollInfo_horizontal_tree.nMax:=tampon_word^.data; 10062:wproche.ScrollInfo_horizontal_tree.nPage:=tampon_word^.data; 10063:wproche.ScrollInfo_horizontal_tree.nPos:=tampon_word^.data; 1007:wproche.ScrollInfo_horizontal_tree.nMin:=tampon_word^.data; 10071:wproche.ScrollInfo_horizontal_tree.nMax:=tampon_word^.data; 10072:wproche.ScrollInfo_horizontal_tree.nPage:=tampon_word^.data; 10073:wproche.ScrollInfo_horizontal_tree.nPos:=tampon_word^.data; 10074:wproche.zoom_coef_tree:=tampon_word^.data/1000; 10075:wproche.the_position_of_zoomogramme_tree_is_definited:=tampon_word^.data<>0; 10080:wproche.ScrollInfo_horizontal_tree.nMax:=tampon_word^.data; 10081:wproche.ScrollInfo_horizontal_tree.nMax:=tampon_word^.data; 10082:wproche.ScrollInfo_horizontal_tree.nPage:=tampon_word^.data; 10083:wproche.ScrollInfo_horizontal_tree.nPos:=tampon_word^.data; 1900:decodage_des_rules; 2000:lecture_digital_kind; 950:lecture_des_Goulotes; end; {case tampon_word} inc(tampon_word); end; {while} end; {boucle_de_lecture} procedure lecture_et_decodage_bio(wmsg:outil.twmsg); //Shall be recursive for groupe symetrical opération reading. //Shall you have to must to be do align the right view with the left view ? We have to should be do ! var nombre_index:integer; t:pchar; calque_visible:byte; begin try tampon:=a_big_mem; t:=pchar(a_big_mem); inc(t,2); tampon_word:=p_adresse_bio_word(t); if tampon^=$4242 then begin ok_lecture:=true; boucle_de_lecture(wmsg,nil); end; except ok_lecture:=false; end; end; function lecture_bionique(filename:string; wmsg:outil.twmsg):boolean; begin ok_lecture:=false; result:=false; if not sysutils.FileExists(FileName) then exit; try buffer_taille:=wutil.get_file_size(FileName); if (buffer_taille<>0) then try getmem(a_big_mem,buffer_taille); buffer:=Tfilestream.create(filename,fmOpenRead); buffer.ReadBuffer(a_big_mem^,buffer_taille); buffer.free; finally try lecture_et_decodage_bio(wmsg); finally freemem(a_big_mem,buffer_taille); end; end else ok_lecture:=false; finally result:=ok_lecture; end; end; end. // 1167 lignes