Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  461 1640 (N23E60 L= 42)   606    128        0 ( 412/1604- 513/1658)   0.0 E66-E51 N21-N24
      2 1140 1518 (N30E04 L= 97)   297     67        0 (1104/1496-1170/1542)  -9.5 E07-E01 N29-N31
      3  365 1493 (N12E59 L= 43)   408     69        0 ( 335/1472- 396/1515)  36.9 E60-E56 N10-N13
      4 1177 1437 (N26W00 L=102)   210     81        0 (1137/1424-1213/1450)  14.0 E02-W02 N24-N26
      5  909 1386 (N17E15 L= 87)   326    105        1 ( 869/1360- 967/1402)  38.7 E17-E11 N14-N18
      6 1163 1365 (N21W01 L=103)   440    111        1 (1125/1338-1196/1399)  33.7 E01-W02 N19-N22
      7 1191 1297 (N17W04 L=106)   266     28        0 (1174/1270-1212/1321) -56.3 W02-W05 N15-N18
      8 1137 1285 (N15W01 L=103)   228     77        0 (1118/1251-1159/1316) -53.1 W00-W03 N13-N17
      9  211 1067 (S16E60 L= 42)   778    104        3 ( 187/1022- 230/1124) -80.5 E62-E57 S18-S12
     10 1802  997 (N14W54 L=156)   504    111        0 (1785/ 941-1821/1055) -50.2 W51-W57 N10-N17
     11  846  662 (S27E03 L= 99)  1353    375        2 ( 680/ 590- 985/ 759)  45.0 E13-W04 S35-S18
     12 1644  421 (S23W66 L=168)  1088     77        0 (1600/ 395-1671/ 456)  59.0 W62-W71 S25-S20
     13  727  392 (S50E06 L= 96)   650    124        1 ( 671/ 373- 790/ 411)  28.6 E11-W00 S53-S46
     14 1008  327 (S47W20 L=122)  1398    262        1 ( 873/ 308-1118/ 347)  24.0 W09-W28 S50-S42
  

    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