Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1438 1532 (N26W42 L= 61)   592    187        0 (1364/1494-1525/1567) -45.0 W38-W46 N21-N29
      2 1231 1410 (N25W23 L= 42)   706    214        1 (1175/1318-1269/1497)  33.7 W16-W28 N20-N29
      3  855 1380 (N32E02 L= 17)   565    162        0 ( 791/1312- 902/1431) -68.2 E06-W00 N26-N36
      4 1826 1293 (N01W65 L= 84)  1299    176        2 (1771/1215-1874/1360) -68.2 W60-W69 S04-N06
      5  924 1204 (N20E02 L= 17)   261     36        0 ( 899/1181- 950/1226) -71.6 E03-W00 N18-N21
      6  757 1133 (N19E14 L=  5)   333    117        1 ( 696/1106- 800/1160) -39.8 E17-E11 N16-N21
      7  211  958 (N17E62 L=317)   988    220        1 ( 197/ 854- 245/1041)  67.4 E64-E56 N10-N22
      8 1874  781 (S31W62 L= 81)   595     72        0 (1856/ 753-1898/ 820) -37.9 W58-W69 S34-S27
      9 1655  748 (S25W36 L= 55)   559    129        2 (1630/ 691-1675/ 810) -90.0 W33-W37 S29-S21
     10  808  719 (S06E19 L=360)   280    126        0 ( 781/ 669- 856/ 758)  38.7 E22-E16 S08-S04
     11  785  493 (S20E28 L=351)   562    231        0 ( 681/ 472- 856/ 541)  -4.4 E35-E22 S21-S17
     12 1037  480 (S26E12 L=  7)   630    201        2 ( 958/ 433-1124/ 529)   8.7 E18-E05 S28-S24
     13  639  232 (S37E59 L=320)   624     55        0 ( 624/ 198- 655/ 259)  28.6 E66-E53 S40-S34
     14 1347  199 (S64W02 L= 21)   545     44        1 (1326/ 180-1369/ 222)  18.4 E01-W05 S67-S59
  

    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