Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1407 1734 (N43W53 L=237)   785     89        1 (1364/1710-1453/1757) -29.7 W48-W57 N41-N46
      2  885 1635 (N48W01 L=185)  1909    471        5 ( 687/1577-1091/1685) -19.4 E18-W16 N40-N53
      3 1400 1594 (N34W40 L=224)  1966    368        5 (1227/1556-1558/1623) -14.0 W25-W53 N28-N37
      4 1548 1395 (N19W42 L=226)   773    269        0 (1512/1311-1616/1508)  77.0 W40-W47 N12-N25
      5  858 1460 (N36E04 L=179)   353    106        2 ( 812/1440- 920/1477) -15.9 E07-W00 N34-N37
      6  204 1047 (N17E62 L=122)  2376    295        8 ( 144/ 914- 252/1162) -56.3 E71-E55 N08-N23
      7  808 1047 (N11E13 L=171)  1160    492        3 ( 645/ 989-1020/1104)  -5.0 E23-W00 N08-N13
      8 1106 1071 (N08W06 L=189)   191     37        0 (1082/1047-1128/1093)  33.7 W03-W07 N06-N09
      9 1513  958 (S06W29 L=213)   295    135        1 (1477/ 908-1568/ 995)  23.2 W26-W33 S08-S04
     10 1620  894 (S12W36 L=220)  1456    268        7 (1539/ 786-1679/ 990)  42.3 W29-W41 S16-S06
     11 1239  945 (S02W12 L=195)   212     65        1 (1217/ 922-1266/ 968)   0.0 W10-W13 S03-N00
     12  379  869 (N05E45 L=138)   613    108        2 ( 354/ 834- 410/ 935) -80.5 E47-E42 N02-N08
     13 1797  821 (S20W53 L=237)  1187    203        4 (1743/ 771-1851/ 887)  50.2 W47-W60 S22-S15
     14  861  843 (S02E12 L=171)   824    288        1 ( 713/ 794- 992/ 874) -23.6 E21-E05 S06-N01
     15 1630  727 (S23W37 L=220)  1246    202        4 (1566/ 662-1698/ 818)  45.0 W31-W42 S25-S17
     16 1019  782 (S08E04 L=180)   375    106        2 ( 989/ 741-1060/ 814)  21.8 E06-E01 S10-S05
     17 1844  749 (S27W61 L=244)   712    114        0 (1826/ 705-1868/ 805)  63.4 W57-W63 S29-S23
     18  822  692 (S11E17 L=166)   529    125        3 ( 776/ 658- 879/ 720)   0.0 E20-E13 S12-S08
     19  221  619 (S10E72 L=111)  1632    111        3 ( 198/ 571- 243/ 684)  31.0 E83-E67 S14-S05
     20  886  584 (S19E16 L=168)   314    178        0 ( 811/ 560- 959/ 630)  11.3 E20-E10 S19-S16
     21  321  520 (S17E64 L=120)   580     77        0 ( 305/ 478- 340/ 557)  45.0 E66-E60 S20-S14
     22 1067  461 (S30E07 L=177)   774    156        0 (1018/ 396-1116/ 506)  37.9 E11-E02 S34-S27
     23  700  444 (S26E33 L=151)   371    128        0 ( 652/ 412- 756/ 476) -39.8 E35-E29 S28-S23
     24  755  195 (S48E48 L=136)   737    121        2 ( 738/ 141- 780/ 240)  24.8 E65-E39 S55-S43
     25 1018  166 (S57E25 L=159)   512     67        1 ( 986/ 153-1054/ 180)   0.0 E29-E19 S58-S54
  

    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