Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1163 1563 (N38W15 L=301)   516    128        2 (1099/1528-1223/1604)  20.0 W09-W20 N36-N40
      2  378 1573 (N43E59 L=226)   667    113        1 ( 328/1553- 430/1592)   3.6 E68-E52 N41-N44
      3 1705 1449 (N25W57 L=343)   357     83        0 (1672/1435-1751/1460) -14.0 W53-W62 N23-N25
      4  832 1250 (N20E11 L=275)   289     98        2 ( 794/1216- 876/1283) -45.0 E13-E08 N17-N22
      5 1378 1173 (N11W23 L=309)   632    250        0 (1295/1092-1454/1212) -41.6 W18-W27 N05-N14
      6  298 1098 (N12E51 L=235)   429    100        1 ( 263/1064- 336/1139) -29.7 E54-E47 N10-N14
      7 1055  968 (N01W02 L=287)   938    356        0 (1003/ 816-1102/1125) -81.0 W00-W03 S08-N11
      8  714 1065 (N09E19 L=266)   238    107        1 ( 697/1018- 756/1097)  45.0 E20-E16 N06-N11
      9 1814 1009 (S03W57 L=342)   678    162        0 (1756/ 965-1854/1073)  20.0 W50-W61 S05-N00
     10  184 1013 (N07E64 L=222)   435     82        1 ( 165/ 988- 208/1042) -36.9 E66-E60 N05-N08
     11 1814  852 (S13W57 L=342)   405     72        1 (1797/ 817-1838/ 875)  36.9 W54-W59 S14-S11
     12  205  733 (S11E66 L=219)  1796    262        4 ( 183/ 639- 228/ 863)  60.3 E75-E61 S17-S02
     13  553  645 (S16E34 L=251)   320     23        0 ( 535/ 623- 576/ 669) -71.6 E35-E32 S17-S14
     14  529  598 (S19E37 L=248)   460     62        1 ( 502/ 563- 565/ 635) -53.1 E38-E34 S21-S16
     15  849  504 (S27E16 L=270)   342    102        0 ( 823/ 455- 879/ 554)  54.5 E18-E12 S30-S23
     16  464  502 (S26E46 L=239)   400    105        1 ( 443/ 446- 482/ 542)  66.8 E47-E43 S30-S23
     17 1454  490 (S33W28 L=314)   469     81        1 (1425/ 457-1483/ 526)  59.0 W26-W30 S35-S30
     18 1404  358 (S44W27 L=312)  3070    315        7 (1278/ 292-1527/ 419)   7.4 W15-W39 S48-S37
     19  846  261 (S47E24 L=262)  3390    505        9 ( 644/ 201-1077/ 328)   7.8 E53-E01 S53-S42
  

    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