Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1426 1586 (N43W19 L=311)  1680    432        1 (1228/1509-1581/1651)  -3.6 W01-W33 N39-N46
      2  845 1481 (N23E20 L=272)   618    131        1 ( 806/1420- 879/1545) -49.4 E25-E17 N19-N26
      3  499 1422 (N13E42 L=250)  1505    244        2 ( 424/1328- 556/1521) -85.6 E48-E39 N07-N20
      4  226 1428 (N09E71 L=221)  1142    173        0 ( 205/1354- 256/1511) -55.0 E75-E67 N04-N14
      5  365 1428 (N11E54 L=239)   751    122        0 ( 330/1383- 386/1481) -63.4 E57-E51 N08-N14
      6  421 1358 (N08E46 L=246)   849    129        3 ( 396/1292- 450/1413) -69.4 E49-E43 N03-N11
      7 1661 1330 (N29W39 L=332)   411    113        0 (1608/1307-1709/1360)  26.6 W34-W44 N27-N32
      8  513 1290 (N06E37 L=255)   340    108        2 ( 475/1261- 554/1323)  18.4 E39-E33 N03-N07
      9 1844 1208 (N25W59 L=352)   875    166        0 (1804/1136-1879/1276) -53.1 W54-W63 N21-N29
     10  323 1042 (S12E47 L=245)   880    129        0 ( 290/ 980- 357/1104)  63.4 E49-E44 S16-S08
     11  464  991 (S13E35 L=258)   238     45        0 ( 438/ 969- 484/1013) -33.7 E36-E33 S13-S11
     12  733  890 (S14E15 L=277)   644    247        0 ( 630/ 817- 822/ 938) -12.1 E22-E08 S16-S12
     13 1423  864 (S03W27 L=319)   315    129        0 (1391/ 800-1447/ 905) -51.3 W24-W29 S07-S01
     14 1190  813 (S11W14 L=306)   219     91        0 (1169/ 769-1226/ 837)  68.2 W12-W15 S13-S08
     15 1521  518 (S22W45 L=338)  2378    455        3 (1324/ 416-1706/ 595)  39.6 W34-W59 S32-S13
  

    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