Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1613 1535 (N16W55 L=128)   470     93        0 (1580/1490-1638/1576)  80.5 W53-W56 N12-N18
      2 1417 1419 (N16W35 L=108)   365    104        1 (1383/1397-1466/1456) -53.1 W32-W37 N14-N18
      3 1135 1352 (N21W16 L= 89)  1731    466        1 ( 934/1221-1296/1432) -56.3 W06-W21 N09-N30
      4 1680 1152 (S06W43 L=115)  1195    252        5 (1551/1094-1781/1189)  -8.5 W32-W52 S09-S03
      5 1674  927 (S18W36 L=109)  1602    280        1 (1629/ 796-1720/1053)  45.0 W30-W42 S24-S12
      6  816  932 (N06E14 L= 59)   227     58        0 ( 789/ 905- 846/ 959) -76.0 E14-E12 N04-N08
      7 1759  880 (S24W43 L=116)   434     57        0 (1742/ 848-1776/ 916)  76.0 W41-W44 S25-S21
      8  156  816 (N14E70 L=  3)  1055    125        5 ( 141/ 759- 173/ 889)  63.4 E73-E66 N10-N18
      9  942  638 (S13E15 L= 58)   640    218        3 ( 909/ 546- 974/ 744)  57.5 E19-E11 S17-S06
     10  818  635 (S10E22 L= 51)   276     37        1 ( 795/ 614- 842/ 656) -33.7 E23-E20 S11-S08
     11  270  582 (S01E66 L=  7)  1240    171        3 ( 231/ 510- 326/ 636)  11.8 E80-E56 S05-N01
     12  726  468 (S18E34 L= 39)  1467    327        3 ( 609/ 351- 798/ 593) -90.0 E37-E31 S26-S07
     13  499  460 (S13E51 L= 22)  1217    167        2 ( 409/ 415- 558/ 490) -26.6 E57-E45 S16-S09
     14  828  199 (S39E47 L= 26)  1184    152        2 ( 789/ 137- 863/ 245)  45.0 E55-E42 S45-S34
  

    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