Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  350 1444 (N30E56 L=303)   576    111        2 ( 304/1411- 392/1468)  20.6 E60-E51 N27-N31
      2 1708 1372 (N23W54 L= 52)   604    168        1 (1627/1324-1753/1427) -37.9 W47-W58 N20-N27
      3 1344 1375 (N25W23 L= 21)   336    186        0 (1269/1318-1403/1405) -33.7 W17-W26 N21-N27
      4 1550 1341 (N22W38 L= 36)   287     87        0 (1515/1315-1572/1370)  21.8 W35-W40 N20-N24
      5  303 1327 (N22E56 L=302)   430    101        0 ( 280/1295- 343/1368) -24.0 E60-E50 N20-N24
      6  807 1298 (N21E14 L=344)   207     86        0 ( 778/1271- 827/1339)  63.4 E15-E12 N19-N23
      7 1761  811 (S12W54 L= 52)  1405    206        4 (1724/ 742-1807/ 889) -59.0 W49-W59 S16-S06
      8 1836  774 (S15W64 L= 62)   670    100        1 (1812/ 731-1862/ 826)  71.6 W61-W67 S17-S11
      9 1448  699 (S18W28 L= 26)   468    138        2 (1389/ 670-1518/ 737)  18.4 W23-W32 S19-S15
     10  502  664 (S19E37 L=321)   276     67        1 ( 485/ 634- 514/ 707)  59.0 E38-E35 S21-S16
     11 1781  618 (S25W63 L= 61)  1339    184        2 (1739/ 582-1842/ 666)   3.4 W56-W75 S27-S21
     12  862  456 (S34E13 L=345)  1755    284        6 ( 798/ 355- 937/ 570) -82.9 E17-E08 S41-S25
     13  796  415 (S37E19 L=340)   409     63        1 ( 764/ 394- 832/ 444)   0.0 E21-E16 S38-S34
     14  593  317 (S46E44 L=315)   478     78        0 ( 579/ 279- 603/ 363)  38.7 E49-E39 S49-S41
  

    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