Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  701 1830 (N35E57 L=263)  1712    143        3 ( 673/1763- 725/1891) -28.8 E74-E50 N29-N40
      2 1099 1682 (N36E18 L=302)   970    148        2 (1024/1632-1156/1719)   0.0 E23-E12 N32-N38
      3  471 1576 (N11E54 L=266)   381     54        2 ( 447/1552- 497/1601)  45.0 E55-E51 N09-N13
      4  913 1540 (N20E22 L=298)   280     81        2 ( 885/1500- 942/1582) -71.6 E23-E20 N17-N23
      5 1636 1552 (N47W29 L=349)   572     56        0 (1611/1518-1655/1579) -36.9 W26-W31 N44-N50
      6  163 1086 (S23E67 L=253)  1215    130        4 ( 136/1033- 185/1144)  45.0 E71-E63 S26-S19
      7 1547 1062 (N12W29 L=349)   351     83        0 (1509/1023-1582/1097)  63.4 W27-W30 N08-N14
      8  779 1013 (S13E13 L=307)   553    239        0 ( 695/ 960- 882/1045)   9.5 E18-E06 S16-S11
      9 1827  952 (N15W56 L= 16)  1184    218        3 (1778/ 860-1889/1035) -25.0 W48-W66 N11-N18
     10 1386  963 (N01W22 L=342)   408     72        1 (1344/ 938-1429/ 983)   9.5 W18-W24 N00-N02
     11  645  858 (S25E18 L=302)   246     86        0 ( 625/ 829- 679/ 894) -36.9 E19-E15 S26-S23
     12  358  809 (S36E41 L=279)   422     81        1 ( 321/ 781- 397/ 837)  26.6 E44-E36 S38-S34
     13 1646  770 (S01W45 L=  5)   363     53        1 (1623/ 742-1669/ 798) -14.0 W43-W47 S02-N00
     14  752  647 (S35E05 L=315)   745    178        1 ( 671/ 633- 852/ 670)  18.4 E11-W01 S37-S32
     15 1438  372 (S28W53 L= 13)  3284    509        4 (1240/ 303-1671/ 446)  43.8 W42-W69 S39-S16
  

    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