Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1477 1548 (N41W24 L=302)   287     29        0 (1453/1527-1497/1568) -14.0 W21-W25 N39-N42
      2  697 1419 (N17E28 L=251)   708    180        1 ( 665/1358- 724/1518) -68.2 E31-E26 N12-N22
      3 1033 1436 (N24E07 L=272)   648    177        1 ( 974/1359-1071/1492) -45.0 E11-E03 N19-N26
      4  329 1384 (N08E55 L=223)  1025    208        1 ( 311/1294- 355/1489) -63.4 E58-E51 N03-N15
      5  516 1385 (N12E40 L=239)   516    120        2 ( 482/1344- 551/1424) -38.7 E42-E36 N09-N13
      6  641 1334 (N11E29 L=249)  1012    266        4 ( 546/1295- 734/1385)   8.7 E35-E22 N07-N13
      7  700 1229 (N05E23 L=256)   247     97        0 ( 670/1193- 736/1246)  53.1 E25-E20 N02-N06
      8  489  989 (S12E33 L=246)  1130    291        2 ( 439/ 862- 546/1114)  73.6 E35-E30 S20-S03
      9  947  817 (S14E01 L=278)   585    225        1 ( 849/ 746-1027/ 871) -15.3 E07-W04 S17-S12
     10 1611  802 (S04W42 L=320)   571    158        0 (1571/ 739-1634/ 855) -50.2 W37-W43 S07-N00
     11  709  778 (S21E15 L=264)   212     64        1 ( 678/ 757- 741/ 795)  36.9 E17-E13 S22-S19
     12  798  592 (S31E07 L=272)   238     46        0 ( 771/ 573- 818/ 618)  45.0 E08-E05 S33-S29
     13 1693  499 (S20W63 L=342)   659     97        1 (1653/ 482-1747/ 519)  15.3 W58-W70 S21-S18
     14  485  389 (S55E38 L=240)   451     79        0 ( 448/ 363- 522/ 414) -12.5 E42-E33 S56-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