Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  877 1538 (N32E17 L=287)   523     93        1 ( 853/1501- 916/1570)  53.1 E19-E14 N29-N34
      2 1814 1372 (N31W64 L=  9)   593     55        1 (1790/1343-1835/1401) -63.4 W60-W68 N29-N33
      3  736 1332 (N17E22 L=282)   241     65        2 ( 718/1295- 755/1358)  90.0 E23-E21 N14-N18
      4 1083 1248 (N15W01 L=305)   259    113        0 (1054/1201-1103/1304) -63.4 E01-W02 N12-N18
      5 1501 1106 (N11W30 L=334)   527    227        0 (1466/1009-1525/1206) -65.6 W26-W31 N05-N16
      6 1739 1059 (N10W49 L=354)  1693    321        3 (1698/ 908-1763/1203)  78.1 W46-W52 N00-N19
      7  604  933 (S09E26 L=279)   541    126        1 ( 579/ 875- 636/ 987)  66.8 E27-E23 S12-S05
      8  203  852 (S19E62 L=242)  2205    285        6 ( 162/ 739- 241/ 940) -85.6 E69-E56 S26-S13
      9  316  846 (S18E49 L=256)   384     62        2 ( 278/ 827- 341/ 867)  18.4 E52-E46 S19-S16
     10 1651  693 (S13W48 L=352)   286     51        1 (1630/ 661-1668/ 720)  90.0 W46-W49 S14-S11
     11 1703  638 (S16W55 L=359)   342    120        0 (1663/ 612-1732/ 671)  26.6 W50-W57 S17-S13
     12 1390  594 (S22W30 L=334)   324    101        1 (1346/ 570-1423/ 635)  53.1 W27-W32 S23-S18
     13 1691  469 (S27W65 L=  9)  3519    311        5 (1568/ 399-1809/ 563)  31.8 W53-W77 S33-S19
  

    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