Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1603 1673 (N27W69 L= 21)  1760    159        2 (1538/1614-1659/1714) -90.0 W63-W75 N23-N31
      2  590 1544 (N50E21 L=291)   287     46        0 ( 563/1525- 611/1565)   0.0 E23-E18 N48-N51
      3 1497 1524 (N23W46 L=358)   379     89        1 (1478/1482-1521/1564)  39.8 W43-W49 N20-N25
      4 1350 1533 (N28W36 L=348)   244     72        1 (1318/1507-1382/1555) -63.4 W34-W37 N25-N29
      5 1626 1505 (N18W56 L=  8)  1049    172        1 (1548/1456-1699/1545) -48.4 W50-W60 N13-N22
      6  834 1451 (N37E01 L=310)   284     39        0 ( 814/1420- 852/1476)  56.3 E02-W00 N35-N38
      7 1012 1251 (N20W05 L=317)   237     81        0 ( 996/1208-1029/1287)  53.1 W03-W06 N18-N22
      8 1750 1152 (S05W50 L=  2)   341     69        1 (1730/1116-1775/1183)  26.6 W47-W53 S06-S03
      9 1080 1121 (N11W05 L=317)   217     71        0 (1046/1101-1105/1140) -45.0 W03-W07 N09-N13
     10  275 1047 (N23E53 L=259)  1744    380        2 ( 174/ 939- 411/1111)   6.3 E66-E39 N17-N27
     11  194 1075 (N26E63 L=249)   569     40        1 ( 175/1045- 215/1101)  21.8 E65-E60 N23-N27
     12 1553  987 (S08W31 L=343)   237     39        1 (1537/ 967-1569/1011)  33.7 W29-W32 S09-S06
     13 1785  857 (S23W48 L=  0)  2280    435        4 (1608/ 794-1913/ 911) -14.4 W32-W67 S28-S16
     14 1073  829 (S05E02 L=310)   235     60        1 (1044/ 802-1092/ 848) -56.3 E03-W00 S06-S03
     15 1035  759 (S08E05 L=306)   202     72        0 (1011/ 726-1062/ 792)  36.9 E07-E03 S09-S06
     16 1504  741 (S21W23 L=335)   254    119        0 (1464/ 711-1562/ 773)   0.0 W19-W27 S22-S20
     17  495  707 (S01E41 L=271)   420    116        1 ( 478/ 651- 510/ 764)  45.0 E42-E37 S04-N02
     18 1129  532 (S25E06 L=306)   693    225        0 (1071/ 445-1193/ 629)  39.3 E11-W00 S29-S19
     19 1389  453 (S38W10 L=322)   407     71        0 (1371/ 415-1402/ 490)  71.6 W08-W11 S41-S35
     20 1001  257 (S42E26 L=286)  2379    282        5 ( 929/ 177-1056/ 372)  31.3 E39-E16 S48-S33
  

    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