Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  547 1762 (N40E51 L=118)   552     69        0 ( 524/1722- 565/1793) -30.3 E57-E45 N36-N43
      2  525 1613 (N28E42 L=126)   633    155        2 ( 494/1570- 561/1685) -69.4 E45-E38 N25-N33
      3  630 1606 (N28E33 L=135)   331    111        1 ( 578/1580- 679/1625)  26.6 E36-E29 N26-N29
      4  299 1498 (N20E59 L=109)  1735    143        9 ( 237/1431- 350/1582)  66.0 E65-E54 N15-N25
      5  685 1475 (N20E26 L=143)   211     53        2 ( 661/1447- 704/1497) -26.6 E27-E23 N18-N21
      6 1541 1437 (N25W31 L=200)  1032    182        0 (1476/1365-1602/1496) -37.9 W26-W35 N21-N28
      7 1086 1351 (N15W01 L=170)   676    139        3 (1014/1291-1134/1397)  74.1 E03-W03 N10-N17
      8 1481 1358 (N19W26 L=195)   281     37        2 (1456/1335-1507/1383)  26.6 W24-W28 N17-N20
      9  873 1258 (N07E11 L=158)  1149    400        2 ( 736/1094- 950/1372) -45.0 E20-E05 S01-N13
     10 1691 1268 (N16W42 L=211)   287     56        0 (1663/1241-1718/1290) -26.6 W40-W44 N14-N17
     11 1580 1237 (N13W33 L=202)   260    112        0 (1531/1218-1604/1272)  26.6 W29-W35 N11-N15
     12 1920 1167 (N14W67 L=236)   752     75        3 (1892/1132-1945/1198)  76.0 W63-W72 N11-N15
     13  379 1125 (S03E42 L=126)   266     77        0 ( 343/1100- 415/1146) -18.4 E45-E39 S04-S01
     14  629  951 (S12E24 L=145)  1267    410        1 ( 545/ 797- 744/1061)  60.6 E29-E16 S21-S05
     15  178  897 (S17E62 L=106)  1579    214        5 ( 130/ 818- 224/ 986)  51.3 E69-E56 S21-S11
     16  939  816 (S18E04 L=165)  1932    743        2 ( 634/ 751-1238/ 891)  13.7 E23-W14 S23-S13
     17 1778  722 (S14W57 L=226)   531    155        0 (1740/ 680-1800/ 798)  90.0 W53-W59 S17-S09
     18  604  659 (S30E26 L=143)   423     69        1 ( 586/ 618- 623/ 695)  78.7 E27-E24 S32-S27
     19  474  629 (S33E37 L=132)   395     73        0 ( 445/ 593- 509/ 663) -51.3 E39-E34 S35-S30
     20 1297  497 (S35W25 L=194)   287     86        0 (1257/ 484-1339/ 511)   0.0 W22-W28 S35-S33
     21 1313  396 (S41W31 L=199)   998    287        2 (1223/ 353-1456/ 454)  -2.6 W21-W43 S44-S38
  

    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