/**********************************************************************/
#include "std.h"
#include "megatyp.h"
#include "megacad.h"
/**********************************************************************/
char edta[32000];// Puffer f�r variable Daten
/**********************************************************************/

// Hier die CallBack-Funktion - die Geisterhand
short SelPid(
        void *argptr )
{
    t_entity  *ent;

    ent = argptr;

	// Definition Drucken A0 auf A4
    if(ent->attr.pen == 1) ent->attr.wid=1; // 0.25mm -> 0.10mm
    if(ent->attr.pen == 2) ent->attr.wid=2; // 0.35mm -> 0.15mm
    if(ent->attr.pen == 3) ent->attr.wid=3; // 0.50mm -> 0.25mm
    if(ent->attr.pen == 4) ent->attr.wid=4; // 0.70mm -> 0.35mm
    
	ExChangeEntity(ent,NULL); // damit die Änderung sichtbar wird
	return(0);
}

// Hier der Einstieg aus MegaCAD
short MegaMain(
        char *filename,
        char *args )
{
    t_entity ent;
    ulong    filter;
    t_mat44  ecs;

    
    filter = 0xffffffff; // Selektionskriterium -> alle Elemente erlaubt
    EntityLoop(filter,filter,SelPid,&ent,edta,&ecs,sizeof(edta));     // Schleife �ber die Elemente - von hier gehts zur CallBack

    Message("!!! Zuweisen der Liniendicken ist beendet !!!","... Bereit zum Drucken von A0 auf A4 ...",NULL,NULL," OK ",3); // ein kurzer Gruss
    return(0); // und Tschüß
}