Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  327 1474 (N15E56 L=354)  5336    466       14 ( 209/1319- 496/1564)  40.1 E66-E42 N04-N21
      2  468 1442 (N13E42 L=  8)   985    166        5 ( 388/1392- 533/1495)  29.1 E47-E37 N10-N17
      3 1944 1124 (N15W70 L=120)   639     97        1 (1902/1085-1977/1159)  -3.8 W63-W78 N13-N16
      4 1833 1077 (N10W55 L=104)   672    115        0 (1812/1015-1852/1136)  76.0 W53-W56 N05-N13
      5  219 1016 (S14E57 L=353)  1289    207        2 ( 179/ 956- 262/1126)  57.5 E61-E52 S17-S06
      6  154 1067 (S11E65 L=345)   909    135        2 ( 128/1007- 186/1120) -60.3 E68-E60 S14-S07
      7  955  860 (S16E02 L= 48)   627    210        1 ( 910/ 764- 981/ 951) -63.4 E05-W00 S21-S11
      8 1562  856 (S08W36 L= 85)   487    160        0 (1525/ 785-1586/ 936)  90.0 W34-W36 S12-S03
      9  280  854 (S23E51 L=359)  3254    538        7 (  93/ 773- 535/ 902)   8.1 E85-E29 S27-S18
     10  564  714 (S29E27 L= 22)  2336    504        4 ( 346/ 630- 721/ 875)  28.0 E48-E16 S36-S18
     11 1480  683 (S19W34 L= 84)   831    305        0 (1424/ 628-1573/ 777) -41.2 W29-W40 S22-S14
     12 1110  410 (S43W17 L= 67)  2537    474        4 ( 900/ 368-1324/ 461)  10.3 W00-W33 S45-S38
     13  792  392 (S49E09 L= 41)   247     44        0 ( 769/ 373- 811/ 415)  45.0 E11-E07 S51-S47
     14 1586  374 (S36W60 L=110)   747    105        0 (1549/ 349-1628/ 402)  20.6 W54-W64 S37-S33
  

    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