- Timestamp:
- 05/04/11 01:17:47 (13 months ago)
- Location:
- branches/mcstas-1.x/lib
- Files:
-
- 2 modified
-
examples/templateTAS.instr (modified) (1 diff)
-
share/monitor_nd-lib.c (modified) (1 diff)
Legend:
- Unmodified
- Added
- Removed
-
branches/mcstas-1.x/lib/examples/templateTAS.instr
r3064 r3066 530 530 COMPONENT Mono_Out = Arm() 531 531 AT (0,0,0) RELATIVE Mono_Cradle 532 ROTATED (0, machine_real.a2, 0) RELATIVE Source532 ROTATED (0, machine_real.a2, 0) RELATIVE Mono_Cradle 533 533 534 534 COMPONENT SC2 = Collimator_linear( -
branches/mcstas-1.x/lib/share/monitor_nd-lib.c
r3064 r3066 790 790 if ((abs(mc_mn_Vars->Flag_Shape) == mc_mn_DEFS->SHAPE_DISK) || (abs(mc_mn_Vars->Flag_Shape) == mc_mn_DEFS->SHAPE_SPHERE)) 791 791 { 792 mc_mn_Vars->area = PI*mc_mn_Vars->Sphere_Radius*mc_mn_Vars->Sphere_Radius*1E4 /* disk shapes */792 mc_mn_Vars->area = PI*mc_mn_Vars->Sphere_Radius*mc_mn_Vars->Sphere_Radius*1E4; /* disk shapes */ 793 793 } 794 794 if (mc_mn_Vars->area == 0) mc_mn_Vars->Coord_Number = 0;
