Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1137 1801 (N57E00 L=139)   318     62        1 (1118/1770-1149/1825)  90.0 E02-W01 N53-N59
      2 1068 1731 (N49E06 L=133)   391     89        2 (1040/1691-1087/1772) -45.0 E09-E03 N45-N52
      3  945 1626 (N39E13 L=126)  1482    219        6 ( 864/1565-1049/1685)  -7.6 E19-E04 N35-N43
      4 1341 1608 (N42W19 L=158)   310     64        1 (1320/1571-1370/1631)  51.3 W17-W21 N39-N44
      5  444 1515 (N26E49 L= 90)  2974    356        8 ( 363/1351- 506/1626) -36.5 E63-E40 N15-N32
      6 1447 1539 (N38W27 L=166)   586    140        3 (1412/1500-1498/1586) -29.7 W24-W31 N35-N41
      7 1692 1460 (N35W50 L=189)  4196      0       20 (1562/1365-1804/1541)  -7.1 W35-W61 N29-N40
      8  337 1471 (N22E57 L= 82)   361     40        3 ( 319/1446- 356/1496) -56.3 E59-E55 N20-N23
      9 1009 1389 (N24E04 L=135)   403    103        2 ( 987/1336-1026/1440) -80.5 E06-E03 N20-N26
     10  686 1395 (N21E26 L=113)   550     78        2 ( 645/1361- 729/1420)  11.3 E28-E23 N18-N22
     11 1153 1400 (N26W05 L=144)   206     48        2 (1129/1380-1177/1420)  33.7 W03-W06 N24-N27
     12 1675 1341 (N26W44 L=184)   411     77        2 (1652/1308-1705/1375) -63.4 W42-W47 N24-N28
     13  706 1280 (N14E22 L=117)   274     39        2 ( 682/1259- 734/1302) -14.0 E24-E20 N12-N15
     14 1835 1243 (N21W60 L=199)   520     83        1 (1814/1213-1856/1282)  63.4 W57-W63 N19-N23
     15 1791 1220 (N20W54 L=194)   687    115        3 (1755/1172-1823/1266) -59.0 W50-W57 N16-N22
     16 1345 1214 (N16W18 L=157)   198    104        3 (1296/1194-1392/1233)  -9.5 W15-W21 N14-N16
     17 1300 1098 (N08W16 L=155)   208    108        1 (1279/1060-1331/1133) -45.0 W14-W18 N06-N10
     18  598  774 (S18E25 L=114)  3002    598        8 ( 393/ 584- 785/ 993)  43.0 E43-E13 S32-S02
     19  215  926 (S12E58 L= 81)   882    185        6 ( 168/ 900- 278/ 972)  -8.7 E63-E50 S14-S09
     20  109  932 (S13E75 L= 65)   883     61        0 (  94/ 900- 127/ 959)  33.7 E79-E70 S15-S11
     21 1418  917 (S01W25 L=164)   298     56        2 (1392/ 892-1450/ 945)  45.0 W23-W27 S03-N00
     22  396  851 (S15E40 L= 99)   414    107        4 ( 343/ 818- 435/ 884)  35.5 E45-E37 S17-S12
     23 1273  821 (S08W17 L=156)   224    123        2 (1222/ 778-1306/ 860)  45.0 W14-W18 S11-S05
     24 1186  773 (S12W12 L=151)   218     42        0 (1165/ 750-1208/ 794) -18.4 W10-W13 S13-S10
     25 1766  749 (S09W55 L=195)   335     94        1 (1728/ 726-1785/ 780)  21.8 W51-W57 S10-S07
     26 1864  727 (S10W69 L=208)  2977    142        5 (1799/ 680-1915/ 773)  -2.5 W59-W82 S12-S06
     27 1649  676 (S14W46 L=186)  1050    156        3 (1583/ 628-1733/ 705)  -7.6 W40-W55 S16-S12
     28  329  661 (S28E49 L= 90)   362     76        0 ( 299/ 642- 369/ 687)  26.6 E52-E44 S29-S25
     29 1591  516 (S25W48 L=187)  2541    283       14 (1477/ 441-1673/ 604)  28.3 W38-W59 S30-S19
     30 1473  541 (S24W36 L=176)   334     79        0 (1446/ 516-1512/ 567)  36.9 W34-W38 S26-S22
     31 1400  527 (S26W31 L=170)   344     63        2 (1378/ 492-1424/ 559) -51.3 W29-W33 S28-S23
     32 1288  535 (S26W23 L=162)   375     73        0 (1242/ 517-1326/ 555)  18.4 W19-W25 S27-S24
     33  361  519 (S38E51 L= 88)   628     73        2 ( 333/ 475- 388/ 545)  59.0 E55-E46 S41-S35
     34  418  492 (S39E45 L= 94)   434     63        1 ( 392/ 466- 440/ 515) -56.3 E48-E42 S41-S37
     35 1268  480 (S30W23 L=162)   306     36        2 (1246/ 457-1292/ 507) -76.0 W21-W24 S32-S28
     36 1378  425 (S33W33 L=172)   458     56        1 (1347/ 404-1413/ 444)  11.3 W30-W36 S34-S31
     37  497  344 (S51E45 L= 94)  1027    167        2 ( 434/ 308- 550/ 377)  15.9 E63-E35 S56-S47
  

    OPENR, u, binfile, /COMP, /GET_LUN
    head = FLTARR(6) ;[xsize,ysize,radius,hh,mm,ss]
    READU, u, head
    data = INTARR(FIX(head[0]),FIX(head[1]))
    READU, u, data
    FREE_LUN, u
    

• each filament has the value of Fil_ID
• all values are in pixel

  c = WHERE(data EQ Fil_ID, area)
  f = '(2(A,I6))'
  PRINT, FORM=f, "Area of Fil_ID", Fil_ID," =", area 

  data = ROTATE(data,7)
  Solar_y = 2048-Solar_y