Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1308 1770 (N39W51 L= 24)   945    167        2 (1211/1751-1383/1784) -23.2 W43-W57 N36-N42
      2 1657 1653 (N21W70 L= 43)   626     65        0 (1625/1621-1684/1679) -90.0 W67-W72 N18-N22
      3 1318 1631 (N31W40 L= 13)   449    114        0 (1268/1597-1368/1664)   0.0 W34-W45 N30-N32
      4 1360 1539 (N25W37 L= 10)   684    199        0 (1271/1518-1454/1558) -21.0 W30-W43 N21-N27
      5  852 1527 (N40W04 L=338)   459     98        0 ( 815/1498- 893/1546)  -9.5 W01-W07 N37-N41
      6  419 1382 (N43E34 L=299)   706    112        0 ( 372/1350- 476/1427) -32.5 E39-E28 N39-N46
      7  974 1320 (N24W05 L=339)   221     57        0 ( 955/1287- 996/1349)  26.6 W03-W07 N22-N25
      8 1060 1314 (N21W10 L=343)   395    132        0 (1010/1260-1095/1348) -71.6 W07-W11 N17-N24
      9 1808 1257 (S04W58 L= 31)   762     97        0 (1779/1207-1842/1298)  11.3 W53-W63 S06-S02
     10  137 1034 (N26E69 L=265)   938    126        2 ( 108/ 983- 178/1093) -33.7 E75-E62 N22-N30
     11 1674  885 (S20W36 L=  9)   331     85        0 (1636/ 869-1720/ 905) -33.7 W33-W39 S21-S17
     12 1320  707 (S19W08 L=342)   680    198        0 (1266/ 611-1356/ 788)  45.0 W02-W11 S23-S14
     13  760  639 (S09E25 L=308)   782    200        0 ( 733/ 544- 800/ 734)  48.0 E29-E20 S13-S03
     14 1753  562 (S45W43 L= 17)   491     63        1 (1718/ 548-1787/ 585) -20.0 W38-W49 S47-S42
     15  854  274 (S34E37 L=296)  2726    433        4 ( 687/ 189-1023/ 395)   8.5 E59-E19 S38-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