Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1420 1800 (N54W61 L= 52)  1121    100        2 (1372/1765-1454/1826) -51.3 W53-W70 N51-N57
      2 1336 1781 (N54W46 L= 36)   567     73        1 (1304/1756-1369/1805)  10.3 W39-W50 N51-N56
      3  490 1521 (N40E42 L=309)  1034    239        2 ( 403/1481- 594/1549)  -5.4 E53-E31 N36-N42
      4  823 1495 (N37E12 L=339)   483    132        1 ( 793/1437- 852/1549)  63.4 E13-E09 N32-N40
      5 1056 1450 (N32W06 L=356)  1000    212        4 ( 972/1413-1160/1494) -18.4 W00-W12 N28-N35
      6 1731 1359 (N19W57 L= 48)   358     69        1 (1714/1325-1755/1392)  68.2 W55-W58 N16-N21
      7  353 1347 (N28E50 L=300)   342     40        0 ( 336/1322- 373/1371)  71.6 E52-E48 N26-N29
      8 1079 1238 (N18W05 L=356)   704    235        1 (1017/1156-1165/1301)  32.5 W00-W11 N13-N21
      9 1622 1156 (N08W41 L= 32)   498     73        3 (1584/1118-1647/1187) -45.0 W38-W43 N05-N09
     10 1531 1093 (N05W33 L= 24)   624    143        1 (1456/1077-1594/1111) -11.3 W28-W38 N03-N06
     11 1773  787 (S17W54 L= 45)   467     63        1 (1752/ 765-1799/ 820) -38.7 W51-W57 S18-S14
     12 1222  606 (S23W10 L=  1)   222     83        0 (1188/ 579-1256/ 636)  31.0 W07-W12 S24-S21
     13  498  498 (S27E44 L=307)  1356    367        0 ( 429/ 405- 595/ 562)  31.4 E56-E36 S33-S21
     14 1364  395 (S41W23 L= 13)   317     66        0 (1331/ 380-1395/ 411)   0.0 W19-W25 S41-S39
  

    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