PRO plot_hor ; kresli kruznici s delenim po 30, 10 a 2 stupnich window,0,xsize=520,ysize=512 !x.style=4 ; tim se zamezi vykresleni os !y.style=4 a=dindgen(361)*2*!pi/360 x=cos(a) y=sin(a) plot,x,y,background=255,color=0 ;kruznice o jednotkovem polomeru x=x*0.93 y=y*0.93 oplot,x,y,color=0 ; mensi soustredna kruznice x=x*0.7 y=y*0.7 oplot,x,y,color=0 ; jeste mensi soustredna kruznice x=x*0.2 y=y*0.2 oplot,x,y,color=0 ; jeste mensi soustredna kruznice a=dindgen(13)*2*!pi/12 ; deleni 30 stupnu x=cos(a) y=sin(a) x1=x*0.65 y1=y*0.65 for i=0,11 do oplot,[x(i),x1(i)],[y(i),y1(i)],color=0 a=dindgen(37)*2*!pi/36 ; deleni 10 stupnu x=cos(a) y=sin(a) x1=x*0.93 y1=y*0.93 for i=0,35 do oplot,[x(i),x1(i)],[y(i),y1(i)],color=0 a=dindgen(181)*2*!pi/180 ; deleni 2 stupne x=cos(a) y=sin(a) x1=x*0.97 y1=y*0.97 for i=0,179 do oplot,[x(i),x1(i)],[y(i),y1(i)],color=0 !x.style=0 !y.style=0 END