Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1174 1844 (N65W28 L=345)  1662    215        2 (1049/1820-1263/1868)   1.5 W08-W46 N62-N67
      2  444 1605 (N43E55 L=263)   437     95        0 ( 417/1559- 470/1634) -24.8 E61-E48 N39-N45
      3 1436 1550 (N37W36 L=353)   364     68        2 (1397/1529-1468/1568)  -9.5 W32-W38 N35-N37
      4  775 1365 (N26E16 L=302)  1090    364        3 ( 711/1275- 876/1462) -63.4 E21-E09 N20-N32
      5 1401 1380 (N25W28 L=346)   305     88        1 (1375/1330-1416/1420)  80.5 W25-W28 N21-N27
      6  388 1355 (N26E48 L=270)   381     66        2 ( 363/1330- 405/1393) -59.0 E50-E45 N23-N28
      7  409 1152 (N13E42 L=276)   525    129        2 ( 345/1124- 460/1183) -15.3 E48-E37 N11-N14
      8 1747  855 (S10W51 L=  9)   520     49        1 (1716/ 834-1772/ 882)  11.3 W48-W53 S11-S08
      9  579  798 (S09E30 L=288)  1170    216        3 ( 484/ 752- 654/ 838)  13.0 E37-E24 S12-S06
     10  435  801 (S09E41 L=277)   318     42        0 ( 415/ 774- 457/ 827)  45.0 E42-E38 S10-S07
     11 1110  682 (S18W05 L=322)   387    119        1 (1087/ 629-1126/ 746)  76.0 W03-W05 S21-S13
     12  778  658 (S18E17 L=301)   238     79        0 ( 744/ 637- 796/ 692)  36.9 E19-E15 S19-S16
     13  223  668 (S19E68 L=250)   779     70        1 ( 201/ 633- 252/ 690)  26.6 E73-E62 S21-S17
  

    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