Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1609 1531 (N16W54 L=128)   468     85        0 (1575/1488-1634/1572)  80.5 W52-W55 N12-N18
      2 1128 1347 (N21W15 L= 89)  1800    470        1 ( 925/1221-1289/1431) -54.5 W05-W21 N09-N30
      3 1420 1407 (N15W34 L=108)   235     81        0 (1378/1394-1463/1419) -18.4 W31-W37 N14-N16
      4 1677 1150 (S06W42 L=116)  1053    261        2 (1544/1092-1768/1183)  -9.0 W31-W50 S09-S03
      5 1668  924 (S18W36 L=109)  1717    309        1 (1619/ 789-1725/1061)  42.7 W29-W43 S24-S12
      6 1775  912 (S22W45 L=118)   887    210        1 (1736/ 837-1826/1009)  32.5 W40-W51 S25-S18
      7  808  927 (N06E14 L= 59)   196     76        0 ( 781/ 890- 837/ 957) -68.2 E15-E13 N03-N08
      8  155  819 (N14E70 L=  4)   938    139        3 ( 139/ 765- 172/ 894)  63.4 E73-E66 N10-N18
      9  932  620 (S14E16 L= 57)   620    238        1 ( 896/ 541- 956/ 743)  54.0 E20-E12 S18-S06
     10  812  633 (S10E23 L= 51)   274     27        1 ( 789/ 613- 836/ 653) -56.3 E24-E21 S11-S08
     11  252  570 (S02E69 L=  4)  1055    136        0 ( 226/ 511- 283/ 632)  18.4 E80-E61 S05-N01
     12  747  404 (S22E36 L= 37)  2247    528        4 ( 608/ 192- 834/ 591)  72.6 E49-E31 S39-S07
     13  496  459 (S13E51 L= 23)  1080    163        2 ( 412/ 413- 554/ 489) -26.6 E58-E46 S16-S09
     14  829  146 (S44E55 L= 19)   829     65        1 ( 811/ 113- 852/ 174)  16.4 E65-E48 S47-S40
  

    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