2016-05-23 08:30 PM
2016-05-24 05:59 AM
2016-05-24 11:38 AM
2016-05-24 07:52 PM
2016-05-25 03:14 AM
UnIDtest = 1 If GLOB_MODPAR_NAME = "cornerLX1" or GLOB_MODPAR_NAME = "cornerLY1" then cornerLX1 = cornerLX1 cornerLY1 = cornerLY1 else if cornerLX1 > .0001 or cornerLX1 < -.0001 then cornerLX1 = 0 parameters cornerLX1 = cornerLX1 endif if cornerLY1 > .0001 or cornerLY1 < -.0001 then cornerLY1 = 0 parameters cornerLY1 = cornerLY1 endif endif if cornerLX1 > .0001 then IF cornerLX1 <= 2 THEN figx = 1 IF cornerLX1 >2 THEN figX = 2 IF cornerLX1 >5 THEN figX = 3 IF cornerLX1 >8 THEN figX = 4 IF cornerLX1 >11 THEN figX = 5 parameters figx = figx endif if CornerLY1 > .0001 then IF cornerLY1 <= 1 THEN figy = 1 IF cornerLY1 > 1 THEN figy = 2 IF cornerLY1 > 3 THEN figy = 3 IF cornerLY1 > 5 THEN figy = 4 IF cornerLY1 > 7 THEN figy = 5 parameters figy = figy endif2d script:
!!******* HOTSPOT CONTROL ******* !! X Dimension hotspots HOTSPOT2 0, cornerLY1, UnIDtest, cornerLX1, 1+128 : UnIDtest = UnIDtest + 1 HOTSPOT2 -1, cornerLY1, UnIDtest, cornerLX1, 3 : UnIDtest = UnIDtest + 1 HOTSPOT2 cornerLX1, cornerLY1, UnIDtest, cornerLX1, 2 : UnIDtest = UnIDtest + 1 !! Y dimension hotspots HOTSPOT2 cornerLX1, 0, UnIDtest, cornerLY1, 1+128 : UnIDtest = UnIDtest + 1 HOTSPOT2 cornerLX1, -1, UnIDtest, cornerLY1, 3 : UnIDtest = UnIDtest + 1 HOTSPOT2 cornerLX1, cornerLY1, UnIDtest, cornerLY1, 2 : UnIDtest = UnIDtest + 1 !!******* HOTSPOT CONTROL ******* pen penAttribute_1 fill fillAttribute_1 for j = 1 to figy for i = 1 to figX poly2_b{5} 5, 3, 1, 3, penAttribute_1, penAttribute_2, 0, 0, 1, 0, 0, 1, 0, 0, 0, 33, 0, 1, 33, 2, 1, 33, 2, 0, 33, 0, 0, 33 add2 3,0 next i del figx add2 0, 2 next j