octave:2> % generating profile for a virtual "awl" tip with smooth edges for use in clay stamps octave:2> p = [0,2;1,2;2,1;4,-.5] p = 0.00000 2.00000 1.00000 2.00000 2.00000 1.00000 4.00000 -0.50000 octave:3> slope = [0,0,89,-5]; octave:4> v=sampleSpline(p,slope,2,.1) 1 0 2 0 1 2 0 0 0 0 2 1.00000 2.00000 0.00000 2.00000 1.00000 57.28996 0.00000 -60.28996 59.28996 3 2.000000 1.000000 57.289962 4.000000 -0.500000 -0.087489 57.290 -58.371 14.676 v = 0.00000 2.00000 0.50000 2.00000 1.00000 2.00000 1.03906 1.91154 1.05469 1.82939 1.06250 1.77897 1.07812 1.66029 1.09375 1.51896 1.12500 1.17377 1.25000 -0.84172 1.50000 -5.66125 1.56250 -6.52378 1.59375 -6.84399 1.60938 -6.97158 1.62500 -7.07568 1.64062 -7.15494 1.71875 -7.13109 1.73438 -7.03279 1.75000 -6.90015 1.78125 -6.52642 1.81250 -5.99903 1.87500 -4.43986 2.00000 1.00000 2.25000 11.90360 2.37500 15.04919 2.43750 16.12068 2.50000 16.88663 2.53125 17.16174 2.54688 17.27351 2.56250 17.36853 2.57812 17.44714 2.59375 17.50968 2.60547 17.54624 2.67578 17.58763 2.71094 17.50029 2.73438 17.40466 2.75000 17.32494 2.76562 17.23284 2.78125 17.12870 2.81250 16.88563 2.87500 16.26977 3.00000 14.59436 3.50000 5.12992 3.75000 1.14772 3.81250 0.46319 3.84375 0.18236 3.87500 -0.05394 3.89062 -0.15454 3.90625 -0.24301 3.92188 -0.31900 3.93750 -0.38217 3.95312 -0.43219 4.00000 -0.50000 octave:5> hold off;plot(v(:,1),v(:,2));hold on;plot(v(:,1),v(:,2),'.r','markersize',3);grid on octave:6> hold off;plot(v(:,1),v(:,2));hold on;plot(p(:,1),p(:,2),'or');grid on octave:7> p p = 0.00000 2.00000 1.00000 2.00000 2.00000 1.00000 4.00000 -0.50000 octave:8> slope slope = 0 0 89 -5 octave:9> slope(3)=-89 slope = 0 0 -89 -5 octave:10> v=sampleSpline(p,slope,2,.1) 1 0 2 0 1 2 0 0 0 0 2 1.00000 2.00000 0.00000 2.00000 1.00000 -57.28996 0.00000 54.28996 -55.28996 3 2.000000 1.000000 -57.289962 4.000000 -0.500000 -0.087489 -57.290 56.209 -13.969 v = 0.00000 2.00000 0.50000 2.00000 1.00000 2.00000 1.03906 2.07954 1.05469 2.15332 1.06250 2.19857 1.07812 2.30500 1.09375 2.43160 1.12500 2.74029 1.25000 4.52922 1.50000 8.66125 1.53125 9.03229 1.56250 9.33726 1.57812 9.46180 1.59375 9.56603 1.60938 9.64868 1.69531 9.66098 1.71094 9.57251 1.71875 9.51671 1.73438 9.38116 1.75000 9.21265 1.78125 8.77165 1.81250 8.18360 1.87500 6.52580 2.00000 1.00000 2.25000 -10.02772 2.37500 -13.31605 2.43750 -14.47546 2.50000 -15.33897 2.53125 -15.66617 2.56250 -15.92706 2.57812 -16.03345 2.59375 -16.12422 2.60156 -16.16385 2.61719 -16.23179 2.63281 -16.28492 2.71094 -16.33952 2.74219 -16.26883 2.76562 -16.18350 2.78125 -16.11182 2.79688 -16.02869 2.81250 -15.93441 2.84375 -15.71372 2.87500 -15.45231 2.93750 -14.81756 3.00000 -14.05062 3.50000 -5.61195 3.75000 -1.98532 3.81250 -1.36209 3.84375 -1.10705 3.87500 -0.89315 3.89062 -0.80242 3.90625 -0.72293 3.92188 -0.65501 3.94922 -0.56492 4.00000 -0.50000 octave:11> v=sampleSpline(p,slope,2,.1); 1 0 2 0 1 2 0 0 0 0 2 1.00000 2.00000 0.00000 2.00000 1.00000 -57.28996 0.00000 54.28996 -55.28996 3 2.000000 1.000000 -57.289962 4.000000 -0.500000 -0.087489 -57.290 56.209 -13.969 octave:12> hold off;plot(v(:,1),v(:,2));hold on;plot(p(:,1),p(:,2),'or');grid on octave:13> slope(1)=-5 slope = -5 0 -89 -5 octave:14> v=sampleSpline(p,slope,2,.1); 1 0.00000 2.00000 -0.08749 1.00000 2.00000 0.00000 -0.087489 0.174977 -0.087489 2 1.00000 2.00000 0.00000 2.00000 1.00000 -57.28996 0.00000 54.28996 -55.28996 3 2.000000 1.000000 -57.289962 4.000000 -0.500000 -0.087489 -57.290 56.209 -13.969 octave:15> hold off;plot(v(:,1),v(:,2),'.');hold on;plot(p(:,1),p(:,2),'or');grid on octave:16> hold off;plot(v(:,1),v(:,2));hold on;plot(p(:,1),p(:,2),'or');grid on octave:17> p p = 0.00000 2.00000 1.00000 2.00000 2.00000 1.00000 4.00000 -0.50000 octave:18> disp([p;slope']) error: vertical dimensions mismatch (4x2 vs 4x1) octave:18> whos p slope Variables in the current scope: Attr Name Size Bytes Class ==== ==== ==== ===== ===== p 4x2 64 double slope 1x4 32 double Total is 12 elements using 96 bytes octave:19> disp([p,slope']) 0.00000 2.00000 -5.00000 1.00000 2.00000 0.00000 2.00000 1.00000 -89.00000 4.00000 -0.50000 -5.00000 octave:20> slope(3)=-80;slope(2)=-10;slope(1)=0 slope = 0 -10 -80 -5 octave:21> disp([p,slope']) 0.00000 2.00000 0.00000 1.00000 2.00000 -10.00000 2.00000 1.00000 -80.00000 4.00000 -0.50000 -5.00000 octave:22> v=sampleSpline(p,slope,2,.1); 1 0.00000 2.00000 0.00000 1.00000 2.00000 -0.17633 0.00000 0.17633 -0.17633 2 1.00000 2.00000 -0.17633 2.00000 1.00000 -5.67128 -0.17633 3.02394 -3.84761 3 2.000000 1.000000 -5.671282 4.000000 -0.500000 -0.087489 -5.6713 4.5900 -1.0647 octave:23> hold off;plot(v(:,1),v(:,2));hold on;plot(p(:,1),p(:,2),'or');grid on octave:24> disp([p,slope']) 0.00000 2.00000 0.00000 1.00000 2.00000 -10.00000 2.00000 1.00000 -80.00000 4.00000 -0.50000 -5.00000 octave:25> slope(2)=0; octave:26> v=sampleSpline(p,slope,2,.1); 1 0 2 0 1 2 0 0 0 0 2 1.00000 2.00000 0.00000 2.00000 1.00000 -5.67128 0.00000 2.67128 -3.67128 3 2.000000 1.000000 -5.671282 4.000000 -0.500000 -0.087489 -5.6713 4.5900 -1.0647 octave:27> hold off;plot(v(:,1),v(:,2));hold on;plot(p(:,1),p(:,2),'or');grid on octave:28> slope slope = 0 0 -80 -5 octave:29> slope(4)=-10 slope = 0 0 -80 -10 octave:30> v=sampleSpline(p,slope,2,.1); 1 0 2 0 1 2 0 0 0 0 2 1.00000 2.00000 0.00000 2.00000 1.00000 -5.67128 0.00000 2.67128 -3.67128 3 2.00000 1.00000 -5.67128 4.00000 -0.50000 -0.17633 -5.6713 4.6344 -1.0869 octave:31> hold off;plot(v(:,1),v(:,2));hold on;plot(p(:,1),p(:,2),'or');grid on octave:32> slope(2)=-60; octave:33> v=sampleSpline(p,slope,2,.1); 1 0.00000 2.00000 0.00000 1.00000 2.00000 -1.73205 0.00000 1.73205 -1.73205 2 1.0000 2.0000 -1.7321 2.0000 1.0000 -5.6713 -1.7321 6.1354 -5.4033 3 2.00000 1.00000 -5.67128 4.00000 -0.50000 -0.17633 -5.6713 4.6344 -1.0869 octave:34> hold off;plot(v(:,1),v(:,2));hold on;plot(p(:,1),p(:,2),'or');grid on octave:35> disp([p,slope']) 0.00000 2.00000 0.00000 1.00000 2.00000 -60.00000 2.00000 1.00000 -80.00000 4.00000 -0.50000 -10.00000 octave:36> slope=[0 0 -60 -10]; octave:37> v=sampleSpline(p,slope,2,.1); 1 0 2 0 1 2 0 0 0 0 2 1.00000 2.00000 0.00000 2.00000 1.00000 -1.73205 0.00000 -1.26795 0.26795 3 2.00000 1.00000 -1.73205 4.00000 -0.50000 -0.17633 -1.73205 0.69521 -0.10209 octave:38> hold off;plot(v(:,1),v(:,2));hold on;plot(p(:,1),p(:,2),'or');grid on octave:39> slope=[0 0 -60 -1]; octave:40> v=sampleSpline(p,slope,2,.1); 1 0 2 0 1 2 0 0 0 0 2 1.00000 2.00000 0.00000 2.00000 1.00000 -1.73205 0.00000 -1.26795 0.26795 3 2.000000 1.000000 -1.732051 4.000000 -0.500000 -0.017455 -1.732051 0.615778 -0.062376 octave:41> hold off;plot(v(:,1),v(:,2));hold on;plot(p(:,1),p(:,2),'or');grid on octave:42> slope=[0 0 -60 -4]; octave:43> v=sampleSpline(p,slope,2,.1); 1 0 2 0 1 2 0 0 0 0 2 1.00000 2.00000 0.00000 2.00000 1.00000 -1.73205 0.00000 -1.26795 0.26795 3 2.000000 1.000000 -1.732051 4.000000 -0.500000 -0.069927 -1.732051 0.642014 -0.075494 octave:44> hold off;plot(v(:,1),v(:,2));hold on;plot(p(:,1),p(:,2),'or');grid on octave:45> p p = 0.00000 2.00000 1.00000 2.00000 2.00000 1.00000 4.00000 -0.50000 octave:46> p(4,:)=[4 -.1] p = 0.00000 2.00000 1.00000 2.00000 2.00000 1.00000 4.00000 -0.10000 octave:47> v=sampleSpline(p,slope,2,.1); 1 0 2 0 1 2 0 0 0 0 2 1.00000 2.00000 0.00000 2.00000 1.00000 -1.73205 0.00000 -1.26795 0.26795 3 2.000000 1.000000 -1.732051 4.000000 -0.100000 -0.069927 -1.73205 0.94201 -0.17549 octave:48> hold off;plot(v(:,1),v(:,2));hold on;plot(p(:,1),p(:,2),'or');grid on octave:49> disp([p,slope']) 0.00000 2.00000 0.00000 1.00000 2.00000 0.00000 2.00000 1.00000 -60.00000 4.00000 -0.10000 -4.00000 octave:50> slope=[0 0 -70 -4]; octave:51> v=sampleSpline(p,slope,2,.1); 1 0 2 0 1 2 0 0 0 0 2 1.00000 2.00000 0.00000 2.00000 1.00000 -2.74748 0.00000 -0.25252 -0.74748 3 2.000000 1.000000 -2.747477 4.000000 -0.100000 -0.069927 -2.74748 1.95744 -0.42935 octave:52> hold off;plot(v(:,1),v(:,2));hold on;plot(p(:,1),p(:,2),'or');grid on octave:53> p = [0,2; 1,2; 2,1.5; 4,-.1] p = 0.00000 2.00000 1.00000 2.00000 2.00000 1.50000 4.00000 -0.10000 octave:54> v=sampleSpline(p,slope,2,.1); 1 0 2 0 1 2 0 0 0 0 2 1.00000 2.00000 0.00000 2.00000 1.50000 -2.74748 0.00000 1.24748 -1.74748 3 2.000000 1.500000 -2.747477 4.000000 -0.100000 -0.069927 -2.74748 1.58244 -0.30435 octave:55> hold off;plot(v(:,1),v(:,2));hold on;plot(p(:,1),p(:,2),'or');grid on octave:56> p = [0,2; 1,2; 2,1; 4,-.1] p = 0.00000 2.00000 1.00000 2.00000 2.00000 1.00000 4.00000 -0.10000 octave:57> v=sampleSpline(p,slope,2,.1); 1 0 2 0 1 2 0 0 0 0 2 1.00000 2.00000 0.00000 2.00000 1.00000 -2.74748 0.00000 -0.25252 -0.74748 3 2.000000 1.000000 -2.747477 4.000000 -0.100000 -0.069927 -2.74748 1.95744 -0.42935 octave:58> hold off;plot(v(:,1),v(:,2));hold on;plot(p(:,1),p(:,2),'or');grid on octave:59> octave:59> p = [0,2; 1,2; 2,1.4; 4,-.1] p = 0.00000 2.00000 1.00000 2.00000 2.00000 1.40000 4.00000 -0.10000 octave:60> v=sampleSpline(p,slope,2,.1); 1 0 2 0 1 2 0 0 0 0 2 1.00000 2.00000 0.00000 2.00000 1.40000 -2.74748 0.00000 0.94748 -1.54748 3 2.000000 1.400000 -2.747477 4.000000 -0.100000 -0.069927 -2.74748 1.65744 -0.32935 octave:61> hold off;plot(v(:,1),v(:,2));hold on;plot(p(:,1),p(:,2),'or');grid on octave:62> disp([p,slope']) 0.00000 2.00000 0.00000 1.00000 2.00000 0.00000 2.00000 1.40000 -70.00000 4.00000 -0.10000 -4.00000 octave:63> slope=[0 0 -70 -10]; octave:64> v=sampleSpline(p,slope,2,.1); 1 0 2 0 1 2 0 0 0 0 2 1.00000 2.00000 0.00000 2.00000 1.40000 -2.74748 0.00000 0.94748 -1.54748 3 2.00000 1.40000 -2.74748 4.00000 -0.10000 -0.17633 -2.74748 1.71064 -0.35595 octave:65> hold off;plot(v(:,1),v(:,2));hold on;plot(p(:,1),p(:,2),'or');grid on octave:66> p = [0,2; 1,2; 2,.5; 4,-.1] p = 0.00000 2.00000 1.00000 2.00000 2.00000 0.50000 4.00000 -0.10000 octave:67> v=sampleSpline(p,slope,2,.1); 1 0 2 0 1 2 0 0 0 0 2 1.00000 2.00000 0.00000 2.00000 0.50000 -2.74748 0.00000 -1.75252 0.25252 3 2.00000 0.50000 -2.74748 4.00000 -0.10000 -0.17633 -2.74748 2.38564 -0.58095 octave:68> hold off;plot(v(:,1),v(:,2));hold on;plot(p(:,1),p(:,2),'or');grid on octave:69> p = [0,2; 1,2; 2,.5; 3.5,-.1] p = 0.00000 2.00000 1.00000 2.00000 2.00000 0.50000 3.50000 -0.10000 octave:70> v=sampleSpline(p,slope,2,.1); 1 0 2 0 1 2 0 0 0 0 2 1.00000 2.00000 0.00000 2.00000 0.50000 -2.74748 0.00000 -1.75252 0.25252 3 2.00000 0.50000 -2.74748 3.50000 -0.10000 -0.17633 -2.74748 2.98085 -0.94391 octave:71> hold off;plot(v(:,1),v(:,2));hold on;plot(p(:,1),p(:,2),'or');grid on octave:72> [5776,4224]/2 ans = 2888 2112 octave:73> cntr=[5776,4224]/2 cntr = 2888 2112 octave:74> ([3200+350/2,650+250/2]-cntr)*60 ans = 29220 -80220 octave:75> ([3200+350/2,650+250/2]-cntr)*60e-6 * 180/pi ans = 1.6742 -4.5963 octave:76> ((3200+[-1 1]*350/2]-2888)*60e-6 * 180/pi parse error: syntax error >>> ((3200+[-1 1]*350/2]-2888)*60e-6 * 180/pi ^ octave:76> ((3200+[-1 1]*350/2)-2888)*60e-6 * 180/pi ans = 0.47097 1.67418 octave:77> ((650+[-1 1]*250/2)-2112)*60e-6 * 180/pi ans = -5.4557 -4.5963 octave:78> 4224*9 ans = 38016 octave:79> 576*5 ans = 2880 octave:80> 432*5 ans = 2160 octave:81> 576*6 ans = 3456 octave:82> 432*6 ans = 2592 octave:83> pwd ans = /home/aaron/Documents/3Ddrawings/BirdBathBowl octave:84> exit