to NMR_90GradPuls perspective enableCylinderLines disableRoundLineEnds setPS [5 5] schwarz=RGB 0 0 0 setPC schwarz axes 250 setPS [7 7] blau=RGB 0 0 1 setPC blau rt 90 Pfeil 200 fd 100 rt 90 fd 30 lt 90 setLabelAlign 0 0 myLabel [B][1] home rot=RGB 1 0 0 setPC rot size=150 Pfeil size fd size*0.9 rt 90 fd 30 myLabel [M][0] Home leftRoll 90 PD Arc 178 size PU right 180 fd size right 90 PfeilSpitze 30 home up 180 grün=RGB 0 1 0 setPC grün Pfeil size rt 90 fd 20 lt 90 size2=size*0.7 Pfeil size2 rightRoll 90 PD Arc 88 size2 PU right 90 fd size2 right 90 PfeilSpitze 30 zyan=RGB 0 1 1 setPC zyan home rt 90 fd 20 lt 90 rightRoll 90 left 90 PD Arc 178 size2 PU right 180 fd size2 right 90 PfeilSpitze 30 hT rotatescene end to axes size pd home setLabelAlign 1 1 setposxyz [1 0 0]*size seth 90 label "x home setposxyz [0 1 0]*size seth 90 label "z home setposxyz [0 0 -1]*size seth 90 label "y home circle 0.03*size end to myLabel l index Label l rt 45 fd 2*first labelsize l lt 45 label index end to Pfeil l lSpitze=l/8 rSpitze=l/20 p=PosXYZ ori=Orientation PD fd l-lSpitze/2 PU back lSpitze/2 rt 90 fd rSpitze SurfaceStart back rSpitze dphi=10 for [r 1 0 -.1] [ for [phi 0 360 dphi] [ down dphi PD fd r*rSpitze PU back r*rSpitze ] lt 90 fd lSpitze/9 rt 90 SurfaceColumn ] SurfaceEnd setPosXYZ p setOrientation ori end to PfeilSpitze lSpitze rSpitze=lSpitze*8/20 p=PosXYZ ori=Orientation back lSpitze rt 90 fd rSpitze SurfaceStart back rSpitze dphi=10 for [r 1 0 -.1] [ for [phi 0 360 dphi] [ down dphi PD fd r*rSpitze PU back r*rSpitze ] lt 90 fd lSpitze/9 rt 90 SurfaceColumn ] SurfaceEnd setPosXYZ p setOrientation ori end