Полезные и бесполезные утилиты для Design

 
  •  

    $S-  -- Synonym translation OFF
    -- ----------------------------------------------------------------
    -- Data Listing    Date : 20 Mar 2009 13:53
    
    ONERROR GOLABEL /ERROR0
    
    NEW EQUIPMENT /Kuril'schik
    POS W 110050 N 7045 U 9600
    ORI Y is W and Z is U
    BUIL false
    DSCO unset
    PTSP unset
    INSC unset
    
    NEW BOX
    POS E 0 N 0 U 1125
    XLEN 180
    YLEN 176
    ZLEN 600
    
    END
    NEW BOX
    POS E 0 N 67 U 1145
    ORI Y is N 10 W and Z is U
    XLEN 20
    YLEN 50
    ZLEN 640
    
    END
    NEW CYLINDER
    POS E 0 N 67 U 1150
    ORI Y is E 10 N and Z is N 10 W
    DIAM 16
    HEIG 60
    
    END
    NEW CYLINDER
    POS E 0 N 67 U 1020
    ORI Y is E 10 N and Z is N 10 W
    DIAM 16
    HEIG 60
    
    END
    NEW CYLINDER
    POS E 0 N 67 U 890
    ORI Y is E 10 N and Z is N 10 W
    DIAM 16
    HEIG 60
    
    END
    NEW CYLINDER
    POS E 0 N 67 U 1280
    ORI Y is E 10 N and Z is N 10 W
    DIAM 16
    HEIG 60
    
    END
    NEW CYLINDER
    POS E 0 N 67 U 1410
    ORI Y is E 10 N and Z is N 10 W
    DIAM 16
    HEIG 60
    
    END
    NEW DISH
    POS E 90 N 0 U 1425
    DIAM 180
    HEIG 90
    
    END
    NEW DISH
    POS W 90 N 0 U 1425
    DIAM 180
    HEIG 90
    
    END
    NEW CYLINDER
    POS E 0 N 0 U 1425
    ORI Y is N and Z is E
    DIAM 180
    HEIG 180
    
    END
    NEW CYLINDER
    POS E 0 N 0 U 1525
    DIAM 100
    HEIG 200
    
    END
    NEW RTORUS
    POS E 15 N 10 U 1495
    ORI Y is E 15 D and Z is E 75 U
    RINS 60
    ROUT 70
    HEIG 100
    ANGL 180
    
    END
    NEW RTORUS
    POS W 15 N 10 U 1495
    ORI Y is W 15 D and Z is W 75 U
    RINS 60
    ROUT 70
    HEIG 100
    ANGL 180
    
    END
    NEW PYRAMID
    POS E 0 S 55 U 1492
    ORI Y is W and Z is D
    XBOT 10
    YBOT 55
    XTOP 10
    HEIG 102
    
    END
    NEW CYLINDER
    POS E 65 N 20 U 1660
    ORI Y is N 15 W and Z is W 15 S
    DIAM 50
    HEIG 50
    
    END
    NEW CYLINDER
    POS W 65 N 20 U 1660
    ORI Y is N 15 E and Z is E 15 S
    DIAM 50
    HEIG 50
    
    END
    NEW DISH
    POS E 0 N 20 U 1700
    DIAM 220
    HEIG 120
    
    END
    NEW CONE
    POS E 0 N 135 U 1665
    ORI Y is N 15 U and Z is S 75 U
    DTOP 10
    DBOT 30
    HEIG 40
    
    END
    NEW CYLINDER
    POS E 0 N 83 U 1610
    ORI Y is N 15 D and Z is N 75 U
    DIAM 100
    HEIG 5
    
    END
    NEW CYLINDER
    POS E 0 N 83 U 1600
    ORI Y is N 15 U and Z is S 75 U
    DIAM 100
    HEIG 5
    
    END
    NEW CYLINDER
    POS E 0 N 90 U 1710
    ORI Y is N 5 D and Z is N 85 U
    DIAM 180
    HEIG 10
    
    END
    NEW DISH
    POS E 0 N 20 U 1660
    ORI Y is N and Z is E
    DIAM 250
    HEIG 90
    RADI 90
    
    END
    NEW DISH
    POS E 0 N 20 U 1660
    ORI Y is N and Z is W
    DIAM 250
    HEIG 90
    RADI 90
    
    END
    NEW DISH
    POS E 25 N 98 U 1680
    ORI Y is D and Z is N
    DIAM 50
    HEIG 30
    
    END
    NEW DISH
    POS W 25 N 98 U 1680
    ORI Y is D and Z is N
    DIAM 50
    HEIG 30
    
    END
    NEW SNOUT
    POS E 135 N 0 U 1445
    ORI Y is S and Z is E
    DTOP 100
    DBOT 180
    XOFF 40
    HEIG 90
    
    END
    NEW SNOUT
    POS W 135 N 0 U 1445
    ORI Y is N and Z is W
    DTOP 100
    DBOT 180
    XOFF 40
    HEIG 90
    
    END
    NEW CTORUS
    POS E 180 N 0 U 1415
    ORI Y is W 80 U and Z is S
    ROUT 100
    ANGL 80
    
    END
    NEW CYLINDER
    POS E 250.078002 N 0 U 1305.505004
    ORI Y is N and Z is W 80 U
    DIAM 100
    HEIG 240
    
    END
    NEW CONE
    POS E 290.885009 N 37 U 1074.076049
    ORI Y is N 2.66034 W 14.7697 U and Z is S 32.9531 W 72.032 U
    DTOP 100
    DBOT 60
    HEIG 270
    
    END
    NEW CTORUS
    POS W 180 N 32 U 1427
    ORI Y is W and Z is S 40 D
    ROUT 100
    ANGL 85
    
    END
    NEW CYLINDER
    POS W 240.274993 N 106.043998 U 1338.766967
    ORI Y is N 5.41054 E 39.5105 U and Z is N 7.75917 W 49.7381 D
    DIAM 100
    HEIG 240
    
    END
    NEW DISH
    POS W 250.740997 N 182.889999 U 1247.196044
    ORI Y is N 5.41054 E 39.5105 U and Z is N 7.75917 W 49.7381 D
    DIAM 100
    HEIG 50
    
    END
    NEW CONE
    POS W 179.968994 N 211.942001 U 1360.172973
    ORI Y is N 6.72952 W 11.0898 D and Z is W 24.1383 S 56.7699 D
    DTOP 100
    DBOT 70
    HEIG 270
    
    END
    NEW CYLINDER
    POS W 90 N 0 U 1125
    DIAM 180
    HEIG 600
    
    END
    NEW CYLINDER
    POS W 128.636993 N 10.353 U 945
    DIAM 120
    HEIG 130
    
    END
    NEW CYLINDER
    POS E 142.363006 N 13.353 U 945
    DIAM 120
    HEIG 130
    
    END
    NEW BOX
    POS E 188.363006 N 3.353 U 1004
    ORI Y is N 4 U and Z is S 86 U
    XLEN 16
    YLEN 35
    ZLEN 240
    
    END
    NEW CYLINDER
    POS E 181.363006 N 45.353 U 1015
    ORI Y is N 3 D and Z is N 87 U
    DIAM 10
    HEIG 150
    
    END
    NEW PYRAMID
    POS W 89.961997 N 242.279998 U 1510.743041
    ORI Y is E 30 D and Z is E 60 U
    XBOT 40
    YBOT 60
    XTOP 20
    YTOP 90
    HEIG 90
    
    END
    NEW PYRAMID
    POS E 321.075988 N 83.586997 U 902.849975
    ORI Y is N 2.66032 W 14.7697 U and Z is N 32.9532 E 72.032 D
    XBOT 40
    YBOT 60
    XTOP 20
    YTOP 90
    HEIG 90
    
    END
    NEW CYLINDER
    POS W 24.461999 N 230.279998 U 1550.35498
    ORI Y is N 0.01019 E 30.0001 U and Z is W 36.8782 N 46.1008 D
    DIAM 20
    HEIG 60
    
    END
    NEW CYLINDER
    POS E 315.657012 N 67.999 U 833.507019
    ORI Y is N 6.72953 E 11.0898 U and Z is E 24.1383 S 56.7699 U
    DIAM 20
    HEIG 60
    
    END
    NEW CYLINDER
    POS W 68.461997 N 232.279998 U 1599.35498
    ORI Y is U and Z is S 10 E
    DIAM 10
    HEIG 80
    
    END
    NEW CYLINDER
    POS W 38.962001 N 228.279998 U 1571.685058
    ORI Y is N 25 U and Z is W 33.5592 N 49.851 D
    DIAM 20
    HEIG 80
    
    END
    NEW CYLINDER
    POS E 310.334014 N 91.086997 U 831.994018
    ORI Y is N 6.72952 E 11.0898 U and Z is W 24.1383 N 56.7699 D
    DIAM 20
    HEIG 80
    
    END
    NEW CYLINDER
    POS W 55.962001 N 229.279998 U 1588.685058
    ORI Y is N 20.0003 U and Z is W 29.1013 N 53.1898 D
    DIAM 20
    HEIG 90
    
    END
    NEW CYLINDER
    POS E 306.173004 N 113.880996 U 832.237976
    ORI Y is N 6.72953 E 11.0898 U and Z is E 24.1383 S 56.7699 U
    DIAM 20
    HEIG 90
    
    END
    NEW CYLINDER
    POS W 84.461997 N 232.279998 U 1599.35498
    ORI Y is N 15.0001 U and Z is W 34.4931 N 64.6786 D
    DIAM 20
    HEIG 80
    
    END
    NEW CYLINDER
    POS E 308.334014 N 134.587005 U 841.994018
    ORI Y is N 6.72953 E 11.0898 U and Z is E 24.1383 S 56.7699 U
    DIAM 20
    HEIG 80
    
    END
    NEW CYLINDER
    POS W 124.461997 N 212.279998 U 1529.35498
    ORI Y is N 30 U and Z is S 60 U
    DIAM 25
    HEIG 100
    
    END
    NEW CYLINDER
    POS E 301.075988 N 121.586997 U 907.849975
    ORI Y is N 18.33 E 39.6999 U and Z is S 20.7486 E 43.0773 U
    DIAM 25
    HEIG 100
    
    END
    NEW CYLINDER
    POS E 90 N 0 U 1125
    DIAM 180
    HEIG 600
    
    END
    NEW CONE
    POS E 111 N 45 U 675
    ORI Y is N 2.71047 W 14.5202 U and Z is S 34.294 W 72.0314 U
    DTOP 170
    DBOT 150
    HEIG 380
    
    END
    NEW CONE
    POS W 80 N 0 U 675
    DTOP 170
    DBOT 150
    HEIG 300
    
    END
    NEW CONE
    POS W 80 N 0 U 300
    DTOP 150
    DBOT 120
    HEIG 450
    
    END
    NEW CONE
    POS E 142 N 86 U 300
    DTOP 150
    DBOT 120
    HEIG 450
    
    END
    NEW PYRAMID
    POS E 165.5 N 167.5 U 35
    ORI Y is W 15 N and Z is N 15 E 3 D
    XBOT 80
    YBOT 90
    XTOP 40
    YTOP 90
    HEIG 185
    XOFF 20
    
    END
    NEW RTORUS
    POS E 142 N 81 U 40
    ORI Y is S 15 W and Z is U
    ROUT 45
    HEIG 80
    ANGL 180
    
    END
    NEW RTORUS
    POS W 80 S 5 U 40
    ORI Y is S and Z is U
    ROUT 45
    HEIG 80
    ANGL 180
    
    END
    NEW RTORUS
    POS W 80 N 177 U 20
    ROUT 45
    HEIG 40
    ANGL 180
    
    END
    NEW RTORUS
    POS E 189 N 255 U 20
    ORI Y is N 15 E and Z is U
    ROUT 45
    HEIG 40
    ANGL 180
    
    END
    NEW PYRAMID
    POS W 80 N 86.5 U 35
    ORI Y is W and Z is N 3 D
    XBOT 80
    YBOT 90
    XTOP 40
    YTOP 90
    HEIG 185
    XOFF 20
    
    END
    END
    -- Switch synonyms back on if an error occurs.
    LABEL /ERROR0
    handle ANY
    $S+
    RETURN ERROR
    endhandle
    
    -- End Data Listing    Date : 20 Mar 2009 13:53
    $S+  -- Synonym translation ON
    -- ----------------------------------------------------------------
    
    

  • еще немного подкину с просторов интернета.
    http://www.plantcon.dk/uk/freedown.htm
  •  

    NEW EQUIPMENT /kurilka
    POS E 3024.999511 S 5320.001464 U 9250
    ORI Y is N 20 W and Z is U
    BUIL false
    DSCO unset
    PTSP unset
    INSC unset
    
    NEW SUBEQUIPMENT
    POS W 250.790344 N 182.890823 U 1247.19873
    BUIL false
    DSCO unset
    PTSP unset
    INSC unset
    
    NEW DISH
    POS E 0.049271 S 0.000824 D 0.000366
    ORI Y is N 5.41054 E 39.5105 U and Z is N 7.75917 W 49.7381 D
    DIAM 100
    HEIG 50
    
    END
    NEW CONE
    POS E 70.821289 N 29.051177 U 112.976562
    ORI Y is N 6.72952 W 11.0898 D and Z is W 24.1383 S 56.7699 D
    DTOP 100
    DBOT 70
    HEIG 270
    
    END
    NEW PYRAMID
    POS E 160.828277 N 59.389175 U 263.54663
    ORI Y is E 30 D and Z is E 60 U
    XBOT 40
    YBOT 60
    XTOP 20
    YTOP 90
    HEIG 90
    
    END
    NEW CYLINDER
    POS E 126.328285 N 29.389175 U 282.158569
    ORI Y is N 30 U and Z is S 60 U
    DIAM 25
    HEIG 100
    
    END
    NEW CYLINDER
    POS E 166.328277 N 49.389175 U 352.158569
    ORI Y is N 15.0001 U and Z is W 34.4931 N 64.6786 D
    DIAM 20
    HEIG 80
    
    END
    NEW CYLINDER
    POS E 194.828277 N 46.389175 U 341.488647
    ORI Y is N 20.0003 U and Z is W 29.1013 N 53.1898 D
    DIAM 20
    HEIG 90
    
    END
    NEW CYLINDER
    POS E 182.328277 N 49.389175 U 352.158569
    ORI Y is U and Z is S 10 E
    DIAM 30
    HEIG 80
    
    END
    NEW CYLINDER
    POS E 211.828277 N 45.389175 U 324.488647
    ORI Y is N 25 U and Z is W 33.5592 N 49.851 D
    DIAM 20
    HEIG 80
    
    END
    NEW CYLINDER
    POS E 226.328277 N 47.389175 U 303.158569
    ORI Y is N 0.01019 E 30.0001 U and Z is W 36.8782 N 46.1008 D
    DIAM 20
    HEIG 60
    
    END
    END
    NEW SUBEQUIPMENT
    BUIL false
    DSCO unset
    PTSP unset
    INSC unset
    
    NEW CYLINDER
    POS E 301.075988 N 121.586997 U 907.849975
    ORI Y is N 18.33 E 39.6999 U and Z is S 20.7486 E 43.0773 U
    DIAM 25
    HEIG 100
    
    END
    NEW CYLINDER
    POS E 308.334014 N 134.587005 U 841.994018
    ORI Y is N 6.72953 E 11.0898 U and Z is E 24.1383 S 56.7699 U
    DIAM 20
    HEIG 80
    
    END
    NEW CYLINDER
    POS E 306.173004 N 113.880996 U 832.237976
    ORI Y is N 6.72953 E 11.0898 U and Z is E 24.1383 S 56.7699 U
    DIAM 20
    HEIG 90
    
    END
    NEW CYLINDER
    POS E 310.334014 N 91.086997 U 831.994018
    ORI Y is N 6.72952 E 11.0898 U and Z is W 24.1383 N 56.7699 D
    DIAM 20
    HEIG 80
    
    END
    NEW CYLINDER
    POS E 315.657012 N 67.999 U 833.507019
    ORI Y is N 6.72953 E 11.0898 U and Z is E 24.1383 S 56.7699 U
    DIAM 20
    HEIG 60
    
    END
    NEW PYRAMID
    POS E 321.075988 N 83.586997 U 902.849975
    ORI Y is N 2.66032 W 14.7697 U and Z is N 32.9532 E 72.032 D
    XBOT 40
    YBOT 60
    XTOP 20
    YTOP 90
    HEIG 90
    
    END
    NEW CONE
    POS E 290.885009 N 37 U 1074.076049
    ORI Y is N 2.66034 W 14.7697 U and Z is S 32.9531 W 72.032 U
    DTOP 100
    DBOT 60
    HEIG 270
    
    END
    END
    NEW BOX
    POS E 0 N 0 U 1125
    XLEN 180
    YLEN 176
    ZLEN 600
    
    END
    NEW BOX
    POS E 0 N 67 U 1145
    ORI Y is N 10 W and Z is U
    XLEN 20
    YLEN 50
    ZLEN 640
    
    END
    NEW CYLINDER
    POS E 0 N 67 U 1150
    ORI Y is E 10 N and Z is N 10 W
    DIAM 16
    HEIG 60
    
    END
    NEW CYLINDER
    POS E 0 N 67 U 1020
    ORI Y is E 10 N and Z is N 10 W
    DIAM 16
    HEIG 60
    
    END
    NEW CYLINDER
    POS E 0 N 67 U 890
    ORI Y is E 10 N and Z is N 10 W
    DIAM 16
    HEIG 60
    
    END
    NEW CYLINDER
    POS E 0 N 67 U 1280
    ORI Y is E 10 N and Z is N 10 W
    DIAM 16
    HEIG 60
    
    END
    NEW CYLINDER
    POS E 0 N 67 U 1410
    ORI Y is E 10 N and Z is N 10 W
    DIAM 16
    HEIG 60
    
    END
    NEW DISH
    POS E 90 N 0 U 1425
    DIAM 180
    HEIG 90
    
    END
    NEW DISH
    POS W 90 N 0 U 1425
    DIAM 180
    HEIG 90
    
    END
    NEW CYLINDER
    POS E 0 N 0 U 1425
    ORI Y is N and Z is E
    DIAM 180
    HEIG 180
    
    END
    NEW CYLINDER
    POS E 0 N 0 U 1525
    DIAM 100
    HEIG 200
    
    END
    NEW RTORUS
    POS E 15 N 10 U 1495
    ORI Y is E 15 D and Z is E 75 U
    RINS 60
    ROUT 70
    HEIG 100
    ANGL 180
    
    END
    NEW RTORUS
    POS W 15 N 10 U 1495
    ORI Y is W 15 D and Z is W 75 U
    RINS 60
    ROUT 70
    HEIG 100
    ANGL 180
    
    END
    NEW PYRAMID
    POS E 0 S 55 U 1492
    ORI Y is W and Z is D
    XBOT 10
    YBOT 55
    XTOP 10
    HEIG 102
    
    END
    NEW CYLINDER
    POS E 65 N 20 U 1660
    ORI Y is N 15 W and Z is W 15 S
    DIAM 50
    HEIG 50
    
    END
    NEW CYLINDER
    POS W 65 N 20 U 1660
    ORI Y is N 15 E and Z is E 15 S
    DIAM 50
    HEIG 50
    
    END
    NEW DISH
    POS E 0 N 20 U 1700
    DIAM 220
    HEIG 120
    
    END
    NEW CONE
    POS E 0 N 135 U 1665
    ORI Y is N 15 U and Z is S 75 U
    DTOP 10
    DBOT 30
    HEIG 40
    
    END
    NEW CYLINDER
    POS E 0 N 83 U 1610
    ORI Y is N 15 D and Z is N 75 U
    DIAM 100
    HEIG 5
    
    END
    NEW CYLINDER
    POS E 0 N 83 U 1600
    ORI Y is N 15 U and Z is S 75 U
    DIAM 100
    HEIG 5
    
    END
    NEW CYLINDER
    POS E 0.075982 N 90.046607 U 1710
    ORI Y is N 5 D and Z is N 85 U
    DIAM 180
    HEIG 10
    
    END
    NEW DISH
    POS E 0 N 20 U 1660
    ORI Y is N and Z is E
    DIAM 250
    HEIG 90
    RADI 90
    
    END
    NEW DISH
    POS E 0 N 20 U 1660
    ORI Y is N and Z is W
    DIAM 250
    HEIG 90
    RADI 90
    
    END
    NEW DISH
    POS E 25 N 98 U 1680
    ORI Y is D and Z is N
    DIAM 50
    HEIG 30
    
    END
    NEW DISH
    POS W 25 N 98 U 1680
    ORI Y is D and Z is N
    DIAM 50
    HEIG 30
    
    END
    NEW SNOUT
    POS E 135 N 0 U 1445
    ORI Y is S and Z is E
    DTOP 100
    DBOT 180
    XOFF 40
    HEIG 90
    
    END
    NEW SNOUT
    POS W 135 N 0 U 1445
    ORI Y is N and Z is W
    DTOP 100
    DBOT 180
    XOFF 40
    HEIG 90
    
    END
    NEW CTORUS
    POS E 180 N 0 U 1415
    ORI Y is W 80 U and Z is S
    ROUT 100
    ANGL 80
    
    END
    NEW CYLINDER
    POS E 250.078002 N 0 U 1305.505004
    ORI Y is N and Z is W 80 U
    DIAM 100
    HEIG 240
    
    END
    NEW CTORUS
    POS W 180 N 32 U 1427
    ORI Y is W and Z is S 40 D
    ROUT 100
    ANGL 85
    
    END
    NEW CYLINDER
    POS W 240.274993 N 106.043998 U 1338.766967
    ORI Y is N 5.41054 E 39.5105 U and Z is N 7.75917 W 49.7381 D
    DIAM 100
    HEIG 240
    
    END
    NEW CYLINDER
    POS W 90 N 0 U 1125
    DIAM 180
    HEIG 600
    
    END
    NEW CYLINDER
    POS W 128.636993 N 10.353028 U 945
    DIAM 120
    HEIG 130
    
    END
    NEW CYLINDER
    POS E 142.363006 N 13.353 U 945
    DIAM 120
    HEIG 130
    
    END
    NEW BOX
    POS E 188.363006 N 3.353 U 1004
    ORI Y is N 4 U and Z is S 86 U
    XLEN 16
    YLEN 35
    ZLEN 240
    
    END
    NEW CYLINDER
    POS E 181.363006 N 45.353 U 1015
    ORI Y is N 3 D and Z is N 87 U
    DIAM 10
    HEIG 150
    
    END
    NEW CYLINDER
    POS E 90 N 0 U 1125
    DIAM 180
    HEIG 600
    
    END
    NEW CONE
    POS E 111 N 45 U 675
    ORI Y is N 2.71047 W 14.5202 U and Z is S 34.294 W 72.0314 U
    DTOP 170
    DBOT 150
    HEIG 380
    
    END
    NEW CONE
    POS W 80 N 0 U 675
    DTOP 170
    DBOT 150
    HEIG 300
    
    END
    NEW CONE
    POS W 80 N 0 U 300
    DTOP 150
    DBOT 120
    HEIG 450
    
    END
    NEW CONE
    POS E 142 N 86 U 300
    DTOP 150
    DBOT 120
    HEIG 450
    
    END
    NEW PYRAMID
    POS E 165.5 N 167.5 U 35
    ORI Y is W 15 N and Z is N 15 E 3 D
    XBOT 80
    YBOT 90
    XTOP 40
    YTOP 90
    HEIG 185
    XOFF 20
    
    END
    NEW RTORUS
    POS E 142 N 81 U 40
    ORI Y is S 15 W and Z is U
    ROUT 45
    HEIG 80
    ANGL 180
    
    END
    NEW RTORUS
    POS W 80 S 5 U 40
    ORI Y is S and Z is U
    ROUT 45
    HEIG 80
    ANGL 180
    
    END
    NEW RTORUS
    POS W 80 N 177 U 20
    ROUT 45
    HEIG 40
    ANGL 180
    
    END
    NEW RTORUS
    POS E 189 N 255 U 20
    ORI Y is N 15 E and Z is U
    ROUT 45
    HEIG 40
    ANGL 180
    
    END
    NEW PYRAMID
    POS W 80 N 86.5 U 35
    ORI Y is W and Z is N 3 D
    XBOT 80
    YBOT 90
    XTOP 40
    YTOP 90
    HEIG 185
    XOFF 20
    
    END
    END
    -----
    /kurilka
    auto ce
    enhance ce col gold
    sube1
    pause 1.0
    !K = 1
    do !x from 1 TO 15 BY 1
    ROTATE  BY $!K ABOUT N
    REFRESH
    PAUSE 0.2
    !K= !K + 1
    enddo
    pause 1
    sube
    !K = 1
    do !x from 1 TO 15 BY 1
    ROTATE  BY $!K ABOUT S
    REFRESH
    PAUSE 0.2
    !K= !K + 1
    enddo
    
    pause 1
    
    sube
    !K = 1
    do !x from 1 TO 15 BY 1
    ROTATE  BY $!K ABOUT N
    REFRESH
    PAUSE 0.2
    !K= !K + 1
    enddo
    pause 1
    sube
    !K = 1
    do !x from 1 TO 15 BY 1
    ROTATE  BY $!K ABOUT S
    REFRESH
    PAUSE 0.2
    !K= !K + 1
    enddo
     equi
    --rem ce
    
    
    

  •  

    https://aveva.dev-verintcommunity.com/cfs-file/__key/communityserver-discussions-components-files/1630/272841mman.pmlfrm

  • Курилка с анимацией


    прикольно, правда жаль тормозит периодами
  • Âîò ôóíêöèÿ êîòîðàÿ ðàçáèâàåò Bran, åñëè â íåì ñîäåðæèòñÿ áîëåå 1 óñëîâíîãî äèàìåòðà.
    äëÿ âûçîâà: !!SplitBran(
  • [QUOTE=Jak;26195]Âîò ôóíêöèÿ êîòîðàÿ ðàçáèâàåò Bran, åñëè â íåì ñîäåðæèòñÿ áîëåå 1 óñëîâíîãî äèàìåòðà.
    äëÿ âûçîâà: !!SplitBran(
  •  

    https://aveva.dev-verintcommunity.com/cfs-file/__key/communityserver-discussions-components-files/1630/272845SplitBran.pmlfnc

  •  

    https://aveva.dev-verintcommunity.com/cfs-file/__key/communityserver-discussions-components-files/1630/272848GGOfind3.pmlfrm

  •  

    https://aveva.dev-verintcommunity.com/cfs-file/__key/communityserver-discussions-components-files/1630/272849Dateandyear.pmlfnc