Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1020 1594 (N40W18 L= 33)   257     65        1 ( 989/1567-1052/1614) -45.0 W16-W20 N38-N41
      2  461 1305 (N37E31 L=343)   312     97        1 ( 425/1270- 507/1340)  23.2 E34-E27 N35-N38
      3  938 1280 (N23W02 L= 16)   197     50        2 ( 914/1254- 960/1298) -45.0 W00-W03 N22-N25
      4  699 1241 (N27E14 L=  0)   314    117        1 ( 639/1226- 755/1259) -20.6 E18-E10 N25-N28
      5 1212 1126 (N08W13 L= 27)   268     68        1 (1189/1095-1240/1150)  33.7 W11-W14 N06-N09
      6  205 1036 (N25E59 L=315)  2037    216        3 ( 123/ 967- 292/1112) -22.2 E73-E50 N19-N30
      7 1833  959 (S20W53 L= 67)   349     27        1 (1818/ 934-1848/ 986) -90.0 W50-W54 S21-S18
      8 1354  842 (S12W14 L= 28)   356    117        2 (1331/ 797-1373/ 903)  51.3 W11-W16 S13-S08
      9 1167  793 (S09W02 L= 16)   217     89        0 (1130/ 762-1206/ 821)  14.0 W00-W04 S10-S08
     10 1087  740 (S10E04 L= 11)   247     93        2 (1036/ 707-1118/ 781) -45.0 E06-E01 S12-S08
     11 1121  646 (S17E04 L= 10)   695    193        3 (1053/ 609-1193/ 705)  20.6 E08-W00 S18-S14
     12  796  616 (S10E24 L=351)   603    171        2 ( 748/ 549- 838/ 696)  37.9 E28-E19 S13-S06
     13 1673  578 (S39W33 L= 48)   340     55        0 (1653/ 553-1692/ 608)  36.9 W31-W35 S40-S37
     14  611  454 (S16E42 L=332)   555    140        0 ( 586/ 403- 642/ 532)  38.7 E46-E36 S19-S11
     15  542  468 (S14E46 L=328)   542      0        0 ( 513/ 442- 575/ 493) -63.4 E48-E44 S16-S12
     16 1464  466 (S40W13 L= 28)   310     52        1 (1438/ 446-1487/ 490)   0.0 W11-W15 S41-S37
     17  739  349 (S26E39 L=335)   499     81        1 ( 699/ 319- 772/ 383)  23.2 E42-E35 S27-S24
     18  731  234 (S34E49 L=325)  2278    280        5 ( 646/ 128- 799/ 316)  57.0 E62-E44 S46-S26
     19 1087  134 (S56E36 L=338)   868    109        1 (1033/ 116-1136/ 154) -54.5 E38-E31 S60-S51
  

    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