Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1426 1446 (N18W35 L=287)  1539    243        4 (1332/1394-1506/1506)   4.1 W26-W40 N14-N20
      2 1717 1429 (N10W57 L=309)  1693    447        2 (1588/1375-1834/1477)  -8.7 W43-W69 N06-N12
      3 1028 1330 (N20W07 L=260)   660    205        2 ( 931/1303-1148/1356) -13.0 W01-W14 N18-N22
      4 1772 1098 (S10W50 L=303)   989    189        2 (1746/1023-1795/1209)  55.0 W46-W54 S13-S03
      5  493 1144 (N20E31 L=222)   353     62        1 ( 472/1109- 513/1175) -90.0 E32-E28 N17-N21
      6  355 1146 (N23E41 L=212)   801    217        1 ( 272/1124- 433/1169) -12.1 E48-E34 N20-N24
      7 1733  811 (S26W43 L=296)  1848    291        2 (1634/ 690-1780/ 942)  45.0 W33-W47 S31-S18
      8  978  786 (S10E08 L=245)   288     77        2 ( 939/ 760-1024/ 803) -11.3 E09-E04 S11-S09
      9 1177  773 (S15W04 L=256)   215     48        0 (1150/ 751-1199/ 800)  45.0 W01-W05 S16-S13
     10 1084  695 (S18E03 L=249)   437    155        1 (1000/ 675-1169/ 719)  -5.7 E08-W02 S19-S16
     11  752  680 (S12E23 L=229)   393    113        0 ( 689/ 638- 792/ 717) -51.3 E27-E21 S15-S08
     12 1539  476 (S44W25 L=278)   680     81        2 (1513/ 438-1566/ 519)  90.0 W23-W28 S47-S40
     13  602  320 (S32E49 L=204)  1780    304        3 ( 559/ 241- 643/ 413)  38.2 E58-E43 S36-S25
     14 1348  338 (S50W07 L=260)   908    192        2 (1321/ 293-1373/ 395)  84.3 W03-W08 S54-S44
     15 1135  319 (S45E11 L=241)   556     91        2 (1091/ 293-1171/ 349)   7.1 E15-E07 S47-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