Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  492 1694 (N21E57 L=236)  2435    218        4 ( 395/1623- 590/1741)  29.7 E63-E49 N15-N25
      2 1436 1552 (N35W12 L=306)   909    168        1 (1353/1504-1501/1587)  -4.4 W05-W18 N33-N36
      3  285 1370 (S02E58 L=235)   335     39        1 ( 265/1348- 312/1389)  33.7 E59-E55 S03-S01
      4  631 1278 (S02E29 L=265)   268     87        0 ( 582/1253- 664/1302)  -9.5 E32-E26 S02-N00
      5 1703 1222 (N22W38 L=331)   378     71        0 (1691/1183-1715/1266) -63.4 W36-W39 N19-N24
      6 1600 1212 (N18W30 L=323)   573    133        0 (1545/1175-1670/1247)   0.0 W25-W35 N17-N19
      7 1913 1134 (N25W62 L=355)   953     73        2 (1892/1093-1934/1179) -68.2 W58-W66 N22-N27
      8  212 1048 (S22E58 L=235)  1136    162        3 ( 177/ 986- 254/1113)  56.3 E61-E53 S26-S17
      9  843  960 (S15E09 L=285)   286    120        0 ( 822/ 904- 866/1016) -81.9 E09-E07 S18-S11
     10 1859  932 (N11W58 L=352)  1185    166        2 (1833/ 855-1891/1015) -37.9 W53-W64 N06-N14
     11 1921  954 (N15W66 L=359)  1728    132        3 (1890/ 888-1944/1015) -40.6 W60-W71 N11-N18
     12  935  878 (S17E02 L=292)   842    266        6 ( 852/ 815-1015/ 970)  65.6 E05-W01 S21-S10
     13 1749  874 (N04W49 L=342)   404     74        0 (1705/ 852-1788/ 896)  33.7 W45-W52 N01-N06
     14  441  595 (S47E34 L=260)  1106    214        1 ( 351/ 555- 544/ 639)  -2.7 E44-E22 S48-S43
     15 1612  358 (S26W68 L=  2)  1143    129        2 (1560/ 332-1670/ 395)   5.2 W59-W81 S27-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