Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1025 1935 (N63W54 L=  3)   881     78        1 (1009/1894-1040/1977)  10.7 W42-W79 N59-N66
      2  961 1897 (N63W38 L=348)   509     49        1 ( 939/1870- 982/1920)  14.0 W33-W45 N59-N64
      3 1243 1817 (N45W48 L=357)  1057    174        0 (1163/1766-1313/1853)   0.0 W37-W56 N42-N47
      4 1412 1800 (N38W60 L=  9)   890     98        1 (1372/1783-1465/1826) -50.2 W54-W64 N35-N41
      5  970 1664 (N43W16 L=325)   453     63        1 ( 942/1626- 998/1698)  33.7 W13-W19 N40-N45
      6  776 1594 (N44E01 L=308)   414     82        0 ( 731/1570- 822/1618)   0.0 E04-W02 N42-N45
      7 1747 1210 (S04W50 L=359)  2822    503        4 (1682/ 979-1788/1428)  56.9 W40-W57 S15-N08
      8  680 1257 (N25E15 L=294)   275     91        0 ( 640/1229- 714/1279) -36.9 E18-E13 N22-N26
      9  992 1183 (N13W02 L=311)   734    262        1 ( 884/1140-1087/1272) -56.3 E02-W06 N08-N20
     10  368 1189 (N28E40 L=270)   370    109        0 ( 356/1138- 386/1240)  71.6 E40-E37 N24-N30
     11  276 1112 (N25E49 L=261)  1634    358        2 ( 141/ 986- 386/1206) -33.2 E67-E39 N15-N33
     12  535 1181 (N23E26 L=283)   231     62        1 ( 506/1161- 569/1205) -45.0 E28-E23 N22-N25
     13  494 1036 (N16E32 L=278)   299    146        0 ( 427/1007- 556/1056)   0.0 E36-E27 N15-N16
     14  238  839 (N10E57 L=252)   832    100        1 ( 200/ 806- 280/ 886)  15.3 E62-E51 N07-N11
     15  392  801 (N05E44 L=265)   546    144        0 ( 335/ 778- 445/ 832) -26.6 E48-E40 N02-N07
     16  898  740 (S09E14 L=296)   320     86        0 ( 878/ 693- 921/ 782)  80.5 E14-E12 S12-S06
     17 1435  661 (S27W16 L=326)   339     49        0 (1413/ 632-1454/ 692)  45.0 W14-W17 S28-S25
     18  324  569 (S07E59 L=250)   438     84        1 ( 296/ 534- 349/ 603) -78.7 E61-E57 S09-S04
     19  334  467 (S14E65 L=244)  4471    310       10 ( 239/ 361- 432/ 573) -57.3 E73-E59 S21-S05
     20 1502  413 (S47W19 L=328)   379     24        0 (1472/ 396-1527/ 429) -18.4 W15-W21 S49-S45
     21  905  333 (S35E28 L=281)   886    166        0 ( 833/ 274- 965/ 388)  18.4 E36-E21 S37-S32
     22  476  291 (S28E67 L=242)  1373     98        1 ( 450/ 246- 512/ 338)  28.1 E79-E62 S31-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