Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1707 1517 (N12W64 L=130)  1896    173        3 (1659/1446-1765/1586) -90.0 W59-W66 N06-N17
      2  291 1475 (N53E56 L= 10)  1995    182        2 ( 196/1446- 373/1500)  -2.7 E84-E41 N49-N54
      3 1047 1456 (N29W14 L= 81)  1231    308        2 ( 893/1415-1181/1493) -32.0 W05-W22 N24-N34
      4 1444 1423 (N16W37 L=103)   718    269        0 (1331/1395-1565/1444) -20.6 W29-W45 N12-N19
      5  827 1375 (N30E02 L= 64)   201     34        0 ( 804/1360- 853/1393) -56.3 E03-W00 N28-N31
      6  454 1169 (N28E33 L= 34)   282     60        0 ( 414/1157- 491/1180) -15.9 E36-E29 N26-N28
      7  386  987 (N18E42 L= 25)  1506    377        2 ( 356/ 842- 443/1172)  84.6 E45-E37 N08-N29
      8 1806  921 (S23W50 L=117)   565     61        2 (1782/ 886-1829/ 959)  53.1 W47-W53 S25-S21
      9 1771  730 (S34W45 L=112)   379     45        0 (1755/ 703-1784/ 758)  76.0 W43-W46 S36-S32
     10 1221  654 (S21W01 L= 68)   574    259        2 (1100/ 641-1336/ 686) -19.7 E05-W09 S23-S17
     11  428  455 (S14E58 L=  8)  1112    189        0 ( 403/ 366- 471/ 523)  25.3 E69-E50 S19-S10
     12  644  351 (S25E47 L= 19)   692    109        1 ( 601/ 316- 677/ 403)  26.6 E53-E42 S27-S21
     13  904  340 (S33E30 L= 37)   527     78        2 ( 880/ 307- 928/ 375)  29.7 E33-E26 S35-S30
  

    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