Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1624 1619 (N21W63 L=250)   659     71        2 (1586/1594-1660/1639)  -5.2 W57-W68 N19-N22
      2 1580 1526 (N18W52 L=239)   483    126        0 (1519/1504-1634/1543) -32.0 W47-W55 N15-N20
      3 1641 1451 (N13W53 L=240)   372     38        0 (1623/1427-1662/1474) -71.6 W50-W54 N11-N14
      4 1697 1371 (N07W53 L=240)   332     53        1 (1666/1352-1721/1390) -45.0 W50-W55 N05-N08
      5  936 1348 (N27W04 L=191)   685    224        1 ( 839/1319-1050/1371) -28.6 E02-W10 N23-N30
      6  517 1188 (N28E28 L=159)   278     58        2 ( 485/1167- 552/1203) -11.3 E30-E25 N27-N29
      7 1204 1169 (N10W14 L=201)   217     37        1 (1176/1151-1228/1192)   0.0 W12-W15 N09-N11
      8 1530 1151 (N00W33 L=220)   310     83        0 (1507/1107-1545/1185)  71.6 W31-W33 S01-N02
      9  944 1147 (N16E01 L=186)   188     87        1 ( 910/1123- 984/1173) -68.2 E02-W00 N13-N18
     10 1847 1061 (S15W56 L=243)  1053    126        3 (1813/1010-1882/1115)  50.2 W52-W60 S17-S11
     11  197  894 (N17E63 L=125)  1582    270        3 ( 142/ 791- 289/ 991) -42.9 E69-E54 N09-N22
     12 1786  838 (S26W46 L=233)   654    153        0 (1758/ 775-1805/ 915) -74.7 W44-W48 S30-S19
     13 1482  864 (S14W22 L=210)   274     81        2 (1434/ 837-1511/ 888) -31.0 W19-W24 S15-S12
     14 1505  748 (S22W22 L=209)   436    142        0 (1457/ 703-1541/ 818)  26.6 W17-W25 S23-S18
     15  402  505 (S09E56 L=131)  6636    693       16 ( 171/ 312- 586/ 752) -67.0 E74-E48 S25-N08
     16  904  413 (S26E25 L=162)  2126    353        2 ( 859/ 264- 957/ 578)  43.5 E36-E16 S35-S16
     17 1108  441 (S30E11 L=176)   841    279        0 (1054/ 315-1185/ 539)  35.2 E20-E03 S37-S24
     18 1682  487 (S48W36 L=223)  1026     77        2 (1635/ 469-1726/ 513) -17.1 W30-W43 S50-S44
     19  614  335 (S25E49 L=138)   477     63        1 ( 588/ 308- 633/ 362)  33.7 E52-E46 S26-S22
  

    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