Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1751 1486 (N31W65 L=337)   985     83        1 (1706/1464-1791/1514) -24.0 W60-W72 N29-N33
      2  933 1459 (N31E07 L=265)   355    152        0 ( 866/1427- 998/1492) -21.8 E11-E01 N28-N33
      3  541 1462 (N31E37 L=235)   350     87        0 ( 503/1441- 594/1485) -12.5 E40-E31 N29-N32
      4  137 1213 (N12E77 L=195)   939     93        1 ( 118/1169- 155/1265)  71.6 E79-E72 N09-N15
      5 1831  970 (S01W60 L=331)  3523    275        9 (1757/ 852-1914/1092) -70.3 W51-W72 S08-N06
      6  201  900 (S06E62 L=209)  3466    227        9 ( 126/ 757- 267/1036) -60.6 E75-E54 S15-N01
      7 1843  875 (S07W62 L=334)   502     68        0 (1822/ 833-1860/ 905)  63.4 W59-W64 S09-S05
      8  341  694 (S19E50 L=221)  1895    348        4 ( 285/ 583- 417/ 843)  45.0 E60-E42 S26-S08
      9  459  724 (S16E39 L=233)   384    129        1 ( 418/ 694- 529/ 742)  -6.3 E42-E33 S18-S14
     10 1366  706 (S17W22 L=294)   262     65        1 (1342/ 678-1398/ 725)  33.7 W20-W24 S18-S15
     11 1737  666 (S20W54 L=326)   468     48        1 (1722/ 634-1753/ 696) -63.4 W52-W56 S22-S18
     12  411  603 (S25E46 L=226)   306     72        0 ( 390/ 570- 429/ 635)  38.7 E49-E43 S26-S22
     13 1624  574 (S26W46 L=318)   448    104        0 (1607/ 527-1640/ 621) -66.8 W43-W47 S29-S22
     14 1353  522 (S29W24 L=296)  1747    332        4 (1198/ 465-1485/ 582)  15.9 W12-W33 S33-S25
  

    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