Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  997 1885 (N70E15 L=128)   748     65        1 ( 968/1860-1033/1903)  32.0 E21-E09 N66-N73
      2  809 1590 (N39E20 L=123)   469    121        2 ( 768/1540- 853/1639) -31.0 E25-E15 N35-N42
      3 1697 1516 (N37W59 L=202)  1667    200        4 (1636/1456-1769/1549)   2.7 W49-W70 N32-N39
      4 1471 1481 (N34W32 L=176)   562    124        2 (1428/1439-1512/1514) -26.6 W28-W35 N30-N36
      5  524 1421 (N25E39 L=105)   413     98        0 ( 483/1399- 578/1439)   8.1 E41-E34 N23-N26
      6 1595 1362 (N26W41 L=184)   585     97        1 (1556/1326-1629/1395) -33.7 W37-W43 N23-N28
      7 1348 1364 (N25W21 L=164)   235     61        0 (1320/1345-1379/1384) -26.6 W18-W23 N24-N26
      8 1844 1162 (N13W63 L=207)   415     46        1 (1828/1131-1855/1191) -76.0 W61-W65 N11-N15
      9 1272 1015 (N03W15 L=159)   209     69        1 (1238/1002-1297/1035)  33.7 W13-W17 N02-N04
     10 1751  854 (S06W53 L=196)   571     42        0 (1721/ 831-1781/ 878)   9.5 W49-W56 S07-S04
     11  434  715 (S20E40 L=103)   706     88        0 ( 390/ 691- 487/ 746)   0.0 E44-E36 S21-S17
     12  215  698 (S23E67 L= 77)  1564    128        1 ( 180/ 644- 257/ 744)  17.1 E84-E58 S27-S19
     13  810  479 (S34E13 L=130)   555    102        0 ( 767/ 448- 856/ 511) -23.2 E16-E09 S36-S31
     14 1057  493 (S32W05 L=148)   302     86        0 (1012/ 479-1107/ 511)  -8.1 W01-W08 S32-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