Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1445 1563 (N41W21 L=301)   475     82        0 (1400/1529-1484/1595) -23.2 W16-W24 N39-N43
      2  680 1433 (N17E30 L=251)   885    186        1 ( 650/1356- 705/1529) -65.6 E34-E27 N12-N23
      3  999 1469 (N25E10 L=270)   394     77        1 ( 960/1441-1042/1498)   0.0 E13-E07 N23-N26
      4  314 1384 (N08E57 L=223)  1078    183        0 ( 296/1295- 338/1472) -61.4 E59-E53 N02-N13
      5 1038 1407 (N22E06 L=274)   336     83        1 (1018/1363-1064/1439)  90.0 E07-E04 N19-N24
      6  534 1357 (N10E37 L=243)  1084    217        4 ( 467/1297- 601/1430) -26.6 E44-E31 N07-N13
      7  597 1380 (N13E34 L=247)   310     72        1 ( 556/1360- 634/1396)  11.3 E36-E31 N11-N13
      8 1835 1121 (N19W58 L=338)   896    115        1 (1815/1065-1856/1173)  74.1 W55-W60 N15-N22
      9  477 1008 (S11E34 L=246)  1227    323        1 ( 425/ 872- 549/1143)  74.5 E37-E31 S20-S02
     10  618  936 (S13E23 L=257)   224     26        0 ( 592/ 920- 642/ 951)   0.0 E25-E21 S14-S12
     11  897  825 (S15E04 L=276)   886    327        1 ( 782/ 744-1012/ 878)  -7.6 E11-W04 S18-S12
     12 1595  805 (S04W40 L=321)   554    131        0 (1564/ 740-1618/ 858) -56.3 W36-W42 S07-N00
     13  690  782 (S21E17 L=264)   200     59        0 ( 660/ 763- 721/ 800)  36.9 E18-E14 S22-S19
     14 1734  526 (S17W66 L=346)  1491    228        0 (1652/ 489-1824/ 581)  24.0 W56-W76 S20-S12
     15  472  394 (S55E40 L=240)   450     52        0 ( 443/ 367- 499/ 418) -26.6 E43-E36 S56-S52
  

    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