Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  830 1825 (N52E38 L=223)   459     73        0 ( 800/1806- 871/1841)  53.1 E40-E34 N49-N53
      2  857 1550 (N31E20 L=241)   243     71        2 ( 819/1532- 886/1572)   0.0 E23-E17 N29-N32
      3  412 1491 (N20E52 L=210)   330     65        0 ( 390/1469- 433/1515) -31.0 E54-E49 N18-N21
      4  641 1464 (N22E33 L=229)   640    104        2 ( 617/1407- 676/1513)  90.0 E34-E30 N17-N25
      5  936 1385 (N21E11 L=251)   294    110        0 ( 892/1335- 958/1418) -38.7 E14-E08 N17-N22
      6  529 1315 (N11E37 L=225)   789    168        2 ( 496/1254- 573/1389) -41.2 E40-E32 N07-N14
      7 1040 1223 (N12E02 L=260)   668    210        0 ( 920/1181-1130/1255)  -4.4 E09-W04 N10-N13
      8  248 1032 (S10E55 L=206)   589    137        0 ( 232/ 961- 264/1105)  90.0 E56-E54 S14-S05
      9 1118  976 (S01W06 L=268)  1015    532        2 (1052/ 859-1212/1101) -58.4 W01-W13 S07-N06
     10  592  934 (S11E26 L=236)   495    169        2 ( 531/ 912- 673/ 957)  18.4 E30-E20 S12-S08
     11  872  888 (S10E07 L=254)   373    162        0 ( 824/ 826- 947/ 929)  40.6 E09-E02 S14-S07
     12  203  884 (S20E59 L=203)   433    129        0 ( 173/ 863- 240/ 910)   0.0 E62-E54 S21-S18
     13 1213  746 (S14W16 L=277)   486    126        2 (1172/ 684-1261/ 798)  69.4 W14-W18 S18-S10
     14 1005  541 (S30W06 L=268)   350     54        1 ( 975/ 523-1044/ 560)  21.8 W04-W09 S31-S29
  

    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