Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1684 1480 (N15W58 L=273)  1160    175        1 (1643/1394-1721/1555)  63.4 W53-W63 N09-N19
      2  318 1421 (N46E51 L=163)   411     57        2 ( 287/1403- 353/1441) -15.3 E56-E45 N44-N47
      3 1174 1401 (N25W19 L=233)   219     72        0 (1151/1369-1194/1434)  76.0 W17-W19 N23-N27
      4  625 1397 (N38E18 L=196)   219     37        2 ( 609/1369- 645/1422)  56.3 E19-E16 N36-N39
      5 1447 1258 (N10W31 L=245)   318     85        0 (1426/1221-1476/1303) -90.0 W29-W31 N07-N12
      6  423 1267 (N34E37 L=178)   320    124        0 ( 381/1231- 477/1290) -32.0 E40-E31 N30-N36
      7 1400 1029 (S01W22 L=236)  1298    394        1 (1290/ 857-1510/1130)  25.3 W11-W30 S08-N03
      8 1745  978 (S14W45 L=260)  1034    200        6 (1693/ 905-1805/1021)  16.7 W40-W51 S16-S11
      9 1736  890 (S19W43 L=258)   318     47        0 (1720/ 860-1754/ 916)  45.0 W41-W44 S20-S17
     10  895  737 (S06E14 L=201)   579    160        2 ( 878/ 675- 916/ 826)  71.6 E15-E11 S10-S01
     11 1161  765 (S11W02 L=217)   188     70        0 (1125/ 753-1189/ 780) -18.4 W00-W03 S11-S09
     12  389  748 (N04E47 L=168)   288     65        0 ( 352/ 736- 418/ 765)   0.0 E50-E44 N02-N04
     13 1108  683 (S14E03 L=212)   201     70        2 (1078/ 662-1144/ 708) -53.1 E04-E01 S16-S12
     14  587  598 (S09E37 L=178)  2074    336        8 ( 480/ 493- 689/ 694) -63.4 E42-E30 S16-S01
     15  942  592 (S16E15 L=200)   711    273        1 ( 905/ 490- 973/ 693)  50.7 E20-E10 S22-S09
     16 1063  640 (S16E07 L=208)   291     96        3 (1028/ 615-1114/ 668)   0.0 E09-E03 S17-S14
     17  503  406 (S20E53 L=162)  8927      0       23 ( 388/ 237- 642/ 581)  40.0 E78-E39 S33-S07
     18 1436  546 (S32W15 L=230)   254     53        1 (1413/ 516-1454/ 577)  45.0 W13-W16 S33-S30
     19  726  334 (S29E40 L=175)  1427    300        1 ( 641/ 246- 836/ 439)  19.7 E54-E26 S34-S23
  

    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