Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1813 1432 (N13W65 L= 67)   909    147        1 (1768/1399-1854/1471) -35.5 W60-W70 N11-N16
      2  778 1281 (N18E12 L=350)   243    104        0 ( 751/1227- 798/1330) -80.5 E12-E10 N15-N21
      3  219 1267 (N25E55 L=307)   619    155        0 ( 177/1246- 266/1287) -12.5 E59-E50 N23-N27
      4  258 1139 (N17E51 L=311)  1479    234        3 ( 219/1059- 310/1235)  68.2 E55-E46 N12-N22
      5  141  973 (N09E66 L=296)  2002    312        6 (  98/ 907- 178/1031)  82.9 E72-E61 N04-N12
      6 1933  897 (S20W67 L= 69)   961    193        2 (1903/ 852-1961/ 928)  45.0 W63-W71 S22-S17
      7  763  723 (S14E20 L=342)   427    173        0 ( 730/ 645- 795/ 810)  52.1 E23-E16 S18-S09
      8  625  736 (S12E29 L=333)   278     94        0 ( 611/ 686- 637/ 784)  71.6 E30-E27 S14-S08
      9  406  659 (S13E47 L=315)   582     89        3 ( 371/ 612- 434/ 698) -63.4 E48-E44 S16-S10
     10 1259  589 (S30W09 L= 11)   880    209        2 (1221/ 509-1291/ 693)  76.0 W05-W11 S34-S22
     11  282  532 (S19E64 L=298)  1785    257        3 ( 253/ 456- 314/ 629)  54.0 E68-E57 S24-S13
     12 1057  551 (S29E05 L=357)   217     61        0 (1029/ 521-1090/ 580)  31.0 E07-E02 S30-S27
     13 1044  451 (S36E08 L=354)   263    110        0 (1027/ 415-1074/ 504) -80.5 E08-E06 S38-S32
  

    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