Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  754 1693 (N54W03 L=349)  2381    437        5 ( 580/1594- 930/1784)   2.9 E16-W23 N50-N56
      2 1470 1721 (N31W58 L= 44)   497     75        0 (1434/1692-1507/1749) -78.7 W56-W60 N28-N33
      3  690 1462 (N39E10 L=336)   276     53        2 ( 663/1439- 719/1484) -14.0 E11-E07 N37-N40
      4 1485 1435 (N15W40 L= 26)   539    124        0 (1425/1406-1543/1471) -50.2 W37-W43 N11-N18
      5  476 1126 (N23E32 L=314)  1177    326        3 ( 324/1064- 607/1198) -26.6 E44-E22 N17-N30
      6  223 1062 (N25E56 L=290)   986    197        3 ( 192/ 977- 287/1120)  69.4 E60-E48 N20-N28
      7 1532 1000 (S10W29 L= 15)   611    178        2 (1485/ 930-1572/1081)  33.7 W24-W33 S13-S06
      8  330 1018 (N20E45 L=301)   463    120        2 ( 287/ 977- 374/1067) -45.0 E49-E42 N17-N24
      9 1637  804 (S24W33 L= 19)  1373    293        5 (1517/ 722-1711/ 899)  17.4 W22-W39 S26-S19
     10 1227  799 (S13W06 L=352)   570    191        0 (1193/ 730-1282/ 883) -84.8 W04-W07 S18-S07
     11  302  805 (N09E53 L=293)   369    133        0 ( 282/ 753- 320/ 874) -90.0 E53-E51 N05-N12
     12 1416  793 (S18W17 L=  3)   365    135        0 (1371/ 751-1457/ 856)  29.7 W13-W20 S19-S15
     13  827  401 (S27E31 L=315)   337     72        0 ( 796/ 378- 869/ 430)   8.1 E33-E26 S28-S25
     14  628  285 (S30E54 L=292)  1665    237        6 ( 591/ 208- 653/ 417)  31.0 E68-E43 S35-S20
  

    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