Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1766 1501 (N18W71 L=159)  1345     97        1 (1719/1468-1814/1532) -22.6 W65-W78 N14-N19
      2 1568 1456 (N21W47 L=135)   521     83        1 (1536/1419-1596/1496)  33.7 W44-W51 N18-N22
      3 1741 1422 (N14W62 L=149)  1122    168        3 (1677/1356-1786/1475) -60.9 W57-W66 N09-N18
      4  652 1410 (N37E19 L= 69)   228     81        0 ( 631/1371- 675/1450)  59.0 E21-E17 N34-N39
      5 1519 1371 (N17W40 L=127)   621    207        4 (1403/1332-1590/1404) -24.8 W31-W44 N13-N20
      6 1875 1262 (N01W70 L=158)   592     55        0 (1853/1232-1899/1280)   5.2 W65-W76 N00-N02
      7  148 1160 (N26E72 L= 16)  1402     70        3 ( 119/1123- 181/1202) -24.0 E78-E65 N23-N28
      8 1751 1108 (S03W50 L=138)   392    109        0 (1708/1070-1795/1145) -45.0 W47-W53 S06-N00
      9 1262  896 (S05W12 L= 99)   731    246        4 (1197/ 824-1327/ 990) -65.6 W08-W15 S10-N01
     10 1869  894 (S20W61 L=149)  1926    234       10 (1826/ 820-1916/ 945)  60.3 W55-W69 S24-S16
     11 1547  903 (S11W30 L=118)   326     74        0 (1525/ 877-1577/ 937) -63.4 W29-W32 S12-S08
     12 1688  893 (S14W41 L=129)   640    128        1 (1651/ 830-1737/ 936) -58.0 W38-W45 S19-S11
     13  377  837 (N05E46 L= 42)   574    118        1 ( 332/ 799- 422/ 868)  18.4 E50-E41 N03-N06
     14 1315  778 (S13W13 L=101)   356     76        2 (1279/ 750-1356/ 802)   0.0 W10-W16 S14-S12
     15  366  574 (S11E56 L= 32)  2195    276        5 ( 296/ 468- 455/ 672) -77.9 E59-E48 S19-S04
     16  279  551 (S13E68 L= 20)  3720    209        7 ( 228/ 493- 328/ 641)  78.7 E83-E59 S17-S06
     17  744  566 (S16E26 L= 62)   442     90        1 ( 729/ 517- 761/ 619)  74.1 E27-E24 S19-S12
     18 1467  544 (S32W21 L=109)   961    157        2 (1393/ 518-1520/ 596)   0.0 W15-W25 S34-S29
     19  505  470 (S20E48 L= 40)   712    134        2 ( 479/ 408- 524/ 534)  45.0 E52-E43 S24-S15
     20 1038  457 (S29E10 L= 77)   608    133        0 (1002/ 391-1072/ 507)  45.0 E14-E07 S33-S25
     21 1592  366 (S53W39 L=127)   524     33        0 (1576/ 343-1610/ 390) -45.0 W34-W43 S55-S49
     22  613  329 (S32E48 L= 40)  1253    181        2 ( 534/ 300- 708/ 351)  -3.4 E55-E38 S33-S29
  

    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