Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  784 1741 (N58W10 L=344)  3248    507        6 ( 610/1597- 981/1878)   6.1 E12-W44 N52-N62
      2 1577 1696 (N25W67 L= 40)  3066    309        6 (1458/1623-1706/1765) -53.1 W59-W76 N17-N33
      3 1563 1610 (N22W57 L= 30)  1339    312        0 (1477/1571-1694/1653) -33.7 W50-W67 N15-N25
      4  774 1340 (N30E06 L=327)   409    127        0 ( 709/1305- 812/1381)   6.3 E11-E02 N29-N32
      5 1442  764 (S20W17 L=351)   463    107        0 (1424/ 711-1457/ 824)  63.4 W15-W19 S23-S16
      6 1284  684 (S20W06 L=339)   475    204        0 (1238/ 597-1320/ 769)  41.6 W00-W09 S24-S15
      7 1785  625 (S43W48 L= 21)   479     38        1 (1767/ 600-1804/ 650)  90.0 W45-W50 S44-S40
      8 1385  550 (S32W09 L=342)   546     89        0 (1359/ 506-1418/ 592)  38.7 W06-W11 S34-S29
      9 1359  417 (S41W03 L=336)   895    169        0 (1336/ 372-1414/ 498) -80.5 W00-W06 S46-S34
     10  957  398 (S29E23 L=310)   652    157        0 ( 893/ 362-1033/ 438) -60.9 E25-E19 S33-S24
     11  550  325 (S24E57 L=276)   850    111        1 ( 496/ 288- 594/ 360) -51.3 E61-E54 S27-S20
     12  705  299 (S29E46 L=287)   560     99        2 ( 677/ 257- 723/ 348)  41.2 E51-E42 S32-S25
     13  702  231 (S34E54 L=279)   597     91        0 ( 654/ 216- 751/ 243) -18.4 E58-E48 S35-S32
  

    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