Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1028 1551 (N37W17 L=339)   551    142        1 ( 965/1516-1089/1598)   4.8 W11-W23 N35-N37
      2 1327 1556 (N28W36 L=358)   311     77        0 (1289/1535-1370/1574)  -8.1 W32-W39 N26-N28
      3  843 1516 (N40W03 L=325)   329     40        1 ( 817/1488- 865/1541) -56.3 W01-W05 N38-N41
      4  237 1288 (N41E57 L=265)   853    114        2 ( 182/1263- 298/1310)  -9.0 E67-E48 N38-N42
      5  782 1275 (N27E08 L=314)  1047    314        0 ( 640/1241- 918/1306) -22.4 E17-W00 N22-N30
      6 1821 1099 (S12W54 L= 16)  1219    176        3 (1785/1011-1853/1176)  53.1 W49-W59 S16-S08
      7  362  864 (N13E46 L=276)  3819    926        4 ( 250/ 568- 639/1049)  32.0 E56-E22 S04-N23
      8 1594  964 (S12W32 L=354)   736    135        1 (1558/ 905-1627/1031)  29.7 W28-W35 S14-S09
      9 1802  981 (S18W49 L= 11)   304     34        1 (1779/ 960-1822/1000) -26.6 W47-W51 S19-S16
     10  728  924 (N09E19 L=303)   219    113        0 ( 679/ 890- 764/ 960) -51.3 E21-E17 N06-N11
     11 1352  747 (S17W11 L=333)   298     77        0 (1323/ 712-1378/ 781)  36.9 W09-W13 S18-S15
     12 1147  744 (S12E00 L=321)   273     55        0 (1120/ 714-1171/ 768)  18.4 E02-W01 S13-S10
     13 1084  704 (S12E05 L=317)   205     80        1 (1073/ 663-1101/ 742)  78.7 E06-E03 S14-S09
     14 1310  554 (S28W04 L=326)   438    162        0 (1290/ 473-1341/ 619)  48.8 W00-W07 S32-S24
     15  780  444 (S20E31 L=290)   752    102        3 ( 748/ 400- 817/ 486)  45.0 E34-E28 S23-S17
     16  459  394 (S17E59 L=263)  3182    370        5 ( 359/ 283- 522/ 482) -71.6 E73-E50 S25-S11
     17  745  362 (S25E38 L=284)   275     71        1 ( 722/ 332- 768/ 403)  71.6 E39-E36 S27-S21
     18 1497  312 (S56W14 L=336)   656     88        1 (1454/ 292-1531/ 334) -29.1 W09-W18 S59-S52
     19  760  177 (S40E55 L=267)   785     81        2 ( 745/ 130- 778/ 209)  25.2 E67-E49 S44-S36
  

    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