Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1004 1861 (N58W43 L=335)  2534    334        4 ( 888/1743-1113/1959)   6.3 W20-W83 N52-N60
      2  576 1619 (N56E16 L=276)   462     80        1 ( 542/1591- 619/1646)   6.3 E20-E11 N53-N57
      3 1496 1461 (N16W42 L=335)   620    154        1 (1466/1393-1521/1533)  37.9 W38-W47 N12-N19
      4  498 1366 (N39E27 L=266)   371     75        1 ( 460/1342- 544/1383)  -7.1 E30-E22 N37-N40
      5 1682  903 (S20W37 L=330)   511    169        0 (1649/ 828-1725/ 975)  33.7 W33-W42 S23-S16
      6 1724  856 (S24W40 L=333)   605    182        1 (1673/ 782-1772/ 934)  31.0 W34-W45 S27-S20
      7 1846  879 (S27W54 L=346)   430    111        0 (1820/ 828-1868/ 933)  39.8 W50-W57 S29-S24
      8 1430  669 (S26W14 L=307)   326     39        0 (1399/ 643-1455/ 696) -63.4 W12-W16 S27-S23
      9 1118  635 (S19E05 L=287)   245     22        1 (1096/ 611-1140/ 656)  33.7 E06-E03 S19-S17
     10 1282  623 (S24W04 L=297)   395    165        0 (1208/ 583-1350/ 649)   0.0 E01-W08 S25-S22
     11  940  512 (S21E20 L=273)   286    131        0 ( 911/ 458- 984/ 537)  31.0 E21-E16 S24-S19
     12 1531  439 (S46W18 L=311)   639    128        0 (1495/ 382-1556/ 495)  48.8 W14-W21 S50-S42
     13 1116  406 (S33E13 L=279)   501    149        0 (1052/ 391-1185/ 429) -18.4 E16-E07 S35-S30
     14  764  355 (S27E38 L=254)   498     83        0 ( 746/ 311- 783/ 402)  45.0 E41-E34 S29-S23
  

    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