Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1203 1803 (N51W12 L= 89)   347     46        1 (1178/1785-1233/1818) -21.8 W09-W15 N49-N52
      2 1462 1652 (N40W32 L=110)   315     31        0 (1444/1628-1481/1675)  45.0 W29-W34 N37-N41
      3 1543 1484 (N28W35 L=112)   268     29        1 (1521/1462-1561/1503) -45.0 W33-W36 N26-N29
      4  274 1356 (N15E56 L= 21)   691    128        0 ( 241/1307- 309/1413)  60.3 E58-E54 N11-N18
      5  465 1302 (N11E38 L= 40)   590    195        0 ( 415/1252- 539/1379) -30.3 E43-E31 N08-N15
      6 1852 1125 (N07W60 L=137)  1672    133        6 (1811/1031-1898/1225)  65.2 W54-W66 N01-N14
      7 1255 1089 (N01W14 L= 91)   283     93        0 (1240/1041-1268/1141)  90.0 W12-W14 S02-N03
      8  969  860 (S14E03 L= 75)   373    157        0 ( 938/ 804-1029/ 891)  59.0 E04-W00 S17-S12
      9  186  792 (S19E65 L= 12)  1791    234        4 ( 135/ 712- 254/ 871)  35.5 E75-E54 S24-S14
     10 1084  829 (S16W05 L= 82)   194     93        0 (1041/ 807-1121/ 861)  31.0 W01-W06 S16-S13
     11 1164  750 (S20W10 L= 87)   615    152        2 (1104/ 696-1209/ 815)  74.1 W06-W13 S23-S16
     12  901  734 (S22E07 L= 71)   414    136        0 ( 834/ 711- 971/ 762) -20.6 E11-E02 S23-S20
     13 1638  719 (S19W44 L=122)   598    106        1 (1592/ 689-1681/ 760)  38.7 W41-W47 S21-S16
     14 1299  519 (S34W23 L=100)   541     88        1 (1264/ 486-1338/ 554) -15.9 W19-W26 S36-S32
     15 1010  162 (S68W07 L= 85)   476     55        0 ( 983/ 140-1038/ 186) -24.4 W02-W13 S71-S65
  

    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