Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1203 1711 (N42W23 L= 42)   374     69        0 (1169/1690-1245/1728)   8.1 W19-W26 N40-N43
      2 1384 1527 (N26W30 L= 50)  1053    203        2 (1270/1487-1464/1551) -22.6 W22-W35 N23-N28
      3 1741 1432 (N17W57 L= 77)   666    130        1 (1720/1381-1761/1491)  81.9 W54-W60 N14-N21
      4 1093 1435 (N23W08 L= 28)   216     63        0 (1058/1420-1130/1450) -14.0 W06-W10 N21-N24
      5 1691 1400 (N16W51 L= 70)   582    102        1 (1660/1369-1736/1438) -45.0 W48-W54 N13-N18
      6  726 1379 (N23E16 L=  4)   993    312        0 ( 608/1310- 872/1430) -26.6 E24-E06 N17-N27
      7  369 1414 (N29E45 L=335)   412     72        0 ( 334/1393- 415/1427)   0.0 E48-E40 N28-N30
      8 1288 1183 (N06W17 L= 37)   461    205        0 (1228/1138-1384/1237) -36.9 W14-W23 N02-N09
      9 1034 1130 (N05W02 L= 21)   285     76        2 (1022/1084-1047/1179)  78.7 W00-W02 N02-N07
     10  925  948 (S05E07 L= 13)   184    105        1 ( 883/ 915- 975/ 972)  18.4 E09-E03 S06-S03
     11 1849  941 (S13W59 L= 79)   564     74        1 (1814/ 917-1877/ 971)  15.9 W55-W62 S14-S11
     12 1765  823 (S20W51 L= 71)   991    141        4 (1716/ 790-1831/ 863) -18.4 W45-W58 S21-S16
     13 1674  734 (S24W43 L= 63)   815    212        2 (1650/ 637-1699/ 839) -81.3 W40-W46 S30-S17
     14  195  757 (S09E65 L=315)   716     95        0 ( 178/ 713- 214/ 803)  59.0 E67-E62 S11-S06
     15  885  634 (S23E13 L=  7)   876    227        1 ( 834/ 527- 920/ 719)  57.5 E18-E09 S30-S18
  

    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