Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  570 1677 (N35E41 L=129)  1126    270        1 ( 511/1619- 643/1733) -26.6 E48-E32 N30-N39
      2 1722 1394 (N25W47 L=217)  1183    334        6 (1613/1361-1811/1427)   6.3 W37-W55 N22-N27
      3  547 1245 (N05E31 L=138)   354     92        2 ( 517/1200- 578/1287) -59.0 E33-E29 N02-N07
      4  896 1122 (S00E08 L=162)   186     83        0 ( 858/1085- 928/1145) -14.0 E10-E06 S02-N01
      5 1462  891 (S09W28 L=198)   487    126        2 (1431/ 819-1492/ 953)  82.9 W27-W30 S13-S05
      6 1772  906 (S05W52 L=222)   681    213        2 (1707/ 845-1846/ 939)  33.7 W47-W59 S09-S01
      7 1804  789 (S11W58 L=227)   752    130        3 (1768/ 738-1829/ 862)  76.0 W54-W60 S14-S06
      8  955  808 (S18E03 L=167)   226     77        2 ( 918/ 776- 992/ 847) -31.0 E05-W00 S20-S16
      9  569  774 (S23E28 L=142)   490    190        1 ( 509/ 710- 645/ 806)  31.0 E33-E22 S26-S20
     10  253  742 (S26E55 L=115)   399     93        2 ( 225/ 721- 280/ 764) -26.6 E57-E52 S26-S24
     11 1723  709 (S17W52 L=222)   306     72        1 (1693/ 683-1746/ 726)  11.3 W48-W53 S18-S15
     12 1225  627 (S27W17 L=187)   205     57        0 (1194/ 597-1251/ 651)  53.1 W15-W18 S29-S25
     13 1812  574 (S23W66 L=236)   562    100        2 (1778/ 549-1843/ 608)  45.0 W62-W68 S25-S20
     14 1560  396 (S39W50 L=220)  1071    303        3 (1446/ 362-1671/ 442)  22.4 W41-W58 S42-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