Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  723 1647 (N39E21 L=216)   365     76        0 ( 683/1632- 770/1659)   8.1 E24-E16 N37-N40
      2  192 1091 (N06E60 L=177)  1004    143        1 ( 136/1032- 238/1130) -30.3 E67-E54 N01-N08
      3 1685 1048 (S03W43 L=280)   296     78        0 (1638/1034-1722/1064)  -8.1 W39-W46 S03-S01
      4 1656  869 (S13W42 L=278)   418    138        2 (1604/ 844-1710/ 893)   6.3 W37-W46 S14-S12
      5  479  783 (S15E37 L=200)   252    126        0 ( 431/ 744- 531/ 820)  24.0 E41-E32 S16-S12
      6 1562  741 (S21W35 L=272)   473    157        2 (1521/ 680-1597/ 815)  66.0 W32-W37 S25-S16
      7  257  695 (S18E60 L=177)  1350    211        8 ( 220/ 601- 286/ 792)  67.4 E64-E55 S24-S12
      8 1103  751 (S19W04 L=241)   202     61        0 (1083/ 718-1130/ 776)  63.4 W02-W05 S21-S17
      9  212  695 (S18E66 L=171)  1018    144        1 ( 194/ 623- 230/ 763)  60.9 E68-E62 S22-S13
     10 1466  654 (S27W29 L=266)   218     70        0 (1427/ 640-1492/ 671)  14.0 W26-W31 S27-S25
     11  374  461 (S34E60 L=177)   714    107        1 ( 354/ 406- 401/ 505)  26.6 E67-E53 S38-S31
     12  724  280 (S51E35 L=202)   332     57        0 ( 699/ 261- 748/ 302) -14.0 E37-E31 S52-S49
     13  884  257 (S54E19 L=217)   378     58        2 ( 863/ 230- 912/ 286) -63.4 E22-E16 S57-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