Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  696 1520 (N33E27 L= 12)   707    186        1 ( 630/1468- 754/1571) -26.6 E33-E21 N29-N36
      2 1236 1328 (N22W13 L= 52)  1614    362        1 (1065/1231-1404/1433) -27.6 W01-W24 N16-N28
      3  327 1349 (N19E53 L=346)   901    175        0 ( 307/1276- 346/1426) -66.0 E55-E49 N15-N24
      4  747 1390 (N25E20 L= 18)   388     64        2 ( 719/1367- 783/1423)  14.0 E22-E17 N23-N26
      5  919 1280 (N18E08 L= 31)   660    171        1 ( 863/1210- 991/1353) -41.6 E11-E02 N14-N22
      6  420 1313 (N18E44 L=355)   321     73        0 ( 389/1285- 455/1336)  45.0 E45-E41 N15-N19
      7  771 1243 (N15E17 L= 22)   524    168        3 ( 726/1168- 801/1308) -71.6 E20-E14 N10-N19
      8  523 1137 (N08E33 L=  6)   947    222        0 ( 487/1042- 582/1233) -54.0 E36-E28 N02-N13
      9  703 1063 (N04E20 L= 18)   259     77        1 ( 659/1045- 746/1083)  18.4 E23-E17 N02-N05
     10  435  967 (S03E39 L=360)   309     98        1 ( 397/ 951- 479/ 992)  -9.5 E41-E35 S04-S01
     11 1041  498 (S31W03 L= 42)   244     58        1 (1017/ 473-1066/ 525) -36.9 W01-W05 S33-S29
     12 1217  257 (S51W23 L= 62)   595    131        0 (1167/ 223-1251/ 284) -28.6 W17-W28 S55-S48
     13  861  252 (S54E13 L= 26)   378    101        0 ( 813/ 243- 916/ 262)   5.2 E17-E06 S55-S52
  

    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