Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1089 1485 (N27W14 L=211)   486    143        1 (1023/1438-1147/1518) -49.4 W09-W16 N23-N30
      2 1560 1373 (N11W40 L=238)   762    157        0 (1495/1323-1631/1404) -41.2 W36-W44 N07-N14
      3  779 1360 (N26E09 L=189)   344    117        0 ( 721/1330- 822/1402)  15.9 E12-E05 N24-N27
      4  838 1219 (N16E07 L=191)   513    268        0 ( 726/1177- 934/1278)  -4.4 E13-W00 N14-N18
      5  193 1070 (N19E58 L=140)  2748    271       12 ( 109/ 995- 284/1154) -23.5 E71-E48 N14-N24
      6 1876 1092 (S11W61 L=259)  1741    131        5 (1834/1041-1919/1151)  50.2 W55-W67 S13-S07
      7 1282 1029 (S03W15 L=213)   295     99        0 (1225/1005-1325/1044) -26.6 W11-W17 S04-S01
      8 1330  874 (S13W15 L=213)   369    186        0 (1246/ 843-1390/ 931)   5.7 W09-W19 S13-S10
      9 1197  888 (S09W07 L=205)   349     81        0 (1169/ 853-1232/ 922) -68.2 W05-W08 S11-S06
     10  390  590 (S12E51 L=147)  2635    455        7 ( 331/ 447- 433/ 838)  47.7 E65-E44 S20-N02
     11 1549  762 (S24W28 L=226)   339     94        0 (1523/ 721-1574/ 813)  45.0 W25-W30 S25-S20
     12 1758  651 (S36W48 L=246)  2196    439        1 (1588/ 529-1917/ 785)  13.7 W31-W69 S40-S30
     13  647  658 (S13E30 L=168)   896    247        1 ( 567/ 601- 734/ 752)  17.1 E35-E22 S15-S08
     14  188  640 (S06E72 L=126)  1277    131        0 ( 158/ 577- 217/ 691) -82.9 E75-E69 S10-S02
     15  813  641 (S17E20 L=178)   210     66        0 ( 801/ 599- 827/ 673)  59.0 E21-E18 S19-S14
     16  612  530 (S20E37 L=161)   597    140        3 ( 577/ 479- 643/ 592)  36.9 E40-E32 S22-S16
     17 1490  460 (S43W23 L=220)   551    108        1 (1434/ 438-1535/ 500)   0.0 W17-W26 S44-S40
     18  543  411 (S26E48 L=150)   952    174        0 ( 465/ 384- 639/ 448)  -7.6 E55-E38 S27-S24
     19  936  365 (S37E22 L=176)   245     26        0 ( 919/ 345- 955/ 390) -90.0 E23-E20 S38-S34
  

    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