Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  993 1558 (N35W12 L=132)   984    234        0 ( 879/1520-1096/1586) -14.9 W03-W18 N32-N37
      2 1625 1501 (N16W53 L=173)   644     72        2 (1589/1474-1663/1523) -31.0 W49-W56 N14-N17
      3 1493 1471 (N18W41 L=161)   258     79        0 (1479/1428-1515/1497)  31.0 W38-W43 N15-N18
      4 1319 1335 (N14W24 L=144)   365    137        0 (1256/1321-1387/1357)  -6.3 W20-W29 N12-N15
      5  314 1263 (N32E46 L= 74)  1965    285        2 ( 223/1170- 424/1342) -33.7 E58-E35 N23-N38
      6  845 1229 (N18E06 L=114)  2277    649        0 ( 581/1139-1116/1327)  -8.4 E24-W10 N14-N21
      7  154 1170 (N29E66 L= 54)   729     71        1 ( 134/1137- 174/1208) -59.0 E69-E62 N26-N31
      8 1660 1003 (S13W39 L=159)   237     71        1 (1627/ 988-1684/1022) -21.8 W36-W41 S13-S11
      9 1693  826 (S24W40 L=159)  1346    308        1 (1630/ 696-1746/ 958)  49.8 W33-W45 S30-S17
     10 1876  787 (S32W62 L=182)   880     88        1 (1836/ 757-1910/ 820)   9.5 W55-W67 S33-S30
     11 1396  705 (S24W16 L=136)   541    179        1 (1351/ 635-1432/ 784)  48.8 W11-W19 S27-S19
     12  535  562 (S14E42 L= 78)   584    121        3 ( 516/ 494- 553/ 621)  60.3 E45-E39 S17-S10
     13 1060  558 (S25E09 L=111)   317     80        1 (1030/ 531-1090/ 603)  31.0 E10-E05 S26-S22
  

    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