Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  634 1494 (N36E28 L=299)   367     72        0 ( 601/1465- 666/1518)  36.9 E30-E25 N34-N37
      2 1793 1447 (N24W69 L= 35)   621     84        1 (1769/1423-1828/1473) -45.0 W65-W74 N22-N26
      3 1494 1410 (N26W36 L=  2)   266     41        0 (1476/1389-1514/1434)  26.6 W34-W38 N24-N27
      4 1800 1392 (N21W66 L= 32)  1009     91        2 (1762/1361-1844/1428) -16.7 W61-W72 N18-N23
      5 1755 1359 (N20W58 L= 24)   571    104        2 (1725/1313-1781/1405)  71.6 W55-W61 N16-N22
      6 1684 1368 (N21W51 L= 17)   352     31        0 (1661/1345-1705/1391) -56.3 W49-W53 N19-N22
      7  147 1235 (N18E74 L=252)  2292    199        1 ( 115/1141- 181/1315)  61.4 E79-E70 N12-N23
      8  306 1242 (N20E52 L=274)   541    113        0 ( 277/1209- 345/1279) -29.7 E55-E48 N17-N22
      9  747 1037 (N07E17 L=309)  1256    360        3 ( 646/ 906- 799/1154) -81.9 E23-E13 S01-N13
     10  198 1058 (N08E62 L=264)   710    131        0 ( 172/1010- 246/1093)  51.3 E65-E56 N05-N10
     11  452  841 (S05E39 L=288)  3135    653        5 ( 344/ 648- 692/1066) -47.4 E46-E23 S17-N09
     12  265 1010 (N06E54 L=272)   320     75        0 ( 242/ 970- 292/1037)  38.7 E56-E51 N03-N07
     13 1256  889 (S05W14 L=340)   242    116        0 (1209/ 857-1299/ 927)  33.7 W10-W16 S06-S02
     14  272  755 (S10E56 L=270)   428     86        2 ( 248/ 718- 306/ 798)  39.8 E60-E52 S12-S07
     15 1463  735 (S16W27 L=353)   262     75        0 (1442/ 694-1476/ 771)  68.2 W25-W28 S18-S13
     16  199  654 (S18E72 L=254)  3341    171        6 ( 144/ 585- 249/ 731) -48.4 E82-E63 S22-S12
     17  642  570 (S23E29 L=298)   902    284        0 ( 525/ 536- 779/ 616) -16.4 E36-E19 S25-S19
     18  871  371 (S38E16 L=310)   267     50        0 ( 856/ 343- 887/ 393) -76.0 E17-E14 S40-S36
     19  802  278 (S46E25 L=301)  1368    145        2 ( 735/ 242- 862/ 326)  23.6 E34-E18 S49-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