Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1844 1335 (N11W69 L=319)   870    154        1 (1806/1302-1873/1365) -51.3 W63-W73 N08-N13
      2  571 1160 (N19E28 L=222)  2037    473        5 ( 386/1067- 735/1276) -31.6 E43-E17 N11-N27
      3 1386 1216 (N13W25 L=275)   285    103        0 (1363/1175-1433/1252)  38.7 W23-W29 N10-N14
      4 1863 1058 (S05W63 L=313)  1077    141        3 (1836/ 998-1887/1107)  63.4 W59-W67 S08-S02
      5  402 1027 (N12E42 L=208)   536    101        0 ( 358/ 982- 425/1060) -63.4 E45-E39 N09-N13
      6 1647  753 (S20W39 L=289)  2404    388        6 (1513/ 615-1732/ 906)  41.4 W28-W46 S27-S11
      7  956  784 (S08E07 L=243)   247     45        0 ( 932/ 760- 983/ 803)  18.4 E08-E05 S09-S06
      8 1023  703 (S14E04 L=246)   960    324        0 ( 892/ 617-1128/ 795)  28.1 E13-W03 S18-S08
      9  850  731 (S10E14 L=236)   265     68        0 ( 833/ 700- 867/ 779)  78.7 E15-E13 S11-S06
     10  723  687 (S12E23 L=227)   599    121        2 ( 668/ 635- 783/ 736) -29.7 E26-E19 S15-S08
     11 1417  626 (S24W21 L=271)   383    117        1 (1391/ 570-1435/ 668)  71.6 W19-W22 S28-S21
     12 1315  601 (S24W14 L=264)   228     43        1 (1299/ 582-1336/ 630) -71.6 W12-W15 S25-S22
     13  593  594 (S16E34 L=216)   271     62        0 ( 560/ 559- 628/ 615) -36.9 E36-E32 S19-S14
     14  882  487 (S27E17 L=233)   236     81        0 ( 870/ 451- 902/ 516)  59.0 E18-E14 S29-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