Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1154 1767 (N44E19 L=197)   495    131        0 (1106/1710-1192/1813) -26.6 E25-E13 N40-N46
      2  307 1453 (N00E62 L=154)  1009     81        2 ( 281/1407- 339/1488)  90.0 E67-E58 S02-N03
      3 1155 1384 (N17E03 L=213)   752    196        0 (1087/1296-1217/1440) -26.6 E08-W02 N13-N19
      4  342 1352 (S05E54 L=162)   561     61        1 ( 319/1318- 366/1384)  78.7 E55-E50 S07-S02
      5  197 1073 (S24E62 L=155)   552     54        2 ( 177/1045- 218/1110)  76.0 E64-E58 S25-S21
      6 1904 1031 (N23W64 L=280)   579     65        0 (1871/1008-1936/1048)   4.4 W58-W71 N21-N24
      7  788  948 (S17E11 L=205)   743    278        0 ( 656/ 907- 910/ 982)  35.5 E18-E04 S22-S12
      8  380  820 (S35E39 L=178)   670    186        2 ( 349/ 734- 437/ 878)  65.6 E41-E33 S41-S30
      9  869  769 (S25E01 L=215)   468    163        0 ( 802/ 730- 952/ 795)  53.1 E04-W02 S28-S20
     10  947  639 (S30W07 L=224)   868    285        0 ( 803/ 622-1060/ 663)  32.7 E01-W13 S34-S25
     11 1235  515 (S28W30 L=246)   315     83        0 (1192/ 496-1275/ 539)   9.5 W26-W32 S28-S26
     12 1557  478 (S19W54 L=270)  1002    159        1 (1481/ 435-1625/ 516)  56.3 W50-W57 S23-S14
     13  375  462 (S62E47 L=169)   838     98        1 ( 326/ 441- 423/ 485)   2.9 E61-E36 S64-S59
  

    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