moje makra - frezowanie drzwi z łukami z dołu i z góry

eduCAD
Awatar użytkownika

Autor tematu
mitek
Specjalista poziom 3 (min. 600)
Specjalista poziom 3 (min. 600)
Posty w temacie: 2
Posty: 744
Rejestracja: 09 cze 2009, 22:06
Lokalizacja: k/Krakowa
Kontakt:

moje makra - frezowanie drzwi z łukami z dołu i z góry

#1

Post napisał: mitek » 15 cze 2010, 00:32

var
x,y,iloscszczeblin: integer;
a,b,c,margines,krawedz,xa,ya,dwamarginesy,odstep,szczeblina,skalax,skalay: double;

begin
y := strtoint( inputbox('Wysokosc','wysokosc frontu','713'));
x := strtoint( inputbox('Szerokosc','Szerokosc frontu','296'));
krawedz := strtofloat( inputbox('Krawedz','Odleglosc srodka freza od krawedzi zewnetrznej','-2'));
margines := strtofloat( inputbox('Margines','Odleglosc srodka freza dekora od krawedzi','70'));

begin

clear;
IF margines < 0 THEN
begin
xa := x+(krawedz*-1);
ya := y+(krawedz*-1);
end
ELSE
begin
xa := x-krawedz;
ya := y-krawedz;
end
end;

dwamarginesy:=2*margines;

SetPenColor (clblue); //Rysowanie

if (x > dwamarginesy+55) and (y > dwamarginesy+55+40) then // +55 bo frez 45 i 10mm na luke 40 na zawijas od gory
begin
a:= 0;
b:= y - margines - 40; // 40to wysokosc zawijasa
c:= margines + 40;
skalay:=1;// skalowanie wsokosc
skalax:=(x-dwamarginesy)/160; //160 to ilosc pk. zawijasa

setpointarray(0,margines,c);

setpointarray( 1 ,(( 0 +a)*skalax)+ margines,( 0 *skalay)+b);
setpointarray( 2 ,(( 1 +a)*skalax)+ margines,( 6.3 *skalay)+b);
setpointarray( 3 ,(( 2 +a)*skalax)+ margines,( 8.89 *skalay)+b);
setpointarray( 4 ,(( 3 +a)*skalax)+ margines,( 10.85 *skalay)+b);
setpointarray( 5 ,(( 4 +a)*skalax)+ margines,( 12.49 *skalay)+b);
setpointarray( 6 ,(( 5 +a)*skalax)+ margines,( 13.92 *skalay)+b);
setpointarray( 7 ,(( 6 +a)*skalax)+ margines,( 15.2 *skalay)+b);
setpointarray( 8 ,(( 7 +a)*skalax)+ margines,( 16.36 *skalay)+b);
setpointarray( 9 ,(( 8 +a)*skalax)+ margines,( 17.44 *skalay)+b);
setpointarray( 10 ,(( 9 +a)*skalax)+ margines,( 18.43 *skalay)+b);
setpointarray( 11 ,(( 10 +a)*skalax)+ margines,( 19.36 *skalay)+b);
setpointarray( 12 ,(( 11 +a)*skalax)+ margines,( 20.24 *skalay)+b);
setpointarray( 13 ,(( 12 +a)*skalax)+ margines,( 21.07 *skalay)+b);
setpointarray( 14 ,(( 13 +a)*skalax)+ margines,( 21.86 *skalay)+b);
setpointarray( 15 ,(( 14 +a)*skalax)+ margines,( 22.61 *skalay)+b);
setpointarray( 16 ,(( 15 +a)*skalax)+ margines,( 23.32 *skalay)+b);
setpointarray( 17 ,(( 16 +a)*skalax)+ margines,( 24 *skalay)+b);
setpointarray( 18 ,(( 17 +a)*skalax)+ margines,( 24.65 *skalay)+b);
setpointarray( 19 ,(( 18 +a)*skalax)+ margines,( 25.28 *skalay)+b);
setpointarray( 20 ,(( 19 +a)*skalax)+ margines,( 25.88 *skalay)+b);
setpointarray( 21 ,(( 20 +a)*skalax)+ margines,( 26.46 *skalay)+b);
setpointarray( 22 ,(( 21 +a)*skalax)+ margines,( 27.01 *skalay)+b);
setpointarray( 23 ,(( 22 +a)*skalax)+ margines,( 27.55 *skalay)+b);
setpointarray( 24 ,(( 23 +a)*skalax)+ margines,( 28.07 *skalay)+b);
setpointarray( 25 ,(( 24 +a)*skalax)+ margines,( 28.57 *skalay)+b);
setpointarray( 26 ,(( 25 +a)*skalax)+ margines,( 29.05 *skalay)+b);
setpointarray( 27 ,(( 26 +a)*skalax)+ margines,( 29.51 *skalay)+b);
setpointarray( 28 ,(( 27 +a)*skalax)+ margines,( 29.96 *skalay)+b);
setpointarray( 29 ,(( 28 +a)*skalax)+ margines,( 30.4 *skalay)+b);
setpointarray( 30 ,(( 29 +a)*skalax)+ margines,( 30.82 *skalay)+b);
setpointarray( 31 ,(( 30 +a)*skalax)+ margines,( 31.22 *skalay)+b);
setpointarray( 32 ,(( 31 +a)*skalax)+ margines,( 31.62 *skalay)+b);
setpointarray( 33 ,(( 32 +a)*skalax)+ margines,( 32 *skalay)+b);
setpointarray( 34 ,(( 33 +a)*skalax)+ margines,( 32.37 *skalay)+b);
setpointarray( 35 ,(( 34 +a)*skalax)+ margines,( 32.73 *skalay)+b);
setpointarray( 36 ,(( 35 +a)*skalax)+ margines,( 33.07 *skalay)+b);
setpointarray( 37 ,(( 36 +a)*skalax)+ margines,( 33.41 *skalay)+b);
setpointarray( 38 ,(( 37 +a)*skalax)+ margines,( 33.73 *skalay)+b);
setpointarray( 39 ,(( 38 +a)*skalax)+ margines,( 34.04 *skalay)+b);
setpointarray( 40 ,(( 39 +a)*skalax)+ margines,( 34.35 *skalay)+b);
setpointarray( 41 ,(( 40 +a)*skalax)+ margines,( 34.64 *skalay)+b);
setpointarray( 42 ,(( 41 +a)*skalax)+ margines,( 34.92 *skalay)+b);
setpointarray( 43 ,(( 42 +a)*skalax)+ margines,( 35.2 *skalay)+b);
setpointarray( 44 ,(( 43 +a)*skalax)+ margines,( 35.46 *skalay)+b);
setpointarray( 45 ,(( 44 +a)*skalax)+ margines,( 35.72 *skalay)+b);
setpointarray( 46 ,(( 45 +a)*skalax)+ margines,( 35.97 *skalay)+b);
setpointarray( 47 ,(( 46 +a)*skalax)+ margines,( 36.21 *skalay)+b);
setpointarray( 48 ,(( 47 +a)*skalax)+ margines,( 36.44 *skalay)+b);
setpointarray( 49 ,(( 48 +a)*skalax)+ margines,( 36.66 *skalay)+b);
setpointarray( 50 ,(( 49 +a)*skalax)+ margines,( 36.87 *skalay)+b);
setpointarray( 51 ,(( 50 +a)*skalax)+ margines,( 37.08 *skalay)+b);
setpointarray( 52 ,(( 51 +a)*skalax)+ margines,( 37.28 *skalay)+b);
setpointarray( 53 ,(( 52 +a)*skalax)+ margines,( 37.47 *skalay)+b);
setpointarray( 54 ,(( 53 +a)*skalax)+ margines,( 37.65 *skalay)+b);
setpointarray( 55 ,(( 54 +a)*skalax)+ margines,( 37.83 *skalay)+b);
setpointarray( 56 ,(( 55 +a)*skalax)+ margines,( 38 *skalay)+b);
setpointarray( 57 ,(( 56 +a)*skalax)+ margines,( 38.16 *skalay)+b);
setpointarray( 58 ,(( 57 +a)*skalax)+ margines,( 38.31 *skalay)+b);
setpointarray( 59 ,(( 58 +a)*skalax)+ margines,( 38.46 *skalay)+b);
setpointarray( 60 ,(( 59 +a)*skalax)+ margines,( 38.6 *skalay)+b);
setpointarray( 61 ,(( 60 +a)*skalax)+ margines,( 38.73 *skalay)+b);
setpointarray( 62 ,(( 61 +a)*skalax)+ margines,( 38.86 *skalay)+b);
setpointarray( 63 ,(( 62 +a)*skalax)+ margines,( 38.97 *skalay)+b);
setpointarray( 64 ,(( 63 +a)*skalax)+ margines,( 39.09 *skalay)+b);
setpointarray( 65 ,(( 64 +a)*skalax)+ margines,( 39.19 *skalay)+b);
setpointarray( 66 ,(( 65 +a)*skalax)+ margines,( 39.29 *skalay)+b);
setpointarray( 67 ,(( 66 +a)*skalax)+ margines,( 39.38 *skalay)+b);
setpointarray( 68 ,(( 67 +a)*skalax)+ margines,( 39.47 *skalay)+b);
setpointarray( 69 ,(( 68 +a)*skalax)+ margines,( 39.55 *skalay)+b);
setpointarray( 70 ,(( 69 +a)*skalax)+ margines,( 39.62 *skalay)+b);
setpointarray( 71 ,(( 70 +a)*skalax)+ margines,( 39.69 *skalay)+b);
setpointarray( 72 ,(( 71 +a)*skalax)+ margines,( 39.75 *skalay)+b);
setpointarray( 73 ,(( 72 +a)*skalax)+ margines,( 39.8 *skalay)+b);
setpointarray( 74 ,(( 73 +a)*skalax)+ margines,( 39.85 *skalay)+b);
setpointarray( 75 ,(( 74 +a)*skalax)+ margines,( 39.89 *skalay)+b);
setpointarray( 76 ,(( 75 +a)*skalax)+ margines,( 39.92 *skalay)+b);
setpointarray( 77 ,(( 76 +a)*skalax)+ margines,( 39.95 *skalay)+b);
setpointarray( 78 ,(( 77 +a)*skalax)+ margines,( 39.97 *skalay)+b);
setpointarray( 79 ,(( 78 +a)*skalax)+ margines,( 39.99 *skalay)+b);
setpointarray( 80 ,(( 79 +a)*skalax)+ margines,( 40 *skalay)+b);
setpointarray( 81 ,(( 80 +a)*skalax)+ margines,( 40 *skalay)+b);
setpointarray( 82 ,(( 81 +a)*skalax)+ margines,( 40 *skalay)+b);
setpointarray( 83 ,(( 82 +a)*skalax)+ margines,( 39.99 *skalay)+b);
setpointarray( 84 ,(( 83 +a)*skalax)+ margines,( 39.97 *skalay)+b);
setpointarray( 85 ,(( 84 +a)*skalax)+ margines,( 39.95 *skalay)+b);
setpointarray( 86 ,(( 85 +a)*skalax)+ margines,( 39.92 *skalay)+b);
setpointarray( 87 ,(( 86 +a)*skalax)+ margines,( 39.89 *skalay)+b);
setpointarray( 88 ,(( 87 +a)*skalax)+ margines,( 39.85 *skalay)+b);
setpointarray( 89 ,(( 88 +a)*skalax)+ margines,( 39.8 *skalay)+b);
setpointarray( 90 ,(( 89 +a)*skalax)+ margines,( 39.75 *skalay)+b);
setpointarray( 91 ,(( 90 +a)*skalax)+ margines,( 39.69 *skalay)+b);
setpointarray( 92 ,(( 91 +a)*skalax)+ margines,( 39.62 *skalay)+b);
setpointarray( 93 ,(( 92 +a)*skalax)+ margines,( 39.55 *skalay)+b);
setpointarray( 94 ,(( 93 +a)*skalax)+ margines,( 39.47 *skalay)+b);
setpointarray( 95 ,(( 94 +a)*skalax)+ margines,( 39.38 *skalay)+b);
setpointarray( 96 ,(( 95 +a)*skalax)+ margines,( 39.29 *skalay)+b);
setpointarray( 97 ,(( 96 +a)*skalax)+ margines,( 39.19 *skalay)+b);
setpointarray( 98 ,(( 97 +a)*skalax)+ margines,( 39.09 *skalay)+b);
setpointarray( 99 ,(( 98 +a)*skalax)+ margines,( 38.97 *skalay)+b);
setpointarray( 100 ,(( 99 +a)*skalax)+ margines,( 38.86 *skalay)+b);
setpointarray( 101 ,(( 100 +a)*skalax)+ margines,( 38.73 *skalay)+b);
setpointarray( 102 ,(( 101 +a)*skalax)+ margines,( 38.6 *skalay)+b);
setpointarray( 103 ,(( 102 +a)*skalax)+ margines,( 38.46 *skalay)+b);
setpointarray( 104 ,(( 103 +a)*skalax)+ margines,( 38.31 *skalay)+b);
setpointarray( 105 ,(( 104 +a)*skalax)+ margines,( 38.16 *skalay)+b);
setpointarray( 106 ,(( 105 +a)*skalax)+ margines,( 38 *skalay)+b);
setpointarray( 107 ,(( 106 +a)*skalax)+ margines,( 37.83 *skalay)+b);
setpointarray( 108 ,(( 107 +a)*skalax)+ margines,( 37.65 *skalay)+b);
setpointarray( 109 ,(( 108 +a)*skalax)+ margines,( 37.47 *skalay)+b);
setpointarray( 110 ,(( 109 +a)*skalax)+ margines,( 37.28 *skalay)+b);
setpointarray( 111 ,(( 110 +a)*skalax)+ margines,( 37.08 *skalay)+b);
setpointarray( 112 ,(( 111 +a)*skalax)+ margines,( 36.87 *skalay)+b);
setpointarray( 113 ,(( 112 +a)*skalax)+ margines,( 36.66 *skalay)+b);
setpointarray( 114 ,(( 113 +a)*skalax)+ margines,( 36.44 *skalay)+b);
setpointarray( 115 ,(( 114 +a)*skalax)+ margines,( 36.21 *skalay)+b);
setpointarray( 116 ,(( 115 +a)*skalax)+ margines,( 35.97 *skalay)+b);
setpointarray( 117 ,(( 116 +a)*skalax)+ margines,( 35.72 *skalay)+b);
setpointarray( 118 ,(( 117 +a)*skalax)+ margines,( 35.46 *skalay)+b);
setpointarray( 119 ,(( 118 +a)*skalax)+ margines,( 35.2 *skalay)+b);
setpointarray( 120 ,(( 119 +a)*skalax)+ margines,( 34.92 *skalay)+b);
setpointarray( 121 ,(( 120 +a)*skalax)+ margines,( 34.64 *skalay)+b);
setpointarray( 122 ,(( 121 +a)*skalax)+ margines,( 34.35 *skalay)+b);
setpointarray( 123 ,(( 122 +a)*skalax)+ margines,( 34.04 *skalay)+b);
setpointarray( 124 ,(( 123 +a)*skalax)+ margines,( 33.73 *skalay)+b);
setpointarray( 125 ,(( 124 +a)*skalax)+ margines,( 33.41 *skalay)+b);
setpointarray( 126 ,(( 125 +a)*skalax)+ margines,( 33.07 *skalay)+b);
setpointarray( 127 ,(( 126 +a)*skalax)+ margines,( 32.73 *skalay)+b);
setpointarray( 128 ,(( 127 +a)*skalax)+ margines,( 32.37 *skalay)+b);
setpointarray( 129 ,(( 128 +a)*skalax)+ margines,( 32 *skalay)+b);
setpointarray( 130 ,(( 129 +a)*skalax)+ margines,( 31.62 *skalay)+b);
setpointarray( 131 ,(( 130 +a)*skalax)+ margines,( 31.22 *skalay)+b);
setpointarray( 132 ,(( 131 +a)*skalax)+ margines,( 30.82 *skalay)+b);
setpointarray( 133 ,(( 132 +a)*skalax)+ margines,( 30.4 *skalay)+b);
setpointarray( 134 ,(( 133 +a)*skalax)+ margines,( 29.96 *skalay)+b);
setpointarray( 135 ,(( 134 +a)*skalax)+ margines,( 29.51 *skalay)+b);
setpointarray( 136 ,(( 135 +a)*skalax)+ margines,( 29.05 *skalay)+b);
setpointarray( 137 ,(( 136 +a)*skalax)+ margines,( 28.57 *skalay)+b);
setpointarray( 138 ,(( 137 +a)*skalax)+ margines,( 28.07 *skalay)+b);
setpointarray( 139 ,(( 138 +a)*skalax)+ margines,( 27.55 *skalay)+b);
setpointarray( 140 ,(( 139 +a)*skalax)+ margines,( 27.01 *skalay)+b);
setpointarray( 141 ,(( 140 +a)*skalax)+ margines,( 26.46 *skalay)+b);
setpointarray( 142 ,(( 141 +a)*skalax)+ margines,( 25.88 *skalay)+b);
setpointarray( 143 ,(( 142 +a)*skalax)+ margines,( 25.28 *skalay)+b);
setpointarray( 144 ,(( 143 +a)*skalax)+ margines,( 24.65 *skalay)+b);
setpointarray( 145 ,(( 144 +a)*skalax)+ margines,( 24 *skalay)+b);
setpointarray( 146 ,(( 145 +a)*skalax)+ margines,( 23.32 *skalay)+b);
setpointarray( 147 ,(( 146 +a)*skalax)+ margines,( 22.61 *skalay)+b);
setpointarray( 148 ,(( 147 +a)*skalax)+ margines,( 21.86 *skalay)+b);
setpointarray( 149 ,(( 148 +a)*skalax)+ margines,( 21.07 *skalay)+b);
setpointarray( 150 ,(( 149 +a)*skalax)+ margines,( 20.24 *skalay)+b);
setpointarray( 151 ,(( 150 +a)*skalax)+ margines,( 19.36 *skalay)+b);
setpointarray( 152 ,(( 151 +a)*skalax)+ margines,( 18.43 *skalay)+b);
setpointarray( 153 ,(( 152 +a)*skalax)+ margines,( 17.44 *skalay)+b);
setpointarray( 154 ,(( 153 +a)*skalax)+ margines,( 16.36 *skalay)+b);
setpointarray( 155 ,(( 154 +a)*skalax)+ margines,( 15.2 *skalay)+b);
setpointarray( 156 ,(( 155 +a)*skalax)+ margines,( 13.92 *skalay)+b);
setpointarray( 157 ,(( 156 +a)*skalax)+ margines,( 12.49 *skalay)+b);
setpointarray( 158 ,(( 157 +a)*skalax)+ margines,( 10.85 *skalay)+b);
setpointarray( 159 ,(( 158 +a)*skalax)+ margines,( 8.89 *skalay)+b);
setpointarray( 160 ,(( 159 +a)*skalax)+ margines,( 6.3 *skalay)+b);
setpointarray( 161 ,(( 160 +a)*skalax)+ margines,( 0 *skalay)+b);

setpointarray(162,x-margines,margines); //faktyczna wsokosc krzywej

setpointarray( 162 ,(( 160 +a)*skalax)+ margines,( 0 *skalay)+c);
setpointarray( 163 ,(( 159 +a)*skalax)+ margines,( -6.3 *skalay)+c);
setpointarray( 164 ,(( 158 +a)*skalax)+ margines,( -8.89 *skalay)+c);
setpointarray( 165 ,(( 157 +a)*skalax)+ margines,( -10.85 *skalay)+c);
setpointarray( 166 ,(( 156 +a)*skalax)+ margines,( -12.49 *skalay)+c);
setpointarray( 167 ,(( 155 +a)*skalax)+ margines,( -13.92 *skalay)+c);
setpointarray( 168 ,(( 154 +a)*skalax)+ margines,( -15.2 *skalay)+c);
setpointarray( 169 ,(( 153 +a)*skalax)+ margines,( -16.36 *skalay)+c);
setpointarray( 170 ,(( 152 +a)*skalax)+ margines,( -17.44 *skalay)+c);
setpointarray( 171 ,(( 151 +a)*skalax)+ margines,( -18.43 *skalay)+c);
setpointarray( 172 ,(( 150 +a)*skalax)+ margines,( -19.36 *skalay)+c);
setpointarray( 173 ,(( 149 +a)*skalax)+ margines,( -20.24 *skalay)+c);
setpointarray( 174 ,(( 148 +a)*skalax)+ margines,( -21.07 *skalay)+c);
setpointarray( 175 ,(( 147 +a)*skalax)+ margines,( -21.86 *skalay)+c);
setpointarray( 176 ,(( 146 +a)*skalax)+ margines,( -22.61 *skalay)+c);
setpointarray( 177 ,(( 145 +a)*skalax)+ margines,( -23.32 *skalay)+c);
setpointarray( 178 ,(( 144 +a)*skalax)+ margines,( -24 *skalay)+c);
setpointarray( 179 ,(( 143 +a)*skalax)+ margines,( -24.65 *skalay)+c);
setpointarray( 180 ,(( 142 +a)*skalax)+ margines,( -25.28 *skalay)+c);
setpointarray( 181 ,(( 141 +a)*skalax)+ margines,( -25.88 *skalay)+c);
setpointarray( 182 ,(( 140 +a)*skalax)+ margines,( -26.46 *skalay)+c);
setpointarray( 183 ,(( 139 +a)*skalax)+ margines,( -27.01 *skalay)+c);
setpointarray( 184 ,(( 138 +a)*skalax)+ margines,( -27.55 *skalay)+c);
setpointarray( 185 ,(( 137 +a)*skalax)+ margines,( -28.07 *skalay)+c);
setpointarray( 186 ,(( 136 +a)*skalax)+ margines,( -28.57 *skalay)+c);
setpointarray( 187 ,(( 135 +a)*skalax)+ margines,( -29.05 *skalay)+c);
setpointarray( 188 ,(( 134 +a)*skalax)+ margines,( -29.51 *skalay)+c);
setpointarray( 189 ,(( 133 +a)*skalax)+ margines,( -29.96 *skalay)+c);
setpointarray( 190 ,(( 132 +a)*skalax)+ margines,( -30.4 *skalay)+c);
setpointarray( 191 ,(( 131 +a)*skalax)+ margines,( -30.82 *skalay)+c);
setpointarray( 192 ,(( 130 +a)*skalax)+ margines,( -31.22 *skalay)+c);
setpointarray( 193 ,(( 129 +a)*skalax)+ margines,( -31.62 *skalay)+c);
setpointarray( 194 ,(( 128 +a)*skalax)+ margines,( -32 *skalay)+c);
setpointarray( 195 ,(( 127 +a)*skalax)+ margines,( -32.37 *skalay)+c);
setpointarray( 196 ,(( 126 +a)*skalax)+ margines,( -32.73 *skalay)+c);
setpointarray( 197 ,(( 125 +a)*skalax)+ margines,( -33.07 *skalay)+c);
setpointarray( 198 ,(( 124 +a)*skalax)+ margines,( -33.41 *skalay)+c);
setpointarray( 199 ,(( 123 +a)*skalax)+ margines,( -33.73 *skalay)+c);
setpointarray( 200 ,(( 122 +a)*skalax)+ margines,( -34.04 *skalay)+c);
setpointarray( 201 ,(( 121 +a)*skalax)+ margines,( -34.35 *skalay)+c);
setpointarray( 202 ,(( 120 +a)*skalax)+ margines,( -34.64 *skalay)+c);
setpointarray( 203 ,(( 119 +a)*skalax)+ margines,( -34.92 *skalay)+c);
setpointarray( 204 ,(( 118 +a)*skalax)+ margines,( -35.2 *skalay)+c);
setpointarray( 205 ,(( 117 +a)*skalax)+ margines,( -35.46 *skalay)+c);
setpointarray( 206 ,(( 116 +a)*skalax)+ margines,( -35.72 *skalay)+c);
setpointarray( 207 ,(( 115 +a)*skalax)+ margines,( -35.97 *skalay)+c);
setpointarray( 208 ,(( 114 +a)*skalax)+ margines,( -36.21 *skalay)+c);
setpointarray( 209 ,(( 113 +a)*skalax)+ margines,( -36.44 *skalay)+c);
setpointarray( 210 ,(( 112 +a)*skalax)+ margines,( -36.66 *skalay)+c);
setpointarray( 211 ,(( 111 +a)*skalax)+ margines,( -36.87 *skalay)+c);
setpointarray( 212 ,(( 110 +a)*skalax)+ margines,( -37.08 *skalay)+c);
setpointarray( 213 ,(( 109 +a)*skalax)+ margines,( -37.28 *skalay)+c);
setpointarray( 214 ,(( 108 +a)*skalax)+ margines,( -37.47 *skalay)+c);
setpointarray( 215 ,(( 107 +a)*skalax)+ margines,( -37.65 *skalay)+c);
setpointarray( 216 ,(( 106 +a)*skalax)+ margines,( -37.83 *skalay)+c);
setpointarray( 217 ,(( 105 +a)*skalax)+ margines,( -38 *skalay)+c);
setpointarray( 218 ,(( 104 +a)*skalax)+ margines,( -38.16 *skalay)+c);
setpointarray( 219 ,(( 103 +a)*skalax)+ margines,( -38.31 *skalay)+c);
setpointarray( 220 ,(( 102 +a)*skalax)+ margines,( -38.46 *skalay)+c);
setpointarray( 221 ,(( 101 +a)*skalax)+ margines,( -38.6 *skalay)+c);
setpointarray( 222 ,(( 100 +a)*skalax)+ margines,( -38.73 *skalay)+c);
setpointarray( 223 ,(( 99 +a)*skalax)+ margines,( -38.86 *skalay)+c);
setpointarray( 224 ,(( 98 +a)*skalax)+ margines,( -38.97 *skalay)+c);
setpointarray( 225 ,(( 97 +a)*skalax)+ margines,( -39.09 *skalay)+c);
setpointarray( 226 ,(( 96 +a)*skalax)+ margines,( -39.19 *skalay)+c);
setpointarray( 227 ,(( 95 +a)*skalax)+ margines,( -39.29 *skalay)+c);
setpointarray( 228 ,(( 94 +a)*skalax)+ margines,( -39.38 *skalay)+c);
setpointarray( 229 ,(( 93 +a)*skalax)+ margines,( -39.47 *skalay)+c);
setpointarray( 230 ,(( 92 +a)*skalax)+ margines,( -39.55 *skalay)+c);
setpointarray( 231 ,(( 91 +a)*skalax)+ margines,( -39.62 *skalay)+c);
setpointarray( 232 ,(( 90 +a)*skalax)+ margines,( -39.69 *skalay)+c);
setpointarray( 233 ,(( 89 +a)*skalax)+ margines,( -39.75 *skalay)+c);
setpointarray( 234 ,(( 88 +a)*skalax)+ margines,( -39.8 *skalay)+c);
setpointarray( 235 ,(( 87 +a)*skalax)+ margines,( -39.85 *skalay)+c);
setpointarray( 236 ,(( 86 +a)*skalax)+ margines,( -39.89 *skalay)+c);
setpointarray( 237 ,(( 85 +a)*skalax)+ margines,( -39.92 *skalay)+c);
setpointarray( 238 ,(( 84 +a)*skalax)+ margines,( -39.95 *skalay)+c);
setpointarray( 239 ,(( 83 +a)*skalax)+ margines,( -39.97 *skalay)+c);
setpointarray( 240 ,(( 82 +a)*skalax)+ margines,( -39.99 *skalay)+c);
setpointarray( 241 ,(( 81 +a)*skalax)+ margines,( -40 *skalay)+c);
setpointarray( 242 ,(( 80 +a)*skalax)+ margines,( -40 *skalay)+c);
setpointarray( 243 ,(( 79 +a)*skalax)+ margines,( -40 *skalay)+c);
setpointarray( 244 ,(( 78 +a)*skalax)+ margines,( -39.99 *skalay)+c);
setpointarray( 245 ,(( 77 +a)*skalax)+ margines,( -39.97 *skalay)+c);
setpointarray( 246 ,(( 76 +a)*skalax)+ margines,( -39.95 *skalay)+c);
setpointarray( 247 ,(( 75 +a)*skalax)+ margines,( -39.92 *skalay)+c);
setpointarray( 248 ,(( 74 +a)*skalax)+ margines,( -39.89 *skalay)+c);
setpointarray( 249 ,(( 73 +a)*skalax)+ margines,( -39.85 *skalay)+c);
setpointarray( 250 ,(( 72 +a)*skalax)+ margines,( -39.8 *skalay)+c);
setpointarray( 251 ,(( 71 +a)*skalax)+ margines,( -39.75 *skalay)+c);
setpointarray( 252 ,(( 70 +a)*skalax)+ margines,( -39.69 *skalay)+c);
setpointarray( 253 ,(( 69 +a)*skalax)+ margines,( -39.62 *skalay)+c);
setpointarray( 254 ,(( 68 +a)*skalax)+ margines,( -39.55 *skalay)+c);
setpointarray( 255 ,(( 67 +a)*skalax)+ margines,( -39.47 *skalay)+c);
setpointarray( 256 ,(( 66 +a)*skalax)+ margines,( -39.38 *skalay)+c);
setpointarray( 257 ,(( 65 +a)*skalax)+ margines,( -39.29 *skalay)+c);
setpointarray( 258 ,(( 64 +a)*skalax)+ margines,( -39.19 *skalay)+c);
setpointarray( 259 ,(( 63 +a)*skalax)+ margines,( -39.09 *skalay)+c);
setpointarray( 260 ,(( 62 +a)*skalax)+ margines,( -38.97 *skalay)+c);
setpointarray( 261 ,(( 61 +a)*skalax)+ margines,( -38.86 *skalay)+c);
setpointarray( 262 ,(( 60 +a)*skalax)+ margines,( -38.73 *skalay)+c);
setpointarray( 263 ,(( 59 +a)*skalax)+ margines,( -38.6 *skalay)+c);
setpointarray( 264 ,(( 58 +a)*skalax)+ margines,( -38.46 *skalay)+c);
setpointarray( 265 ,(( 57 +a)*skalax)+ margines,( -38.31 *skalay)+c);
setpointarray( 266 ,(( 56 +a)*skalax)+ margines,( -38.16 *skalay)+c);
setpointarray( 267 ,(( 55 +a)*skalax)+ margines,( -38 *skalay)+c);
setpointarray( 268 ,(( 54 +a)*skalax)+ margines,( -37.83 *skalay)+c);
setpointarray( 269 ,(( 53 +a)*skalax)+ margines,( -37.65 *skalay)+c);
setpointarray( 270 ,(( 52 +a)*skalax)+ margines,( -37.47 *skalay)+c);
setpointarray( 271 ,(( 51 +a)*skalax)+ margines,( -37.28 *skalay)+c);
setpointarray( 272 ,(( 50 +a)*skalax)+ margines,( -37.08 *skalay)+c);
setpointarray( 273 ,(( 49 +a)*skalax)+ margines,( -36.87 *skalay)+c);
setpointarray( 274 ,(( 48 +a)*skalax)+ margines,( -36.66 *skalay)+c);
setpointarray( 275 ,(( 47 +a)*skalax)+ margines,( -36.44 *skalay)+c);
setpointarray( 276 ,(( 46 +a)*skalax)+ margines,( -36.21 *skalay)+c);
setpointarray( 277 ,(( 45 +a)*skalax)+ margines,( -35.97 *skalay)+c);
setpointarray( 278 ,(( 44 +a)*skalax)+ margines,( -35.72 *skalay)+c);
setpointarray( 279 ,(( 43 +a)*skalax)+ margines,( -35.46 *skalay)+c);
setpointarray( 280 ,(( 42 +a)*skalax)+ margines,( -35.2 *skalay)+c);
setpointarray( 281 ,(( 41 +a)*skalax)+ margines,( -34.92 *skalay)+c);
setpointarray( 282 ,(( 40 +a)*skalax)+ margines,( -34.64 *skalay)+c);
setpointarray( 283 ,(( 39 +a)*skalax)+ margines,( -34.35 *skalay)+c);
setpointarray( 284 ,(( 38 +a)*skalax)+ margines,( -34.04 *skalay)+c);
setpointarray( 285 ,(( 37 +a)*skalax)+ margines,( -33.73 *skalay)+c);
setpointarray( 286 ,(( 36 +a)*skalax)+ margines,( -33.41 *skalay)+c);
setpointarray( 287 ,(( 35 +a)*skalax)+ margines,( -33.07 *skalay)+c);
setpointarray( 288 ,(( 34 +a)*skalax)+ margines,( -32.73 *skalay)+c);
setpointarray( 289 ,(( 33 +a)*skalax)+ margines,( -32.37 *skalay)+c);
setpointarray( 290 ,(( 32 +a)*skalax)+ margines,( -32 *skalay)+c);
setpointarray( 291 ,(( 31 +a)*skalax)+ margines,( -31.62 *skalay)+c);
setpointarray( 292 ,(( 30 +a)*skalax)+ margines,( -31.22 *skalay)+c);
setpointarray( 293 ,(( 29 +a)*skalax)+ margines,( -30.82 *skalay)+c);
setpointarray( 294 ,(( 28 +a)*skalax)+ margines,( -30.4 *skalay)+c);
setpointarray( 295 ,(( 27 +a)*skalax)+ margines,( -29.96 *skalay)+c);
setpointarray( 296 ,(( 26 +a)*skalax)+ margines,( -29.51 *skalay)+c);
setpointarray( 297 ,(( 25 +a)*skalax)+ margines,( -29.05 *skalay)+c);
setpointarray( 298 ,(( 24 +a)*skalax)+ margines,( -28.57 *skalay)+c);
setpointarray( 299 ,(( 23 +a)*skalax)+ margines,( -28.07 *skalay)+c);
setpointarray( 300 ,(( 22 +a)*skalax)+ margines,( -27.55 *skalay)+c);
setpointarray( 301 ,(( 21 +a)*skalax)+ margines,( -27.01 *skalay)+c);
setpointarray( 302 ,(( 20 +a)*skalax)+ margines,( -26.46 *skalay)+c);
setpointarray( 303 ,(( 19 +a)*skalax)+ margines,( -25.88 *skalay)+c);
setpointarray( 304 ,(( 18 +a)*skalax)+ margines,( -25.28 *skalay)+c);
setpointarray( 305 ,(( 17 +a)*skalax)+ margines,( -24.65 *skalay)+c);
setpointarray( 306 ,(( 16 +a)*skalax)+ margines,( -24 *skalay)+c);
setpointarray( 307 ,(( 15 +a)*skalax)+ margines,( -23.32 *skalay)+c);
setpointarray( 308 ,(( 14 +a)*skalax)+ margines,( -22.61 *skalay)+c);
setpointarray( 309 ,(( 13 +a)*skalax)+ margines,( -21.86 *skalay)+c);
setpointarray( 310 ,(( 12 +a)*skalax)+ margines,( -21.07 *skalay)+c);
setpointarray( 311 ,(( 11 +a)*skalax)+ margines,( -20.24 *skalay)+c);
setpointarray( 312 ,(( 10 +a)*skalax)+ margines,( -19.36 *skalay)+c);
setpointarray( 313 ,(( 9 +a)*skalax)+ margines,( -18.43 *skalay)+c);
setpointarray( 314 ,(( 8 +a)*skalax)+ margines,( -17.44 *skalay)+c);
setpointarray( 315 ,(( 7 +a)*skalax)+ margines,( -16.36 *skalay)+c);
setpointarray( 316 ,(( 6 +a)*skalax)+ margines,( -15.2 *skalay)+c);
setpointarray( 317 ,(( 5 +a)*skalax)+ margines,( -13.92 *skalay)+c);
setpointarray( 318 ,(( 4 +a)*skalax)+ margines,( -12.49 *skalay)+c);
setpointarray( 319 ,(( 3 +a)*skalax)+ margines,( -10.85 *skalay)+c);
setpointarray( 320 ,(( 2 +a)*skalax)+ margines,( -8.89 *skalay)+c);
setpointarray( 321 ,(( 1 +a)*skalax)+ margines,( -6.3 *skalay)+c);
setpointarray( 322 ,(( 0 +a)*skalax)+ margines,( 0 *skalay)+c);




polygon;
refresh;
end
else
begin
end;




if (x >= dwamarginesy+55) and (y <= dwamarginesy+55) then //margines gorny i dolny spada do 40mm + 50 wysokosc luku
begin
IF y < 139 then
begin
showmessage ('front zbyt mały do frezowania wewntrz');
end
ElSE
begin
end;

a:= x - (dwamarginesy + 40);
c:= ( margines * 0.333)+15;
b:= ( margines * 0.333)+15; // 15 i 30 odsuniecie od krawedzi dodatkowe
skalay:=(y-(dwamarginesy*0.33+30))/160 ;// skalowanie wsokosc
skalax:=1; //(x-dwamarginesy)/160; //160 to faktyczna szerokosc zawijasa

setpointarray( 0 ,(( 0 +a)*skalax)+ margines,( 161 *skalay)+b);

setpointarray( 1 ,(( 0 +a)*skalax)+ margines,( 161 *skalay)+b);
setpointarray( 2 ,(( 6.3 +a)*skalax)+ margines,( 160 *skalay)+b);
setpointarray( 3 ,(( 8.89 +a)*skalax)+ margines,( 159 *skalay)+b);
setpointarray( 4 ,(( 10.85 +a)*skalax)+ margines,( 158 *skalay)+b);
setpointarray( 5 ,(( 12.49 +a)*skalax)+ margines,( 157 *skalay)+b);
setpointarray( 6 ,(( 13.92 +a)*skalax)+ margines,( 156 *skalay)+b);
setpointarray( 7 ,(( 15.2 +a)*skalax)+ margines,( 155 *skalay)+b);
setpointarray( 8 ,(( 16.36 +a)*skalax)+ margines,( 154 *skalay)+b);
setpointarray( 9 ,(( 17.44 +a)*skalax)+ margines,( 153 *skalay)+b);
setpointarray( 10 ,(( 18.43 +a)*skalax)+ margines,( 152 *skalay)+b);
setpointarray( 11 ,(( 19.36 +a)*skalax)+ margines,( 151 *skalay)+b);
setpointarray( 12 ,(( 20.24 +a)*skalax)+ margines,( 150 *skalay)+b);
setpointarray( 13 ,(( 21.07 +a)*skalax)+ margines,( 149 *skalay)+b);
setpointarray( 14 ,(( 21.86 +a)*skalax)+ margines,( 148 *skalay)+b);
setpointarray( 15 ,(( 22.61 +a)*skalax)+ margines,( 147 *skalay)+b);
setpointarray( 16 ,(( 23.32 +a)*skalax)+ margines,( 146 *skalay)+b);
setpointarray( 17 ,(( 24 +a)*skalax)+ margines,( 145 *skalay)+b);
setpointarray( 18 ,(( 24.65 +a)*skalax)+ margines,( 144 *skalay)+b);
setpointarray( 19 ,(( 25.28 +a)*skalax)+ margines,( 143 *skalay)+b);
setpointarray( 20 ,(( 25.88 +a)*skalax)+ margines,( 142 *skalay)+b);
setpointarray( 21 ,(( 26.46 +a)*skalax)+ margines,( 141 *skalay)+b);
setpointarray( 22 ,(( 27.01 +a)*skalax)+ margines,( 140 *skalay)+b);
setpointarray( 23 ,(( 27.55 +a)*skalax)+ margines,( 139 *skalay)+b);
setpointarray( 24 ,(( 28.07 +a)*skalax)+ margines,( 138 *skalay)+b);
setpointarray( 25 ,(( 28.57 +a)*skalax)+ margines,( 137 *skalay)+b);
setpointarray( 26 ,(( 29.05 +a)*skalax)+ margines,( 136 *skalay)+b);
setpointarray( 27 ,(( 29.51 +a)*skalax)+ margines,( 135 *skalay)+b);
setpointarray( 28 ,(( 29.96 +a)*skalax)+ margines,( 134 *skalay)+b);
setpointarray( 29 ,(( 30.4 +a)*skalax)+ margines,( 133 *skalay)+b);
setpointarray( 30 ,(( 30.82 +a)*skalax)+ margines,( 132 *skalay)+b);
setpointarray( 31 ,(( 31.22 +a)*skalax)+ margines,( 131 *skalay)+b);
setpointarray( 32 ,(( 31.62 +a)*skalax)+ margines,( 130 *skalay)+b);
setpointarray( 33 ,(( 32 +a)*skalax)+ margines,( 129 *skalay)+b);
setpointarray( 34 ,(( 32.37 +a)*skalax)+ margines,( 128 *skalay)+b);
setpointarray( 35 ,(( 32.73 +a)*skalax)+ margines,( 127 *skalay)+b);
setpointarray( 36 ,(( 33.07 +a)*skalax)+ margines,( 126 *skalay)+b);
setpointarray( 37 ,(( 33.41 +a)*skalax)+ margines,( 125 *skalay)+b);
setpointarray( 38 ,(( 33.73 +a)*skalax)+ margines,( 124 *skalay)+b);
setpointarray( 39 ,(( 34.04 +a)*skalax)+ margines,( 123 *skalay)+b);
setpointarray( 40 ,(( 34.35 +a)*skalax)+ margines,( 122 *skalay)+b);
setpointarray( 41 ,(( 34.64 +a)*skalax)+ margines,( 121 *skalay)+b);
setpointarray( 42 ,(( 34.92 +a)*skalax)+ margines,( 120 *skalay)+b);
setpointarray( 43 ,(( 35.2 +a)*skalax)+ margines,( 119 *skalay)+b);
setpointarray( 44 ,(( 35.46 +a)*skalax)+ margines,( 118 *skalay)+b);
setpointarray( 45 ,(( 35.72 +a)*skalax)+ margines,( 117 *skalay)+b);
setpointarray( 46 ,(( 35.97 +a)*skalax)+ margines,( 116 *skalay)+b);
setpointarray( 47 ,(( 36.21 +a)*skalax)+ margines,( 115 *skalay)+b);
setpointarray( 48 ,(( 36.44 +a)*skalax)+ margines,( 114 *skalay)+b);
setpointarray( 49 ,(( 36.66 +a)*skalax)+ margines,( 113 *skalay)+b);
setpointarray( 50 ,(( 36.87 +a)*skalax)+ margines,( 112 *skalay)+b);
setpointarray( 51 ,(( 37.08 +a)*skalax)+ margines,( 111 *skalay)+b);
setpointarray( 52 ,(( 37.28 +a)*skalax)+ margines,( 110 *skalay)+b);
setpointarray( 53 ,(( 37.47 +a)*skalax)+ margines,( 109 *skalay)+b);
setpointarray( 54 ,(( 37.65 +a)*skalax)+ margines,( 108 *skalay)+b);
setpointarray( 55 ,(( 37.83 +a)*skalax)+ margines,( 107 *skalay)+b);
setpointarray( 56 ,(( 38 +a)*skalax)+ margines,( 106 *skalay)+b);
setpointarray( 57 ,(( 38.16 +a)*skalax)+ margines,( 105 *skalay)+b);
setpointarray( 58 ,(( 38.31 +a)*skalax)+ margines,( 104 *skalay)+b);
setpointarray( 59 ,(( 38.46 +a)*skalax)+ margines,( 103 *skalay)+b);
setpointarray( 60 ,(( 38.6 +a)*skalax)+ margines,( 102 *skalay)+b);
setpointarray( 61 ,(( 38.73 +a)*skalax)+ margines,( 101 *skalay)+b);
setpointarray( 62 ,(( 38.86 +a)*skalax)+ margines,( 100 *skalay)+b);
setpointarray( 63 ,(( 38.97 +a)*skalax)+ margines,( 99 *skalay)+b);
setpointarray( 64 ,(( 39.09 +a)*skalax)+ margines,( 98 *skalay)+b);
setpointarray( 65 ,(( 39.19 +a)*skalax)+ margines,( 97 *skalay)+b);
setpointarray( 66 ,(( 39.29 +a)*skalax)+ margines,( 96 *skalay)+b);
setpointarray( 67 ,(( 39.38 +a)*skalax)+ margines,( 95 *skalay)+b);
setpointarray( 68 ,(( 39.47 +a)*skalax)+ margines,( 94 *skalay)+b);
setpointarray( 69 ,(( 39.55 +a)*skalax)+ margines,( 93 *skalay)+b);
setpointarray( 70 ,(( 39.62 +a)*skalax)+ margines,( 92 *skalay)+b);
setpointarray( 71 ,(( 39.69 +a)*skalax)+ margines,( 91 *skalay)+b);
setpointarray( 72 ,(( 39.75 +a)*skalax)+ margines,( 90 *skalay)+b);
setpointarray( 73 ,(( 39.8 +a)*skalax)+ margines,( 89 *skalay)+b);
setpointarray( 74 ,(( 39.85 +a)*skalax)+ margines,( 88 *skalay)+b);
setpointarray( 75 ,(( 39.89 +a)*skalax)+ margines,( 87 *skalay)+b);
setpointarray( 76 ,(( 39.92 +a)*skalax)+ margines,( 86 *skalay)+b);
setpointarray( 77 ,(( 39.95 +a)*skalax)+ margines,( 85 *skalay)+b);
setpointarray( 78 ,(( 39.97 +a)*skalax)+ margines,( 84 *skalay)+b);
setpointarray( 79 ,(( 39.99 +a)*skalax)+ margines,( 83 *skalay)+b);
setpointarray( 80 ,(( 40 +a)*skalax)+ margines,( 82 *skalay)+b);
setpointarray( 81 ,(( 40 +a)*skalax)+ margines,( 81 *skalay)+b);
setpointarray( 82 ,(( 40 +a)*skalax)+ margines,( 80 *skalay)+b);
setpointarray( 83 ,(( 39.99 +a)*skalax)+ margines,( 79 *skalay)+b);
setpointarray( 84 ,(( 39.97 +a)*skalax)+ margines,( 78 *skalay)+b);
setpointarray( 85 ,(( 39.95 +a)*skalax)+ margines,( 77 *skalay)+b);
setpointarray( 86 ,(( 39.92 +a)*skalax)+ margines,( 76 *skalay)+b);
setpointarray( 87 ,(( 39.89 +a)*skalax)+ margines,( 75 *skalay)+b);
setpointarray( 88 ,(( 39.85 +a)*skalax)+ margines,( 74 *skalay)+b);
setpointarray( 89 ,(( 39.8 +a)*skalax)+ margines,( 73 *skalay)+b);
setpointarray( 90 ,(( 39.75 +a)*skalax)+ margines,( 72 *skalay)+b);
setpointarray( 91 ,(( 39.69 +a)*skalax)+ margines,( 71 *skalay)+b);
setpointarray( 92 ,(( 39.62 +a)*skalax)+ margines,( 70 *skalay)+b);
setpointarray( 93 ,(( 39.55 +a)*skalax)+ margines,( 69 *skalay)+b);
setpointarray( 94 ,(( 39.47 +a)*skalax)+ margines,( 68 *skalay)+b);
setpointarray( 95 ,(( 39.38 +a)*skalax)+ margines,( 67 *skalay)+b);
setpointarray( 96 ,(( 39.29 +a)*skalax)+ margines,( 66 *skalay)+b);
setpointarray( 97 ,(( 39.19 +a)*skalax)+ margines,( 65 *skalay)+b);
setpointarray( 98 ,(( 39.09 +a)*skalax)+ margines,( 64 *skalay)+b);
setpointarray( 99 ,(( 38.97 +a)*skalax)+ margines,( 63 *skalay)+b);
setpointarray( 100 ,(( 38.86 +a)*skalax)+ margines,( 62 *skalay)+b);
setpointarray( 101 ,(( 38.73 +a)*skalax)+ margines,( 61 *skalay)+b);
setpointarray( 102 ,(( 38.6 +a)*skalax)+ margines,( 60 *skalay)+b);
setpointarray( 103 ,(( 38.46 +a)*skalax)+ margines,( 59 *skalay)+b);
setpointarray( 104 ,(( 38.31 +a)*skalax)+ margines,( 58 *skalay)+b);
setpointarray( 105 ,(( 38.16 +a)*skalax)+ margines,( 57 *skalay)+b);
setpointarray( 106 ,(( 38 +a)*skalax)+ margines,( 56 *skalay)+b);
setpointarray( 107 ,(( 37.83 +a)*skalax)+ margines,( 55 *skalay)+b);
setpointarray( 108 ,(( 37.65 +a)*skalax)+ margines,( 54 *skalay)+b);
setpointarray( 109 ,(( 37.47 +a)*skalax)+ margines,( 53 *skalay)+b);
setpointarray( 110 ,(( 37.28 +a)*skalax)+ margines,( 52 *skalay)+b);
setpointarray( 111 ,(( 37.08 +a)*skalax)+ margines,( 51 *skalay)+b);
setpointarray( 112 ,(( 36.87 +a)*skalax)+ margines,( 50 *skalay)+b);
setpointarray( 113 ,(( 36.66 +a)*skalax)+ margines,( 49 *skalay)+b);
setpointarray( 114 ,(( 36.44 +a)*skalax)+ margines,( 48 *skalay)+b);
setpointarray( 115 ,(( 36.21 +a)*skalax)+ margines,( 47 *skalay)+b);
setpointarray( 116 ,(( 35.97 +a)*skalax)+ margines,( 46 *skalay)+b);
setpointarray( 117 ,(( 35.72 +a)*skalax)+ margines,( 45 *skalay)+b);
setpointarray( 118 ,(( 35.46 +a)*skalax)+ margines,( 44 *skalay)+b);
setpointarray( 119 ,(( 35.2 +a)*skalax)+ margines,( 43 *skalay)+b);
setpointarray( 120 ,(( 34.92 +a)*skalax)+ margines,( 42 *skalay)+b);
setpointarray( 121 ,(( 34.64 +a)*skalax)+ margines,( 41 *skalay)+b);
setpointarray( 122 ,(( 34.35 +a)*skalax)+ margines,( 40 *skalay)+b);
setpointarray( 123 ,(( 34.04 +a)*skalax)+ margines,( 39 *skalay)+b);
setpointarray( 124 ,(( 33.73 +a)*skalax)+ margines,( 38 *skalay)+b);
setpointarray( 125 ,(( 33.41 +a)*skalax)+ margines,( 37 *skalay)+b);
setpointarray( 126 ,(( 33.07 +a)*skalax)+ margines,( 36 *skalay)+b);
setpointarray( 127 ,(( 32.73 +a)*skalax)+ margines,( 35 *skalay)+b);
setpointarray( 128 ,(( 32.37 +a)*skalax)+ margines,( 34 *skalay)+b);
setpointarray( 129 ,(( 32 +a)*skalax)+ margines,( 33 *skalay)+b);
setpointarray( 130 ,(( 31.62 +a)*skalax)+ margines,( 32 *skalay)+b);
setpointarray( 131 ,(( 31.22 +a)*skalax)+ margines,( 31 *skalay)+b);
setpointarray( 132 ,(( 30.82 +a)*skalax)+ margines,( 30 *skalay)+b);
setpointarray( 133 ,(( 30.4 +a)*skalax)+ margines,( 29 *skalay)+b);
setpointarray( 134 ,(( 29.96 +a)*skalax)+ margines,( 28 *skalay)+b);
setpointarray( 135 ,(( 29.51 +a)*skalax)+ margines,( 27 *skalay)+b);
setpointarray( 136 ,(( 29.05 +a)*skalax)+ margines,( 26 *skalay)+b);
setpointarray( 137 ,(( 28.57 +a)*skalax)+ margines,( 25 *skalay)+b);
setpointarray( 138 ,(( 28.07 +a)*skalax)+ margines,( 24 *skalay)+b);
setpointarray( 139 ,(( 27.55 +a)*skalax)+ margines,( 23 *skalay)+b);
setpointarray( 140 ,(( 27.01 +a)*skalax)+ margines,( 22 *skalay)+b);
setpointarray( 141 ,(( 26.46 +a)*skalax)+ margines,( 21 *skalay)+b);
setpointarray( 142 ,(( 25.88 +a)*skalax)+ margines,( 20 *skalay)+b);
setpointarray( 143 ,(( 25.28 +a)*skalax)+ margines,( 19 *skalay)+b);
setpointarray( 144 ,(( 24.65 +a)*skalax)+ margines,( 18 *skalay)+b);
setpointarray( 145 ,(( 24 +a)*skalax)+ margines,( 17 *skalay)+b);
setpointarray( 146 ,(( 23.32 +a)*skalax)+ margines,( 16 *skalay)+b);
setpointarray( 147 ,(( 22.61 +a)*skalax)+ margines,( 15 *skalay)+b);
setpointarray( 148 ,(( 21.86 +a)*skalax)+ margines,( 14 *skalay)+b);
setpointarray( 149 ,(( 21.07 +a)*skalax)+ margines,( 13 *skalay)+b);
setpointarray( 150 ,(( 20.24 +a)*skalax)+ margines,( 12 *skalay)+b);
setpointarray( 151 ,(( 19.36 +a)*skalax)+ margines,( 11 *skalay)+b);
setpointarray( 152 ,(( 18.43 +a)*skalax)+ margines,( 10 *skalay)+b);
setpointarray( 153 ,(( 17.44 +a)*skalax)+ margines,( 9 *skalay)+b);
setpointarray( 154 ,(( 16.36 +a)*skalax)+ margines,( 8 *skalay)+b);
setpointarray( 155 ,(( 15.2 +a)*skalax)+ margines,( 7 *skalay)+b);
setpointarray( 156 ,(( 13.92 +a)*skalax)+ margines,( 6 *skalay)+b);
setpointarray( 157 ,(( 12.49 +a)*skalax)+ margines,( 5 *skalay)+b);
setpointarray( 158 ,(( 10.85 +a)*skalax)+ margines,( 4 *skalay)+b);
setpointarray( 159 ,(( 8.89 +a)*skalax)+ margines,( 3 *skalay)+b);
setpointarray( 160 ,(( 6.3 +a)*skalax)+ margines,( 2 *skalay)+b);
setpointarray( 161 ,(( 0 +a)*skalax)+ margines,( 1 *skalay)+b);

a:=margines - 30;

setpointarray( 162 ,(( 0 +a)*skalax)+ margines,( 1 *skalay)+c);
setpointarray( 163 ,(( -6.3 +a)*skalax)+ margines,( 2 *skalay)+c);
setpointarray( 164 ,(( -8.89 +a)*skalax)+ margines,( 3 *skalay)+c);
setpointarray( 165 ,(( -10.85 +a)*skalax)+ margines,( 4 *skalay)+c);
setpointarray( 166 ,(( -12.49 +a)*skalax)+ margines,( 5 *skalay)+c);
setpointarray( 167 ,(( -13.92 +a)*skalax)+ margines,( 6 *skalay)+c);
setpointarray( 168 ,(( -15.2 +a)*skalax)+ margines,( 7 *skalay)+c);
setpointarray( 169 ,(( -16.36 +a)*skalax)+ margines,( 8 *skalay)+c);
setpointarray( 170 ,(( -17.44 +a)*skalax)+ margines,( 9 *skalay)+c);
setpointarray( 171 ,(( -18.43 +a)*skalax)+ margines,( 10 *skalay)+c);
setpointarray( 172 ,(( -19.36 +a)*skalax)+ margines,( 11 *skalay)+c);
setpointarray( 173 ,(( -20.24 +a)*skalax)+ margines,( 12 *skalay)+c);
setpointarray( 174 ,(( -21.07 +a)*skalax)+ margines,( 13 *skalay)+c);
setpointarray( 175 ,(( -21.86 +a)*skalax)+ margines,( 14 *skalay)+c);
setpointarray( 176 ,(( -22.61 +a)*skalax)+ margines,( 15 *skalay)+c);
setpointarray( 177 ,(( -23.32 +a)*skalax)+ margines,( 16 *skalay)+c);
setpointarray( 178 ,(( -24 +a)*skalax)+ margines,( 17 *skalay)+c);
setpointarray( 179 ,(( -24.65 +a)*skalax)+ margines,( 18 *skalay)+c);
setpointarray( 180 ,(( -25.28 +a)*skalax)+ margines,( 19 *skalay)+c);
setpointarray( 181 ,(( -25.88 +a)*skalax)+ margines,( 20 *skalay)+c);
setpointarray( 182 ,(( -26.46 +a)*skalax)+ margines,( 21 *skalay)+c);
setpointarray( 183 ,(( -27.01 +a)*skalax)+ margines,( 22 *skalay)+c);
setpointarray( 184 ,(( -27.55 +a)*skalax)+ margines,( 23 *skalay)+c);
setpointarray( 185 ,(( -28.07 +a)*skalax)+ margines,( 24 *skalay)+c);
setpointarray( 186 ,(( -28.57 +a)*skalax)+ margines,( 25 *skalay)+c);
setpointarray( 187 ,(( -29.05 +a)*skalax)+ margines,( 26 *skalay)+c);
setpointarray( 188 ,(( -29.51 +a)*skalax)+ margines,( 27 *skalay)+c);
setpointarray( 189 ,(( -29.96 +a)*skalax)+ margines,( 28 *skalay)+c);
setpointarray( 190 ,(( -30.4 +a)*skalax)+ margines,( 29 *skalay)+c);
setpointarray( 191 ,(( -30.82 +a)*skalax)+ margines,( 30 *skalay)+c);
setpointarray( 192 ,(( -31.22 +a)*skalax)+ margines,( 31 *skalay)+c);
setpointarray( 193 ,(( -31.62 +a)*skalax)+ margines,( 32 *skalay)+c);
setpointarray( 194 ,(( -32 +a)*skalax)+ margines,( 33 *skalay)+c);
setpointarray( 195 ,(( -32.37 +a)*skalax)+ margines,( 34 *skalay)+c);
setpointarray( 196 ,(( -32.73 +a)*skalax)+ margines,( 35 *skalay)+c);
setpointarray( 197 ,(( -33.07 +a)*skalax)+ margines,( 36 *skalay)+c);
setpointarray( 198 ,(( -33.41 +a)*skalax)+ margines,( 37 *skalay)+c);
setpointarray( 199 ,(( -33.73 +a)*skalax)+ margines,( 38 *skalay)+c);
setpointarray( 200 ,(( -34.04 +a)*skalax)+ margines,( 39 *skalay)+c);
setpointarray( 201 ,(( -34.35 +a)*skalax)+ margines,( 40 *skalay)+c);
setpointarray( 202 ,(( -34.64 +a)*skalax)+ margines,( 41 *skalay)+c);
setpointarray( 203 ,(( -34.92 +a)*skalax)+ margines,( 42 *skalay)+c);
setpointarray( 204 ,(( -35.2 +a)*skalax)+ margines,( 43 *skalay)+c);
setpointarray( 205 ,(( -35.46 +a)*skalax)+ margines,( 44 *skalay)+c);
setpointarray( 206 ,(( -35.72 +a)*skalax)+ margines,( 45 *skalay)+c);
setpointarray( 207 ,(( -35.97 +a)*skalax)+ margines,( 46 *skalay)+c);
setpointarray( 208 ,(( -36.21 +a)*skalax)+ margines,( 47 *skalay)+c);
setpointarray( 209 ,(( -36.44 +a)*skalax)+ margines,( 48 *skalay)+c);
setpointarray( 210 ,(( -36.66 +a)*skalax)+ margines,( 49 *skalay)+c);
setpointarray( 211 ,(( -36.87 +a)*skalax)+ margines,( 50 *skalay)+c);
setpointarray( 212 ,(( -37.08 +a)*skalax)+ margines,( 51 *skalay)+c);
setpointarray( 213 ,(( -37.28 +a)*skalax)+ margines,( 52 *skalay)+c);
setpointarray( 214 ,(( -37.47 +a)*skalax)+ margines,( 53 *skalay)+c);
setpointarray( 215 ,(( -37.65 +a)*skalax)+ margines,( 54 *skalay)+c);
setpointarray( 216 ,(( -37.83 +a)*skalax)+ margines,( 55 *skalay)+c);
setpointarray( 217 ,(( -38 +a)*skalax)+ margines,( 56 *skalay)+c);
setpointarray( 218 ,(( -38.16 +a)*skalax)+ margines,( 57 *skalay)+c);
setpointarray( 219 ,(( -38.31 +a)*skalax)+ margines,( 58 *skalay)+c);
setpointarray( 220 ,(( -38.46 +a)*skalax)+ margines,( 59 *skalay)+c);
setpointarray( 221 ,(( -38.6 +a)*skalax)+ margines,( 60 *skalay)+c);
setpointarray( 222 ,(( -38.73 +a)*skalax)+ margines,( 61 *skalay)+c);
setpointarray( 223 ,(( -38.86 +a)*skalax)+ margines,( 62 *skalay)+c);
setpointarray( 224 ,(( -38.97 +a)*skalax)+ margines,( 63 *skalay)+c);
setpointarray( 225 ,(( -39.09 +a)*skalax)+ margines,( 64 *skalay)+c);
setpointarray( 226 ,(( -39.19 +a)*skalax)+ margines,( 65 *skalay)+c);
setpointarray( 227 ,(( -39.29 +a)*skalax)+ margines,( 66 *skalay)+c);
setpointarray( 228 ,(( -39.38 +a)*skalax)+ margines,( 67 *skalay)+c);
setpointarray( 229 ,(( -39.47 +a)*skalax)+ margines,( 68 *skalay)+c);
setpointarray( 230 ,(( -39.55 +a)*skalax)+ margines,( 69 *skalay)+c);
setpointarray( 231 ,(( -39.62 +a)*skalax)+ margines,( 70 *skalay)+c);
setpointarray( 232 ,(( -39.69 +a)*skalax)+ margines,( 71 *skalay)+c);
setpointarray( 233 ,(( -39.75 +a)*skalax)+ margines,( 72 *skalay)+c);
setpointarray( 234 ,(( -39.8 +a)*skalax)+ margines,( 73 *skalay)+c);
setpointarray( 235 ,(( -39.85 +a)*skalax)+ margines,( 74 *skalay)+c);
setpointarray( 236 ,(( -39.89 +a)*skalax)+ margines,( 75 *skalay)+c);
setpointarray( 237 ,(( -39.92 +a)*skalax)+ margines,( 76 *skalay)+c);
setpointarray( 238 ,(( -39.95 +a)*skalax)+ margines,( 77 *skalay)+c);
setpointarray( 239 ,(( -39.97 +a)*skalax)+ margines,( 78 *skalay)+c);
setpointarray( 240 ,(( -39.99 +a)*skalax)+ margines,( 79 *skalay)+c);
setpointarray( 241 ,(( -40 +a)*skalax)+ margines,( 80 *skalay)+c);
setpointarray( 242 ,(( -40 +a)*skalax)+ margines,( 81 *skalay)+c);
setpointarray( 243 ,(( -40 +a)*skalax)+ margines,( 82 *skalay)+c);
setpointarray( 244 ,(( -39.99 +a)*skalax)+ margines,( 83 *skalay)+c);
setpointarray( 245 ,(( -39.97 +a)*skalax)+ margines,( 84 *skalay)+c);
setpointarray( 246 ,(( -39.95 +a)*skalax)+ margines,( 85 *skalay)+c);
setpointarray( 247 ,(( -39.92 +a)*skalax)+ margines,( 86 *skalay)+c);
setpointarray( 248 ,(( -39.89 +a)*skalax)+ margines,( 87 *skalay)+c);
setpointarray( 249 ,(( -39.85 +a)*skalax)+ margines,( 88 *skalay)+c);
setpointarray( 250 ,(( -39.8 +a)*skalax)+ margines,( 89 *skalay)+c);
setpointarray( 251 ,(( -39.75 +a)*skalax)+ margines,( 90 *skalay)+c);
setpointarray( 252 ,(( -39.69 +a)*skalax)+ margines,( 91 *skalay)+c);
setpointarray( 253 ,(( -39.62 +a)*skalax)+ margines,( 92 *skalay)+c);
setpointarray( 254 ,(( -39.55 +a)*skalax)+ margines,( 93 *skalay)+c);
setpointarray( 255 ,(( -39.47 +a)*skalax)+ margines,( 94 *skalay)+c);
setpointarray( 256 ,(( -39.38 +a)*skalax)+ margines,( 95 *skalay)+c);
setpointarray( 257 ,(( -39.29 +a)*skalax)+ margines,( 96 *skalay)+c);
setpointarray( 258 ,(( -39.19 +a)*skalax)+ margines,( 97 *skalay)+c);
setpointarray( 259 ,(( -39.09 +a)*skalax)+ margines,( 98 *skalay)+c);
setpointarray( 260 ,(( -38.97 +a)*skalax)+ margines,( 99 *skalay)+c);
setpointarray( 261 ,(( -38.86 +a)*skalax)+ margines,( 100 *skalay)+c);
setpointarray( 262 ,(( -38.73 +a)*skalax)+ margines,( 101 *skalay)+c);
setpointarray( 263 ,(( -38.6 +a)*skalax)+ margines,( 102 *skalay)+c);
setpointarray( 264 ,(( -38.46 +a)*skalax)+ margines,( 103 *skalay)+c);
setpointarray( 265 ,(( -38.31 +a)*skalax)+ margines,( 104 *skalay)+c);
setpointarray( 266 ,(( -38.16 +a)*skalax)+ margines,( 105 *skalay)+c);
setpointarray( 267 ,(( -38 +a)*skalax)+ margines,( 106 *skalay)+c);
setpointarray( 268 ,(( -37.83 +a)*skalax)+ margines,( 107 *skalay)+c);
setpointarray( 269 ,(( -37.65 +a)*skalax)+ margines,( 108 *skalay)+c);
setpointarray( 270 ,(( -37.47 +a)*skalax)+ margines,( 109 *skalay)+c);
setpointarray( 271 ,(( -37.28 +a)*skalax)+ margines,( 110 *skalay)+c);
setpointarray( 272 ,(( -37.08 +a)*skalax)+ margines,( 111 *skalay)+c);
setpointarray( 273 ,(( -36.87 +a)*skalax)+ margines,( 112 *skalay)+c);
setpointarray( 274 ,(( -36.66 +a)*skalax)+ margines,( 113 *skalay)+c);
setpointarray( 275 ,(( -36.44 +a)*skalax)+ margines,( 114 *skalay)+c);
setpointarray( 276 ,(( -36.21 +a)*skalax)+ margines,( 115 *skalay)+c);
setpointarray( 277 ,(( -35.97 +a)*skalax)+ margines,( 116 *skalay)+c);
setpointarray( 278 ,(( -35.72 +a)*skalax)+ margines,( 117 *skalay)+c);
setpointarray( 279 ,(( -35.46 +a)*skalax)+ margines,( 118 *skalay)+c);
setpointarray( 280 ,(( -35.2 +a)*skalax)+ margines,( 119 *skalay)+c);
setpointarray( 281 ,(( -34.92 +a)*skalax)+ margines,( 120 *skalay)+c);
setpointarray( 282 ,(( -34.64 +a)*skalax)+ margines,( 121 *skalay)+c);
setpointarray( 283 ,(( -34.35 +a)*skalax)+ margines,( 122 *skalay)+c);
setpointarray( 284 ,(( -34.04 +a)*skalax)+ margines,( 123 *skalay)+c);
setpointarray( 285 ,(( -33.73 +a)*skalax)+ margines,( 124 *skalay)+c);
setpointarray( 286 ,(( -33.41 +a)*skalax)+ margines,( 125 *skalay)+c);
setpointarray( 287 ,(( -33.07 +a)*skalax)+ margines,( 126 *skalay)+c);
setpointarray( 288 ,(( -32.73 +a)*skalax)+ margines,( 127 *skalay)+c);
setpointarray( 289 ,(( -32.37 +a)*skalax)+ margines,( 128 *skalay)+c);
setpointarray( 290 ,(( -32 +a)*skalax)+ margines,( 129 *skalay)+c);
setpointarray( 291 ,(( -31.62 +a)*skalax)+ margines,( 130 *skalay)+c);
setpointarray( 292 ,(( -31.22 +a)*skalax)+ margines,( 131 *skalay)+c);
setpointarray( 293 ,(( -30.82 +a)*skalax)+ margines,( 132 *skalay)+c);
setpointarray( 294 ,(( -30.4 +a)*skalax)+ margines,( 133 *skalay)+c);
setpointarray( 295 ,(( -29.96 +a)*skalax)+ margines,( 134 *skalay)+c);
setpointarray( 296 ,(( -29.51 +a)*skalax)+ margines,( 135 *skalay)+c);
setpointarray( 297 ,(( -29.05 +a)*skalax)+ margines,( 136 *skalay)+c);
setpointarray( 298 ,(( -28.57 +a)*skalax)+ margines,( 137 *skalay)+c);
setpointarray( 299 ,(( -28.07 +a)*skalax)+ margines,( 138 *skalay)+c);
setpointarray( 300 ,(( -27.55 +a)*skalax)+ margines,( 139 *skalay)+c);
setpointarray( 301 ,(( -27.01 +a)*skalax)+ margines,( 140 *skalay)+c);
setpointarray( 302 ,(( -26.46 +a)*skalax)+ margines,( 141 *skalay)+c);
setpointarray( 303 ,(( -25.88 +a)*skalax)+ margines,( 142 *skalay)+c);
setpointarray( 304 ,(( -25.28 +a)*skalax)+ margines,( 143 *skalay)+c);
setpointarray( 305 ,(( -24.65 +a)*skalax)+ margines,( 144 *skalay)+c);
setpointarray( 306 ,(( -24 +a)*skalax)+ margines,( 145 *skalay)+c);
setpointarray( 307 ,(( -23.32 +a)*skalax)+ margines,( 146 *skalay)+c);
setpointarray( 308 ,(( -22.61 +a)*skalax)+ margines,( 147 *skalay)+c);
setpointarray( 309 ,(( -21.86 +a)*skalax)+ margines,( 148 *skalay)+c);
setpointarray( 310 ,(( -21.07 +a)*skalax)+ margines,( 149 *skalay)+c);
setpointarray( 311 ,(( -20.24 +a)*skalax)+ margines,( 150 *skalay)+c);
setpointarray( 312 ,(( -19.36 +a)*skalax)+ margines,( 151 *skalay)+c);
setpointarray( 313 ,(( -18.43 +a)*skalax)+ margines,( 152 *skalay)+c);
setpointarray( 314 ,(( -17.44 +a)*skalax)+ margines,( 153 *skalay)+c);
setpointarray( 315 ,(( -16.36 +a)*skalax)+ margines,( 154 *skalay)+c);
setpointarray( 316 ,(( -15.2 +a)*skalax)+ margines,( 155 *skalay)+c);
setpointarray( 317 ,(( -13.92 +a)*skalax)+ margines,( 156 *skalay)+c);
setpointarray( 318 ,(( -12.49 +a)*skalax)+ margines,( 157 *skalay)+c);
setpointarray( 319 ,(( -10.85 +a)*skalax)+ margines,( 158 *skalay)+c);
setpointarray( 320 ,(( -8.89 +a)*skalax)+ margines,( 159 *skalay)+c);
setpointarray( 321 ,(( -6.3 +a)*skalax)+ margines,( 160 *skalay)+c);
setpointarray( 322 ,(( 0 +a)*skalax)+ margines,( 161 *skalay)+c);

polygon;
refresh;
end
else
begin
end;

if (x <= dwamarginesy+55) and (y > dwamarginesy+55) then
begin
showmessage ('front zbyt mały do frezowania wewntarz');
end
else
begin
end;

if (x < dwamarginesy+55) and (y < dwamarginesy+55) then
begin
showmessage ('front zbyt mały do frezowania wewntarz');
end
else
begin
end;

UstawWysokoscStrony(y);
SetWorkWidth(x);
SetPenColor (clred); //Rysowanie ramki
prostokat (krawedz,krawedz,xa,ya);

selectall; // obracanie obiektu o 90stopni jesli wymiar wiekszy niz 100cm
if y > 1000 then
begin
obrot(270,x/2,x/2);
UstawWysokoscStrony(x);
SetWorkWidth(y);
end
else
begin
end;
selectall;

end.
do robieni frontów meblowych



Tagi:

Awatar użytkownika

Piotr Rakowski
Lider FORUM (min. 2000)
Lider FORUM (min. 2000)
Posty w temacie: 1
Posty: 2173
Rejestracja: 29 lip 2005, 15:07
Lokalizacja: Warszawa
Kontakt:

#2

Post napisał: Piotr Rakowski » 15 cze 2010, 21:12

No TU ZAIMPONOWAŁEŚ MI niezmiernie. Brawo kol. Mitek!!!
Maszyny i oprogramowanie CNC: eduCAD, STEP2CNC, LynxCUT, Styro3D, Tapper, cncCAD, Image2CAM, Turn3D, TERMCUT, LynxNEST (Nesting)

Awatar użytkownika

Autor tematu
mitek
Specjalista poziom 3 (min. 600)
Specjalista poziom 3 (min. 600)
Posty w temacie: 2
Posty: 744
Rejestracja: 09 cze 2009, 22:06
Lokalizacja: k/Krakowa
Kontakt:

#3

Post napisał: mitek » 15 cze 2010, 23:25

to fajny skrypt zasadę wykorzystuje w wielu innych wszystko zależy od tego jakie kształty chce u góry i u dołu...

miałem ochotę to zrobić wykorzystując funkcje łuków ale tak było szybciej a na razie jeszcze niema funkcji rysowania łuku o promieniu opartego na punktach ale tak też jest oki...

ODPOWIEDZ Poprzedni tematNastępny temat

Wróć do „eduCAD”