Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1423 1577 (N26W43 L= 22)   690    119        1 (1375/1553-1472/1598) -23.2 W39-W46 N24-N28
      2 1736 1539 (N13W68 L= 46)   964    272        1 (1678/1518-1791/1559) -17.4 W60-W76 N10-N15
      3 1812 1394 (N04W68 L= 46)   944    224        1 (1790/1326-1828/1473)  32.5 W61-W73 N00-N07
      4 1448 1418 (N17W37 L= 15)   533     94        1 (1395/1389-1487/1440) -38.7 W34-W39 N14-N19
      5 1857 1139 (S11W60 L= 38)   650     89        2 (1842/1101-1879/1179)  59.0 W57-W63 S13-S08
      6  416 1084 (N24E37 L=301)   909    243        2 ( 355/ 992- 507/1165) -55.3 E41-E32 N17-N30
      7  881 1137 (N17E05 L=333)   220     50        0 ( 849/1118- 916/1158) -45.0 E06-E03 N15-N18
      8 1696 1082 (S09W43 L= 21)   586    161        3 (1670/ 998-1727/1151)  45.0 W38-W46 S12-S05
      9 1023 1127 (N13W03 L=341)   190     53        1 ( 992/1112-1060/1142) -14.0 W00-W04 N11-N14
     10  854 1047 (N13E09 L=329)   669    248        0 ( 747/ 982- 975/1104) -45.0 E14-E03 N06-N17
     11  273  821 (N12E56 L=283)   701    157        1 ( 221/ 790- 322/ 845) -24.0 E60-E51 N09-N13
     12  463  793 (N07E40 L=298)   316     76        0 ( 438/ 768- 482/ 832)  36.9 E42-E37 N05-N08
     13 1010  731 (S09E08 L=330)   653    273        0 ( 886/ 676-1118/ 796) -50.2 E13-E03 S14-S02
     14  717  491 (S16E33 L=305)  3015    596       11 ( 639/ 303- 797/ 646)  47.9 E46-E25 S28-S07
     15  945  385 (S29E24 L=315)   323     88        0 ( 926/ 348- 964/ 422)  45.0 E26-E21 S31-S26
  

    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