Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1726 1477 (N31W61 L=335)  1053    143        2 (1668/1431-1781/1506) -18.4 W53-W66 N27-N32
      2  903 1457 (N31E09 L=266)   276    140        0 ( 843/1426- 962/1489) -24.0 E13-E04 N28-N33
      3 1803  973 (S01W56 L=331)  2518    310        7 (1731/ 872-1891/1087) -69.0 W49-W68 S07-N06
      4  532 1013 (N02E32 L=243)   260     84        0 ( 502/ 978- 557/1035) -36.9 E33-E29 N00-N03
      5  207  883 (S07E62 L=213)  2575    292        8 ( 142/ 760- 246/ 986)  82.4 E71-E56 S15-N00
      6  265  821 (S11E56 L=219)   788    182        0 ( 246/ 747- 285/ 913) -90.0 E58-E53 S15-S05
      7 1819  872 (S07W59 L=334)   444     61        1 (1799/ 833-1837/ 901)  63.4 W56-W60 S09-S05
      8  344  823 (S10E48 L=227)   394     68        0 ( 325/ 788- 362/ 850)  53.1 E49-E45 S12-S08
      9  337  686 (S19E51 L=224)  2163    291        7 ( 250/ 598- 430/ 788)  28.4 E66-E40 S25-S12
     10 1338  711 (S16W21 L=295)   255     74        0 (1303/ 697-1379/ 725)   0.0 W18-W23 S17-S15
     11 1708  675 (S20W51 L=325)   607     73        0 (1680/ 645-1743/ 712)  45.0 W48-W53 S21-S17
     12  382  611 (S24E49 L=226)   427     71        1 ( 360/ 584- 404/ 642)  45.0 E50-E45 S26-S21
     13 1596  574 (S26W43 L=317)   377     94        0 (1580/ 526-1613/ 614) -71.6 W40-W44 S29-S23
     14 1034  553 (S27W01 L=275)   605    128        0 ( 984/ 515-1088/ 597)  45.0 E02-W04 S29-S23
     15 1329  526 (S29W22 L=297)  1413    254        3 (1218/ 477-1444/ 589)  17.4 W14-W30 S32-S24
  

    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