Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  933 1893 (N60E45 L=121)   584     47        1 ( 909/1875- 964/1915)  -7.6 E53-E38 N58-N62
      2 1503 1547 (N42W27 L=193)   342     53        1 (1473/1527-1524/1573)  38.7 W24-W29 N40-N44
      3  449 1495 (N18E50 L=116)   623    119        1 ( 422/1454- 498/1539) -21.8 E54-E44 N15-N20
      4  601 1352 (N12E33 L=133)   279    115        1 ( 563/1326- 655/1391)  51.3 E35-E30 N09-N14
      5 1790 1319 (N32W55 L=221)  1221    159        1 (1752/1251-1832/1384) -48.8 W51-W60 N27-N35
      6  280 1087 (S09E53 L=113)   553    108        0 ( 242/1038- 303/1118) -45.0 E56-E49 S12-S07
      7  154  891 (S24E69 L= 97)   863    128        0 ( 127/ 834- 187/ 938)  23.6 E78-E62 S27-S20
      8  264  835 (S25E54 L=112)   380     86        2 ( 230/ 811- 296/ 864) -14.0 E57-E49 S26-S23
      9  901  665 (S25E01 L=165)  1980    550        2 ( 681/ 549-1106/ 804)  46.2 E15-W08 S36-S12
     10 1369  630 (S18W30 L=196)   356    115        0 (1337/ 610-1406/ 672)   0.0 W27-W32 S19-S15
     11 1706  649 (S11W56 L=222)   420     62        1 (1678/ 625-1735/ 671)  45.0 W53-W59 S12-S09
     12 1733  557 (S16W65 L=231)  1502    232        4 (1694/ 492-1780/ 611)  90.0 W60-W72 S20-S11
     13 1594  429 (S27W59 L=225)   663    117        0 (1550/ 398-1655/ 459)  40.6 W55-W63 S29-S23
  

    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