Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  738 1718 (N33E40 L= 52)  1842    505        5 ( 703/1523- 780/1847) -48.8 E49-E28 N20-N44
      2  403 1637 (N20E63 L= 30)  2101    370        6 ( 360/1570- 438/1705) -29.7 E69-E55 N16-N24
      3 1217 1577 (N36E02 L= 91)   256     38        1 (1199/1551-1236/1601) -45.0 E03-W00 N34-N37
      4 1693 1471 (N43W40 L=132)   770    100        2 (1670/1429-1719/1519) -71.6 W37-W42 N40-N46
      5 1061 1418 (N21E07 L= 85)   481    191        0 (1012/1358-1104/1451) -23.2 E10-E03 N17-N23
      6 1028 1324 (N15E07 L= 86)   291    109        1 ( 983/1283-1063/1354) -31.0 E10-E04 N12-N16
      7 1131 1267 (N14W01 L= 93)   237     71        1 (1112/1220-1150/1295) -78.7 W00-W01 N10-N15
      8 1623 1240 (N24W33 L=126)   399    125        2 (1593/1192-1662/1286)  74.1 W31-W36 N21-N28
      9 1354 1249 (N18W14 L=107)   263     75        2 (1333/1217-1389/1281)  68.2 W13-W16 N15-N20
     10  347 1157 (S10E47 L= 46)   288     89        0 ( 334/1115- 359/1205) -80.5 E48-E45 S12-S06
     11  205 1109 (S15E60 L= 33)   420     88        0 ( 185/1070- 229/1148)  59.0 E61-E58 S17-S12
     12 1623 1071 (N14W36 L=129)   458     88        3 (1583/1044-1662/1091)  38.7 W33-W39 N11-N15
     13  445  915 (S22E35 L= 58)   516    165        1 ( 387/ 879- 513/ 950)  37.9 E38-E29 S25-S18
     14 1140  459 (S34W24 L=116)   343     64        0 (1110/ 432-1181/ 480)  53.1 W21-W25 S35-S31
  

    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