Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  718 1809 (N34E53 L=171)   609     93        2 ( 694/1767- 741/1852) -30.3 E61-E48 N30-N37
      2  797 1615 (N23E33 L=192)   787    231        0 ( 771/1525- 844/1714) -35.5 E39-E25 N17-N28
      3  586 1563 (N14E44 L=180)   275     63        0 ( 566/1539- 602/1599) -63.4 E45-E42 N12-N16
      4 1359 1497 (N32W06 L=231)   387    122        0 (1338/1440-1375/1554) -60.3 W03-W08 N28-N35
      5 1173 1429 (N22E03 L=221)   504    165        1 (1129/1361-1193/1512) -73.3 E05-E01 N17-N27
      6  284 1395 (S02E62 L=162)  2359    299        4 ( 206/1277- 348/1501)  74.1 E66-E57 S10-N04
      7 1582 1443 (N37W25 L=249)   312     48        0 (1570/1409-1596/1472) -78.7 W23-W25 N34-N39
      8 1723 1351 (N36W39 L=263)   372    101        0 (1691/1306-1744/1396) -33.7 W35-W41 N33-N38
      9 1106 1345 (N15E04 L=220)   202     76        0 (1075/1319-1140/1365) -11.3 E06-E01 N14-N15
     10  720 1218 (S02E22 L=202)   201     41        1 ( 705/1193- 739/1247) -76.0 E23-E21 S04-N00
     11 1635 1188 (N22W33 L=257)   301     67        1 (1610/1149-1660/1217) -53.1 W30-W35 N19-N23
     12 1873 1026 (N21W60 L=284)   654    100        1 (1851/ 975-1894/1067)  80.5 W56-W63 N18-N24
     13  873 1008 (S10E08 L=216)   220     99        1 ( 835/ 985- 897/1051)  78.7 E09-E06 S12-S07
     14  264 1002 (S26E52 L=172)   389     90        0 ( 232/ 963- 295/1038)  45.0 E55-E49 S28-S22
     15  765  980 (S15E14 L=211)   295     91        2 ( 741/ 936- 795/1016) -45.0 E15-E10 S16-S12
     16 1025  948 (S09W02 L=226)   535    198        3 ( 970/ 909-1089/1006)  66.8 E01-W05 S12-S05
     17  911  938 (S13E04 L=220)   206     64        0 ( 896/ 904- 926/ 974) -63.4 E05-E02 S14-S10
     18  596  796 (S30E20 L=204)   929    253        2 ( 497/ 766- 717/ 839)  14.0 E28-E12 S31-S25
     19  504  501 (S53E24 L=200)   679    143        1 ( 455/ 456- 553/ 550) -15.3 E30-E18 S55-S49
     20 1397  293 (S34W58 L=282)   421     35        0 (1376/ 276-1420/ 309)   0.0 W54-W61 S35-S32
  

    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