Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1651 1513 (N18W53 L=185)  1551    231        0 (1554/1458-1756/1576) -32.7 W47-W61 N13-N23
      2  381 1349 (N31E40 L= 92)  1149    209        2 ( 329/1267- 448/1439)  38.7 E44-E34 N25-N35
      3 1173 1390 (N20W15 L=147)   562    140        1 (1099/1359-1228/1415)  -7.1 W10-W18 N17-N20
      4  712 1345 (N25E14 L=117)   543    163        4 ( 658/1284- 775/1406) -56.3 E17-E10 N20-N29
      5  973 1373 (N22W03 L=134)   590    167        0 ( 887/1332-1055/1405) -41.2 E01-W07 N18-N25
      6  196 1266 (N29E59 L= 72)  1787    201        1 ( 102/1221- 293/1305) -12.2 E84-E47 N24-N32
      7  659 1133 (N13E20 L=112)   931    273        2 ( 572/1040- 714/1237)  42.0 E26-E15 N08-N18
      8 1368 1203 (N05W23 L=155)   248     60        0 (1336/1175-1398/1226) -53.1 W21-W24 N03-N07
      9 1608 1107 (S04W37 L=169)   285     56        1 (1586/1082-1639/1127)  26.6 W35-W39 S05-S02
     10 1390 1076 (S02W22 L=154)   325     60        2 (1369/1043-1412/1113)  71.6 W20-W23 S03-N00
     11 1880  935 (S19W61 L=192)   583     82        2 (1857/ 900-1902/ 975)  33.7 W57-W63 S20-S16
     12 1816  899 (S20W53 L=184)   785    147        0 (1797/ 820-1839/ 957)  82.9 W50-W55 S24-S16
     13 1734  869 (S20W45 L=176)   346    104        0 (1707/ 835-1754/ 925)  45.0 W42-W46 S22-S16
     14  854  838 (S07E13 L=118)   236    134        1 ( 830/ 778- 886/ 909)  54.5 E14-E09 S10-S03
     15 1603  872 (S18W34 L=165)   228     65        1 (1583/ 841-1626/ 896) -53.1 W32-W35 S19-S15
     16 1425  838 (S17W21 L=152)   282     60        0 (1394/ 813-1448/ 867)  33.7 W18-W22 S17-S14
     17  383  741 (S05E46 L= 85)   311    102        2 ( 361/ 706- 401/ 799) -90.0 E47-E44 S07-S01
     18  265  768 (S02E56 L= 76)   395     80        2 ( 225/ 747- 293/ 787) -26.6 E59-E52 S03-N00
     19 1214  737 (S19W06 L=138)   329    117        1 (1159/ 713-1277/ 760)   7.1 W02-W10 S19-S18
     20 1741  691 (S32W46 L=178)   308     38        1 (1715/ 670-1765/ 710)  -9.5 W43-W49 S33-S30
     21  336  671 (S08E52 L= 79)   303     61        2 ( 309/ 643- 354/ 707)  76.0 E55-E50 S10-S06
     22 1325  637 (S27W12 L=144)   353    132        0 (1263/ 622-1394/ 653) -12.5 W08-W17 S28-S25
     23 1406  312 (S54W17 L=149)   321     28        0 (1381/ 297-1429/ 327) -18.4 W14-W20 S55-S51
     24 1222  259 (S54E02 L=129)   922    175        1 (1144/ 220-1304/ 307)  10.6 E10-W06 S56-S51
  

    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