Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1736 1528 (N19W69 L=107)  1387    152        1 (1696/1465-1769/1597)  60.9 W65-W72 N14-N23
      2 1792 1508 (N16W76 L=115)  1220    102        1 (1765/1468-1818/1556)  51.3 W73-W81 N13-N18
      3 1437 1497 (N26W39 L= 78)   396    121        0 (1392/1474-1479/1537) -51.3 W37-W42 N23-N28
      4 1715 1435 (N15W59 L= 98)  1483    294        3 (1632/1340-1804/1528) -70.3 W56-W65 N07-N21
      5  375 1356 (N38E44 L=354)  1205    253        1 ( 301/1275- 475/1429) -29.7 E54-E33 N31-N43
      6  786 1134 (N18E12 L= 26)   600    185        2 ( 719/1079- 834/1219) -60.9 E15-E09 N14-N23
      7 1440 1064 (N01W26 L= 64)   615    212        1 (1387/1022-1528/1137) -45.0 W23-W31 S02-N05
      8 1871 1034 (S12W62 L=100)  2621    321        5 (1824/ 899-1925/1130)  69.0 W54-W70 S19-S05
      9 1818 1020 (S11W55 L= 93)   851    100        2 (1795/ 975-1846/1074) -90.0 W52-W58 S14-S07
     10 1139 1025 (N05W07 L= 45)   203     83        2 (1096/1010-1174/1050)   0.0 W04-W09 N03-N05
     11  143  914 (N12E72 L=326)   917     65        1 ( 114/ 892- 173/ 944)  -5.2 E78-E66 N10-N14
     12  357  637 (S06E54 L=345)  2037    345        7 ( 296/ 532- 404/ 774)  82.4 E59-E48 S13-N02
     13  283  693 (S02E59 L=339)   502    114        1 ( 262/ 642- 308/ 749) -90.0 E60-E57 S05-N01
     14 1692  713 (S27W40 L= 78)   361     81        0 (1662/ 682-1721/ 745)  31.0 W37-W43 S28-S25
     15  296  562 (S11E65 L=334)  1173    132        5 ( 251/ 519- 336/ 609)  21.0 E72-E58 S13-S07
     16  433  466 (S18E55 L=343)  1007    185        4 ( 412/ 386- 460/ 548)  53.1 E60-E49 S24-S12
     17  506  394 (S24E53 L=345)   759    169        2 ( 460/ 319- 538/ 453)  54.0 E57-E48 S30-S19
     18  896  387 (S31E23 L= 15)  1441    405        3 ( 763/ 288-1059/ 446)  12.1 E38-E10 S36-S27
     19 1285  370 (S41W04 L= 42)   706     97        2 (1240/ 344-1322/ 414) -15.9 W00-W07 S43-S38
     20  943  305 (S38E24 L= 15)   631    104        1 ( 908/ 257- 975/ 354)  37.9 E28-E19 S42-S34
  

    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