Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  700 1722 (N26E45 L= 66)   316     62        2 ( 674/1697- 721/1745)  -9.5 E48-E42 N24-N27
      2  966 1614 (N26E22 L= 90)  1031    246        2 ( 905/1509-1021/1719) -34.5 E30-E14 N21-N32
      3  596 1539 (N12E42 L= 70)   287     91        0 ( 583/1498- 617/1587) -63.4 E43-E39 N09-N15
      4  861 1418 (N11E20 L= 91)   506    236        0 ( 744/1383- 942/1445)   8.7 E27-E14 N08-N12
      5 1234 1348 (N18W03 L=114)   439    158        0 (1180/1305-1283/1415)  71.6 W00-W04 N14-N23
      6 1472 1180 (N15W21 L=133)   248     83        0 (1439/1156-1501/1219) -21.8 W18-W23 N14-N16
      7 1807  800 (N06W59 L=170)  1102    153        2 (1760/ 747-1857/ 856)  60.9 W54-W62 N01-N10
      8  877  706 (S28W01 L=113)   623    137        0 ( 806/ 686- 949/ 726)  35.5 E03-W04 S30-S25
      9  397  589 (S50E37 L= 75)   522     86        1 ( 373/ 562- 434/ 625) -23.2 E40-E32 S51-S47
     10  931  517 (S38W11 L=123)   317    100        0 ( 897/ 473- 969/ 557)  90.0 W09-W12 S41-S33
     11 1090  487 (S34W23 L=134)   695    298        0 ( 978/ 422-1224/ 541)  51.8 W18-W29 S41-S27
     12 1343  508 (S25W37 L=149)   326     61        2 (1304/ 493-1380/ 527)  36.9 W34-W39 S26-S22
     13 1420  458 (S25W45 L=157)   370    129        0 (1368/ 429-1464/ 506)  74.1 W43-W46 S27-S20
     14 1286  397 (S33W40 L=152)   552    109        2 (1226/ 372-1335/ 419)  12.5 W35-W44 S34-S30
  

    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