Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1680 1474 (N15W58 L=273)  1134    175        2 (1638/1385-1721/1551)  70.0 W53-W62 N08-N19
      2  314 1420 (N46E52 L=163)   383     77        2 ( 285/1401- 352/1440) -16.7 E56-E46 N44-N47
      3 1168 1397 (N25W18 L=233)   257     76        0 (1144/1366-1188/1433) -90.0 W16-W19 N22-N27
      4 1440 1250 (N10W30 L=245)   336     93        0 (1419/1215-1468/1296) -90.0 W28-W31 N07-N12
      5  254 1136 (N28E54 L=161)   612    146        0 ( 195/1110- 306/1161)   0.0 E61-E48 N27-N29
      6 1386 1017 (S02W21 L=236)  1425    518        1 (1229/ 853-1508/1128)  15.3 W08-W30 S08-N03
      7 1739  974 (S14W45 L=260)  1046    206        4 (1689/ 891-1801/1017)  21.8 W39-W50 S17-S11
      8  215  959 (N18E60 L=155)   351     65        1 ( 196/ 940- 239/ 995) -53.1 E61-E56 N16-N20
      9  307  945 (N16E50 L=165)   276     86        1 ( 269/ 924- 347/ 963)   7.1 E53-E45 N15-N16
     10 1731  888 (S19W43 L=258)   301     39        0 (1717/ 862-1747/ 914)  45.0 W41-W44 S20-S17
     11  906  702 (S09E14 L=201)   898    200        3 ( 870/ 612- 964/ 788)  79.7 E16-E11 S14-S03
     12  949  740 (S07E11 L=204)   215     62        0 ( 923/ 719- 978/ 766) -63.4 E11-E09 S09-S05
     13  368  746 (N04E49 L=166)   404     98        0 ( 322/ 732- 410/ 765)   6.3 E53-E44 N02-N04
     14  582  596 (S09E37 L=178)  2072    343        7 ( 472/ 492- 683/ 691) -60.3 E43-E31 S16-S01
     15  934  527 (S20E17 L=198)   418    159        0 ( 899/ 470- 976/ 599)  37.9 E21-E12 S23-S16
     16 1430  542 (S32W14 L=229)   266     73        1 (1407/ 511-1449/ 578)  53.1 W12-W16 S34-S29
     17  528  471 (S16E47 L=168)  3106    442       11 ( 422/ 388- 639/ 570) -59.7 E58-E40 S22-S08
     18  724  337 (S29E40 L=175)  1392    297        1 ( 637/ 248- 831/ 438)  19.7 E54-E26 S34-S23
     19  481  343 (S24E61 L=154)  5350    292       10 ( 387/ 236- 551/ 416)  45.0 E78-E51 S33-S18
  

    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