Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  383 1669 (N26E61 L=  8)   721    222        0 ( 350/1644- 429/1695) -15.3 E66-E55 N24-N28
      2  876 1578 (N25E19 L= 50)   269     72        0 ( 839/1559- 917/1603)  -9.5 E22-E16 N23-N26
      3  414 1421 (N09E47 L= 22)   341     72        0 ( 387/1400- 444/1449) -18.4 E49-E43 N08-N11
      4  763 1277 (N05E19 L= 49)   243     78        0 ( 715/1267- 801/1292)  21.8 E22-E17 N03-N05
      5  154 1023 (S16E64 L=  5)  5155    735       13 ( 103/ 784- 199/1209) -85.6 E71-E58 S30-S04
      6 1625 1092 (N08W36 L=105)   295     81        1 (1594/1051-1648/1116) -36.9 W33-W37 N05-N09
      7  224 1071 (S13E56 L= 12)   394     91        1 ( 200/1041- 255/1099)  56.3 E58-E53 S14-S11
      8 1707 1035 (N06W43 L=112)   249    124        1 (1658/1006-1751/1063)  35.5 W40-W47 N03-N08
      9  774  979 (S13E14 L= 54)   389    160        0 ( 717/ 918- 852/1012)  36.9 E17-E09 S16-S09
     10  381  809 (S28E41 L= 28)  1865    719        4 ( 178/ 705- 631/ 898)  19.7 E61-E22 S35-S20
     11 1465  819 (S11W30 L= 99)   430    145        1 (1427/ 788-1530/ 867) -15.9 W27-W34 S13-S08
     12 1131  771 (S19W11 L= 79)   340    101        0 (1115/ 703-1145/ 820) -66.8 W08-W12 S23-S16
     13 1634  783 (S09W43 L=112)   274     70        1 (1605/ 760-1657/ 804) -21.8 W40-W45 S10-S08
     14  873  776 (S23E05 L= 63)   352    104        0 ( 819/ 764- 934/ 796)  15.9 E08-E01 S24-S22
     15  716  654 (S33E15 L= 54)   681    211        1 ( 650/ 589- 792/ 751)  53.1 E19-E10 S38-S25
     16 1653  708 (S13W47 L=116)   424     80        2 (1619/ 678-1677/ 746)  45.0 W44-W48 S14-S10
     17 1473  589 (S24W38 L=106)   512    221        0 (1429/ 500-1545/ 654)  90.0 W34-W41 S29-S18
     18 1024  511 (S37W10 L= 78)   488    146        0 ( 963/ 476-1074/ 580)  58.0 W05-W12 S40-S32
     19 1388  254 (S47W51 L=119)   407     82        0 (1372/ 224-1400/ 286) -38.7 W47-W53 S48-S44
  

    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