Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1010 1667 (N30E21 L=339)  1120    420        2 ( 961/1483-1049/1811) -55.2 E31-E13 N18-N41
      2  555 1708 (N21E55 L=305)   630     75        3 ( 527/1676- 589/1742) -68.2 E57-E52 N19-N24
      3 1520 1592 (N44W16 L= 16)  1483    273        6 (1419/1487-1624/1687) -18.4 W05-W27 N39-N48
      4  875 1637 (N24E28 L=332)   556    103        1 ( 821/1616- 925/1655)  38.7 E31-E24 N22-N26
      5 1331 1525 (N31W04 L=  4)   502    139        1 (1293/1456-1349/1578) -53.1 W00-W06 N26-N34
      6 1713 1405 (N38W37 L= 37)   405     80        1 (1686/1378-1746/1434)  -8.1 W33-W40 N36-N38
      7 1619 1304 (N27W29 L= 29)   691    258        0 (1550/1184-1680/1387) -31.6 W22-W35 N21-N30
      8  281 1108 (S20E52 L=308)   521    126        4 ( 256/1053- 302/1169) -60.3 E55-E49 S23-S16
      9 1791 1079 (N20W48 L= 48)   581    169        0 (1742/1005-1819/1144) -26.6 W42-W52 N16-N22
     10  431  963 (S25E36 L=324)   309     93        0 ( 388/ 933- 475/ 990)  35.5 E39-E32 S27-S22
     11  936  763 (S24W02 L=  2)   491    234        0 ( 824/ 704-1030/ 795)  48.0 E02-W07 S30-S19
     12  303  748 (S42E48 L=312)   341    128        0 ( 252/ 718- 360/ 770)  18.4 E55-E40 S44-S39
     13 1479  330 (S30W61 L= 61)   711    127        0 (1444/ 281-1518/ 385) -58.0 W57-W64 S33-S25
  

    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