Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1670 1541 (N34W55 L= 87)   818     83        2 (1634/1507-1702/1574) -59.0 W52-W57 N31-N36
      2  520 1481 (N34E38 L=354)   920    200        0 ( 451/1432- 606/1521) -15.9 E44-E30 N30-N36
      3  358 1285 (N20E48 L=344)  3085    670        6 ( 223/1088- 455/1437) -37.9 E65-E37 N08-N29
      4  917 1386 (N27E07 L= 25)   362     96        0 ( 861/1372- 963/1405)   8.1 E10-E03 N26-N28
      5 1775 1244 (N14W56 L= 88)   648    136        2 (1739/1174-1803/1315) -77.5 W53-W58 N09-N18
      6 1126 1188 (N14W07 L= 39)   337    116        0 (1074/1143-1182/1238) -40.6 W03-W10 N10-N17
      7 1530  985 (S00W33 L= 64)   323     90        2 (1490/ 963-1582/1001)   0.0 W29-W36 S01-N01
      8  472  914 (S02E37 L=355)   315     66        1 ( 442/ 894- 508/ 932) -11.3 E38-E33 S03-S01
      9  752  833 (S07E17 L= 14)   442    105        0 ( 695/ 807- 808/ 863) -20.6 E21-E13 S09-S05
     10 1788  797 (S14W56 L= 87)   398    123        1 (1741/ 770-1821/ 823)  14.0 W51-W59 S15-S11
     11  360  687 (S17E48 L=343)  1193    328        2 ( 304/ 587- 408/ 798)  49.1 E56-E43 S24-S09
     12 1655  669 (S21W44 L= 76)   293     52        0 (1626/ 655-1680/ 681) -11.3 W41-W46 S21-S20
     13 1415  579 (S26W26 L= 58)   591    118        0 (1356/ 562-1470/ 600)   7.1 W21-W30 S27-S24
     14  564  526 (S28E35 L=357)   864    175        2 ( 515/ 492- 630/ 558)  24.4 E39-E28 S30-S25
  

    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