%script to make simple plot of stereonet
%JRA 3/26/09 using DMR functions

figure(1)
clf
primitive1;
text(0,1, 'N', 'HorizontalAlignment', 'center', 'VerticalAlignment', 'bottom')

azimuth = 350;
dip = 35;
dipdir = convertrhr(azimuth)
greatcircle(dip, dipdir);


plunge=35;
trend=080;
plotpoint(plunge,trend)

