Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1266 1628 (N35E01 L=306)   805    154        0 (1201/1583-1339/1661)   0.0 E05-W05 N32-N36
      2  904 1453 (N14E17 L=289)   231     37        0 ( 879/1437- 935/1469)   0.0 E19-E15 N13-N15
      3  441 1342 (S02E43 L=263)   415    112        2 ( 393/1308- 487/1375)   0.0 E47-E39 S03-N00
      4 1801 1331 (N33W47 L=354)   425     44        0 (1768/1318-1829/1345)  23.2 W43-W50 N30-N34
      5 1417 1307 (N18W16 L=322)   386     90        0 (1367/1276-1462/1328)   8.1 W12-W19 N17-N19
      6 1794 1077 (N16W48 L=355)  1856    395        2 (1736/ 944-1834/1249) -87.1 W44-W53 N07-N27
      7  120 1084 (S21E72 L=235)  1479    115        2 (  87/1029- 142/1136)  56.3 E78-E67 S23-S17
      8  652 1014 (S16E21 L=285)   193    105        0 ( 642/ 964- 672/1062) -59.0 E22-E19 S18-S13
      9 1597  958 (N04W35 L=342)   284     92        0 (1551/ 943-1639/ 977)  38.7 W32-W37 N02-N06
     10  682  816 (S27E16 L=291)   477    137        0 ( 617/ 782- 732/ 852)  -7.1 E20-E12 S27-S25
     11  402  614 (S46E38 L=269)  1733    369        2 ( 252/ 548- 581/ 670)   0.0 E57-E19 S48-S43
     12 1798  519 (S12W75 L= 21)  1765    133        5 (1763/ 464-1839/ 585) -45.0 W68-W81 S14-S07
     13 1582  402 (S25W60 L=  7)   760     71        1 (1531/ 376-1618/ 425)  10.3 W54-W65 S26-S23
     14 1452  249 (S38W66 L= 13)  1206    125        1 (1382/ 226-1513/ 276)  13.2 W57-W76 S40-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