Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  859 1651 (N51W08 L=290)   663    108        1 ( 820/1611- 895/1693)  21.8 W03-W13 N48-N52
      2 1204 1610 (N37W31 L=313)   503     85        2 (1165/1581-1252/1630)  -8.1 W27-W35 N35-N38
      3 1609 1538 (N20W57 L=338)  1200    130        3 (1545/1507-1669/1563) -14.0 W50-W63 N17-N22
      4 1613 1482 (N17W53 L=335)   353     49        1 (1584/1466-1647/1501) -36.9 W51-W55 N15-N18
      5 1407 1431 (N20W35 L=317)   448    139        0 (1388/1359-1425/1494)  66.0 W32-W37 N15-N24
      6  340 1282 (N37E46 L=236)   997    160        2 ( 279/1216- 400/1323) -28.1 E54-E39 N32-N40
      7 1521 1282 (N09W37 L=319)   301     69        0 (1494/1248-1546/1314) -78.7 W35-W38 N06-N11
      8 1873 1199 (S07W67 L=348)  1243    142        1 (1846/1126-1900/1256)  21.0 W60-W73 S10-S04
      9  763 1197 (N23E12 L=270)   989    402        0 ( 589/1170- 931/1219) -20.0 E23-E01 N18-N27
     10 1247 1174 (N10W16 L=298)   267    150        1 (1165/1150-1292/1194)  -7.1 W11-W19 N08-N12
     11 1536 1066 (S03W31 L=313)   667    162        0 (1508/ 993-1577/1136)  41.2 W28-W36 S07-N00
     12  592 1085 (N20E25 L=256)   267     71        1 ( 568/1054- 616/1122)  63.4 E27-E23 N18-N22
     13  294 1029 (N22E51 L=231)  1182    184        0 ( 238/ 958- 351/1087) -45.0 E57-E45 N17-N26
     14 1885 1036 (S16W63 L=345)   734    126        1 (1842/ 991-1924/1064) -28.3 W57-W70 S20-S13
     15 1556  738 (S23W27 L=308)  1528    288        0 (1473/ 619-1636/ 852)  33.7 W18-W34 S29-S18
     16  931  789 (S04E11 L=271)   230     65        0 ( 906/ 761- 955/ 825) -78.7 E11-E09 S06-S01
     17  817  719 (S06E19 L=262)   247     68        0 ( 784/ 702- 856/ 742) -53.1 E21-E17 S07-S03
     18 1725  635 (S37W42 L=324)   432     51        0 (1707/ 600-1737/ 666) -68.2 W39-W43 S39-S34
     19 1342  372 (S43W04 L=286)  2415    287        6 (1229/ 285-1439/ 483)  21.8 E07-W13 S48-S36
     20  816  292 (S34E37 L=244)   628     83        0 ( 780/ 264- 859/ 331)  15.3 E42-E31 S36-S31
     21 1068  207 (S49E26 L=256)   607     69        1 (1033/ 186-1117/ 231)  -6.3 E30-E20 S51-S47
  

    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