Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  625 1700 (N44E45 L=165)  1683    201        2 ( 570/1618- 659/1781) -23.2 E63-E35 N38-N50
      2 1057 1481 (N32E01 L=208)  1645    451        3 ( 930/1343-1221/1572) -29.7 E11-W10 N23-N37
      3  387 1382 (N19E50 L=159)   655    159        2 ( 368/1333- 427/1467) -38.7 E55-E45 N16-N24
      4 1743 1204 (N17W52 L=261)   571     60        2 (1717/1175-1770/1246) -76.0 W48-W54 N15-N19
      5 1543 1166 (N14W34 L=243)   299     66        1 (1521/1137-1572/1191) -33.7 W32-W35 N12-N15
      6 1828 1076 (N10W60 L=269)   408     62        1 (1809/1044-1848/1112)  45.0 W57-W62 N07-N11
      7 1886  892 (S02W70 L=279)   562     66        1 (1857/ 870-1908/ 924)  31.0 W65-W74 S03-N00
      8 1751  856 (S04W53 L=262)   529     18        1 (1725/ 833-1775/ 879) -11.3 W50-W55 S05-S02
      9  938  761 (S15E04 L=206)   269     47        1 ( 918/ 726- 956/ 788)  90.0 E04-E02 S16-S12
     10 1841  714 (S13W69 L=279)  2265    195        5 (1803/ 642-1874/ 766) -69.4 W61-W78 S17-S09
     11 1736  647 (S18W58 L=267)   698     52        3 (1705/ 624-1766/ 671) -14.0 W53-W61 S19-S16
     12 1197  584 (S25W15 L=224)   318     99        0 (1155/ 569-1245/ 603)  18.4 W11-W18 S25-S23
     13 1064  427 (S37W08 L=217)   382    122        0 (1006/ 409-1122/ 445)  18.4 W03-W12 S39-S35
  

    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